p***@gmail.com
2013-11-15 19:42:15 UTC
Buenas, les cuento mi problema esque al intentar ejecutar findfirst con una variable que declare como recordset me da erro les muestro el codigo
Dim mb As Database, personas As Recordset
Private Sub Command1_Click()
Dim nombre As String
nombre = "a"
'Data1.Recordset.FindFirst "Nombre= '" & nombre & "'"
personas.FindFirst "Nombre= '" & nombre & "'"
If personas.NoMatch Then
Print "No existe nobmre"
Else
Print personas.Fields("Nombre")
Print personas.Fields("Rut")
End If
End Sub
Private Sub Form_Load()
ruta = App.Path ' Donde se abre archivo
Set mb = OpenDatabase(ruta & "\tabla1.mdb")
Set personas = mb.OpenRecordset("personas")
End Sub
Bueno solo estaba estudiando y cree una tabla simple q le puse personas y a un campo le puse nombre "Nombre" y le actualize con nombre a, lo que pasa esque al utilizar data no tengo problemas pero al usar esto de set, recordset no puedo ejecutarlo si me ayudan me serviria mucho desde ya gracias
Dim mb As Database, personas As Recordset
Private Sub Command1_Click()
Dim nombre As String
nombre = "a"
'Data1.Recordset.FindFirst "Nombre= '" & nombre & "'"
personas.FindFirst "Nombre= '" & nombre & "'"
If personas.NoMatch Then
Print "No existe nobmre"
Else
Print personas.Fields("Nombre")
Print personas.Fields("Rut")
End If
End Sub
Private Sub Form_Load()
ruta = App.Path ' Donde se abre archivo
Set mb = OpenDatabase(ruta & "\tabla1.mdb")
Set personas = mb.OpenRecordset("personas")
End Sub
Bueno solo estaba estudiando y cree una tabla simple q le puse personas y a un campo le puse nombre "Nombre" y le actualize con nombre a, lo que pasa esque al utilizar data no tengo problemas pero al usar esto de set, recordset no puedo ejecutarlo si me ayudan me serviria mucho desde ya gracias