<DIV align=left>Hola a todos...Soy nueva por aqui
Tengodos problemitas con VB:
Resulta que tengo una base de datos en Access que posee tres tablas, Trabajadores, TCPoblacion y productos que ya estan conectadas a mis formularios de VB. Trabajadores posee un campo llamado poblacion el cual es un cuadro combinado que posee todas las poblaciones que estan en la tabla TCPoblacion.
1º.........En el formulario de VB tengo un combobox que me despliega, igual que access las poblaciones de TCPoblacion. Pero cuando lo corro resulta que no me despliega nada y solo me coloca la poblacion actual. ¿Seria conveniente utilizar otro objeto?
2º ........Por otro lado, cuando intetento realizar una consulta me da un error. El codigo es el siguiente
Private Sub Consultar_Click()
If Option1 = True Then
Dim a As Long
a = InputBox("Introduce el codigo de poblacion que buscas")
Adodc1.Recordset.Find "Codigo= " & a
If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
Err.Clear
MsgBox "No existe la poblacion."
End If
End If
If Option2 = True Then
dim b as string
b = InputBox("Introduce el nombre de la poblacion que buscas", , "Nombre de la poblacion")
Adodc1.Recordset.Find "Poblacion= " & b
If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
Err.Clear
MsgBox "No existe la poblacion."
End If
End If
End Sub
"consultar" es un commandButton. Cuando tildo alguna de las dos opciones le doy a consultar y me despliega un inputbox; meto el codigo de la poblacion y me refleja los otros campos en el formulario.
Pero cuando intento consultar por el nombre de la poblacion me da un error:
<DIV align=center>Error '3001' en tiempo de ejecucion:
Argumentos incorrectos, fuera del intervalo o en conflicto con otros
<DIV align=left>y me señala la linea que esta subrrayada arriba.......
Por favor, necesito ayuda..................
Se los ruego