Gonzalo García
2009-05-21 22:37:15 UTC
Hola gente. Como dice el título, estoy tratando de cargar un campo de mi base
de datos a un combobox. En principio no habría ningun problema, pero al hacer
el bucle me encuentro con valores nulos, por lo que me salta el siguiente
error;
Error 94; uso no valido de null. Realmente agradecería si alguien me da una
mano con el problema. Aca les escribo el código que estoy usando.
Private Sub Form_Load()
Dim dbColegio As Database
Dim rstColegio As Recordset
Dim strSQL As String
Set dbColegio = OpenDatabase(App.Path & "\" & "dbColegio.mdb") 'abro base de
datos "dbColegio.mdb"
Set rstColegio = dbColegio.OpenRecordset("DatColegio", dbOpenTable)
With cboBuscar
.Clear
While Not rstColegio.EOF
AddItem rstColegio.Fields("Vendedor").Value
rstColegio.MoveNext
Wend
End With
Tambien me adelanto a preguntarles si una ves solucionado el problema se van
a cargar registros repetidos?. Desde ya muchas gracias.
Atte-
Gonzalo García
de datos a un combobox. En principio no habría ningun problema, pero al hacer
el bucle me encuentro con valores nulos, por lo que me salta el siguiente
error;
Error 94; uso no valido de null. Realmente agradecería si alguien me da una
mano con el problema. Aca les escribo el código que estoy usando.
Private Sub Form_Load()
Dim dbColegio As Database
Dim rstColegio As Recordset
Dim strSQL As String
Set dbColegio = OpenDatabase(App.Path & "\" & "dbColegio.mdb") 'abro base de
datos "dbColegio.mdb"
Set rstColegio = dbColegio.OpenRecordset("DatColegio", dbOpenTable)
With cboBuscar
.Clear
While Not rstColegio.EOF
AddItem rstColegio.Fields("Vendedor").Value
rstColegio.MoveNext
Wend
End With
Tambien me adelanto a preguntarles si una ves solucionado el problema se van
a cargar registros repetidos?. Desde ya muchas gracias.
Atte-
Gonzalo García