Continuacion de la consulta....
Publicado por ZYRYUS (29 intervenciones) el 12/01/2001 00:00:00
Si os acordais, el problema es que cuando selecciono un nombre de la lista de un combobox, deberian de aparecer el resto de los campos asociados a ese nombre en los textbox correspondientes.Sale un error:"3070" El motor de la base de datos JET no reconoce ´True´ como un nombre de campo o expresion validos"
A continuacion os pongo el codigo que he hecho,esta en DAO, corregidme por favor:
´he utilizado un dbcombo en lugar del combobox normal
Private Sub Form_Load()
Dim basedatos As String
basedatos = App.Path & "\JLBA.mdb"
datClientes.DatabaseName = basedatos
datClientes.Refresh
´***********************************
Dim consulta As String
consulta = "select Clientes.* from Clientes"
datClientes.RecordSource = consulta
datClientes.Refresh
______________________________________________
Private Sub cboCliente_Change()
datClientes.Recordset.FindFirst datClientes.Recordset("Nombre") = cboCliente.Text
cboCliente.Refresh
datClientes.Refresh
End Sub
A continuacion os pongo el codigo que he hecho,esta en DAO, corregidme por favor:
´he utilizado un dbcombo en lugar del combobox normal
Private Sub Form_Load()
Dim basedatos As String
basedatos = App.Path & "\JLBA.mdb"
datClientes.DatabaseName = basedatos
datClientes.Refresh
´***********************************
Dim consulta As String
consulta = "select Clientes.* from Clientes"
datClientes.RecordSource = consulta
datClientes.Refresh
______________________________________________
Private Sub cboCliente_Change()
datClientes.Recordset.FindFirst datClientes.Recordset("Nombre") = cboCliente.Text
cboCliente.Refresh
datClientes.Refresh
End Sub
Valora esta pregunta


0