RE:error 91 al ejecutar un command
Publicado por
Kysuki (1 intervención) el 16/01/2008 22:00:39
yo tambien tengo el mismo problema pero con los codigos de los comandos actualizar, añadir y eliminar.
*utilizo una base de datos de access.
*en los tres codigos me salen error en los codigos correspondientes a cada uno.
aquì esta el codigo, si alguien tiene alguna sugerencia u otra manera programar asì, decidme por favor, no es por precionar pero me urge un poco:
#Const TextLigados = -1
Private sBase As String
Private cnn As ADODB.Connection
Private WithEvents rst As ADODB.Recordset
Const cPrimero = 0
Const cAnterior = 1
Const cSiguiente = 2
Const cUltimo = 3
Private Sub cmdAdd_Click()
rst.AddNew
#If TextLigados = 0 Then
Text1(0) = ""
Text1(1) = ""
Text1(2) = ""
cmdUpdate_Click
#End If
Text1(0).SetFocus
End Sub
Private Sub cmdDel_Click()
rst.Delete
On Local Error Resume Next
rst.Move 1
If Err Then
rst.MovePrevious
End If
Err = 0
End Sub
Private Sub cmdMove_Click(Index As Integer)
On Local Error Resume Next
Err = 0
Select Case Index
Case cPrimero ' Primero
rst.MoveFirst
Case cAnterior ' Anterior
rst.MovePrevious
Case cSiguiente ' Siguiente
rst.MoveNext
Case cUltimo ' Último
rst.MoveLast
End Select
If Err Then
Debug.Print Err.Description
End If
Err = 0
End Sub
Private Sub cmdUpdate_Click()
rst!Id = Text1(0)
rst!no_depen = Text1(1)
rst!numramo = Text1(2)
rst!domicilio = Text1(3)
rst!cen_adsc = Text1(4)
rst!jf_inm = Text1(5)
rst!puesto = Text1(6)
rst!fc_comun = Text1(7)
rst!hr_comun = Text1(8)
rst!re_dep = Text1(9)
rst!no_emple = Text1(10)
sBase = App.Path & "driesgos.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM dependencia", cnn, adOpenDynamic, adLockOptimistic
#If TextLigados Then
Dim i As Long
For i = 0 To 10
Set Text1(i).DataSource = rst
Next
Text1(0).DataField = "Id"
Text1(1).DataField = "no_depen"
Text1(2).DataField = "numramo"
Text1(3).DataField = "domicilio"
Text1(4).DataField = "cen_adsc"
Text1(5).DataField = "jf_inm"
Text1(6).DataField = "puesto"
Text1(7).DataField = "fc_comun"
Text1(8).DataField = "hr_comun"
Text1(9).DataField = "re_dep"
Text1(10).DataField = "no_emple"
cmdUpdate.Enabled = False
#End If
cmdUpdate.Enabled = True
End Sub