<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

para tu primer pregunta yo utilizo este codigo y me funciona muy bien
checalo alguna vez creo que por aqui me lo proporcionaron

Option Explicit
Dim cn As ADODB.Connection

Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset

Set cn = New ADODB.Connection
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\prueba.mdb;Jet OLEDBatabase"
.CommandTimeout = 30
.ConnectionTimeout = 30
.Open
End With

'cargas el primer combo

With rs1
.ActiveConnection = cn
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open "Select distinctcampo from tabla"
'si encontro registros entonces lo carga
If .RecordCount > 0 Then
Do While Not .EOF
combo1.AddItem !Producto
.MoveNext
Loop
Else
MsgBox "No encontre registros"
End If
End With
'descargo de memoria el recordset


Set rs1 = Nothing

End sub

espero y te sirva salu2

para hacer una busqueda con inputbox puedes probar con este codigo

Private Sub Consultar_Click()
Dim Busqueda As String
Busqueda = InputBox("Introduce el codigo de la poblacion", "BUSQUEDA")
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields!Poblacion = Busqueda Then
Exit Sub
Else
Adodc1.Recordset.MoveNext
End If
Wend
MsgBox "No existe registro"
Adodc1.Recordset.MoveLast
end sub

espero y te sirva salud2

Hola francia de venezuela, tu código está bien. El error que dá es porque el campo P0blacion es de tipo texto y la búsqueda debe estar entre comillas simples.


Prueba poniéndolo así:


Adodc1.Recordset.Find "Poblacion = '" & b & "'"
Saludos

Gracias Anibal, era eso....
Miles de besos. Ese codigo me estaba volviendo loca!!!!

Hola Ceijav.
Te cuento que me funciono bien el combobox con ese codigo. Muchas gracias.