Anónimo
Problemita en visual basic!
Buenos días tengo un problemita estoy programando en visual basiv 6.0 edición empresarial, estoy haciendo una búsqueda por un combo y el visual me tira este error... "variable de tipo object o la variable del bloque with no esta establecida (91)".espero puedan ayudarme... Gracias!
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo = " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1 = Data1.Recordset.Fields("Codigo")
Text2 = Data1.Recordset.Fields("Nombre")
Text3 = Data1.Recordset.Fields("Horas")
Text4 = Data1.Recordset.Fields("Dias")
Text5 = Data1.Recordset.Fields("Renovacion")
Text6 = Data1.Recordset.Fields("Expedicion")
End If
End Sub
Private Sub Combo1_GotFocus()
Combo1.Clear
Data1.RecordSource = "Avanzados"
Data1.Refresh
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
Combo1.AddItem (Data1.Recordset.Fields("Codigo"))
Data1.Recordset.MoveNext
Wend
End Sub
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo = " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1 = Data1.Recordset.Fields("Codigo")
Text2 = Data1.Recordset.Fields("Nombre")
Text3 = Data1.Recordset.Fields("Horas")
Text4 = Data1.Recordset.Fields("Dias")
Text5 = Data1.Recordset.Fields("Renovacion")
Text6 = Data1.Recordset.Fields("Expedicion")
End If
End Sub
Private Sub Combo1_GotFocus()
Combo1.Clear
Data1.RecordSource = "Avanzados"
Data1.Refresh
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
Combo1.AddItem (Data1.Recordset.Fields("Codigo"))
Data1.Recordset.MoveNext
Wend
End Sub
1 respuesta
Respuesta de ifrancoz
1
Lo más probable es que falta relacionar el control de datos con la base de datos.
En el Evento Load de la forma favor colocar lo siguiente :
Data1. DatabaseName = Ruta y nombre de la base de datos
Data1. Refresh
Suerte !
En el Evento Load de la forma favor colocar lo siguiente :
Data1. DatabaseName = Ruta y nombre de la base de datos
Data1. Refresh
Suerte !