alguien me exa una manita!!
hola compañeros.
estoy aprendiendo un poco en este mundo de la programacion y estoy creando un programa para almacenar datos. pues en el modulo al que e yamado compras no me funciona intento guardar datos y me dice que no que es imposible. pongo el modulo a continuacion haber si alguien me puede ayudar.
Private Sub cmdCompras_Click()
Dim rsregistro As ADODB.Recordset
Set cnmodclientes = New ADODB.Connection
cnmodclientes.Provider = "Microsoft.ACE.OLEDB.12.0"
cnmodclientes.ConnectionString = (App.Path & "" & "BD" & "" & "datos.accdb")
cnmodclientes.Open
Set rsregistro = New ADODB.Recordset
rsregistro.CursorType = adOpenKeyset
rsregistro.LockType = adLockOptimistic
rsregistro.ActiveConnection = cnmodclientes
rsregistro.Source = "Select nregistro from compras ORDER BY nregistro"
rsregistro.Open
teoricamente el problema esta en la linea 7.
un saludos a todos y gracias de antemano compañeros
estoy aprendiendo un poco en este mundo de la programacion y estoy creando un programa para almacenar datos. pues en el modulo al que e yamado compras no me funciona intento guardar datos y me dice que no que es imposible. pongo el modulo a continuacion haber si alguien me puede ayudar.
Private Sub cmdCompras_Click()
Dim rsregistro As ADODB.Recordset
Set cnmodclientes = New ADODB.Connection
cnmodclientes.Provider = "Microsoft.ACE.OLEDB.12.0"
cnmodclientes.ConnectionString = (App.Path & "" & "BD" & "" & "datos.accdb")
cnmodclientes.Open
Set rsregistro = New ADODB.Recordset
rsregistro.CursorType = adOpenKeyset
rsregistro.LockType = adLockOptimistic
rsregistro.ActiveConnection = cnmodclientes
rsregistro.Source = "Select nregistro from compras ORDER BY nregistro"
rsregistro.Open
teoricamente el problema esta en la linea 7.
un saludos a todos y gracias de antemano compañeros