Ayuda Please
Publicado por Christian (1 intervención) el 22/07/2008 06:10:18
hola, comento, estoy realiando una aplicacion en la cual debo llenar unos formulrios los cuales contienen unos combobox , textbox, entre otros, mi problema es que logro enlazar mi base de datos asi
- priemro con un modulo
Option Explicit
'Esta variable guardara la ruta de ejecución de nuestro programa y el nombre de la base
Dim Ruta As String
Public MiBase As Database
Public MiTabla As Recordset
Public Sub EnlazarBase()
Ruta = "" & App.Path & "ase.mdb"
Set MiBase = OpenDatabase(Ruta)
Set MiTabla = MiBase.OpenRecordset("Tabla")
End Sub
luego en el formload
Private Sub Form_Load()
Call EnlazarBase
MiTabla.MoveFirst
Dim N As Integer
For N = 1 To MiTabla.RecordCount
Combo1.AddItem MiTabla("nombrecampo")
MiTabla.MoveNext
If Combo1.ListIndex = MiTabla.RecordCount Then
Exit For
End If
Next N
End Sub, pero cuando cierro la aplicacion, luego la abro y me arroja el siguiente error
error 94
uso no valido del NULL, y no se que pasa, si en primera instancia los combos me mostraban los datos y despues de un rato me rroja ese error,please alguien que me ayude
- priemro con un modulo
Option Explicit
'Esta variable guardara la ruta de ejecución de nuestro programa y el nombre de la base
Dim Ruta As String
Public MiBase As Database
Public MiTabla As Recordset
Public Sub EnlazarBase()
Ruta = "" & App.Path & "ase.mdb"
Set MiBase = OpenDatabase(Ruta)
Set MiTabla = MiBase.OpenRecordset("Tabla")
End Sub
luego en el formload
Private Sub Form_Load()
Call EnlazarBase
MiTabla.MoveFirst
Dim N As Integer
For N = 1 To MiTabla.RecordCount
Combo1.AddItem MiTabla("nombrecampo")
MiTabla.MoveNext
If Combo1.ListIndex = MiTabla.RecordCount Then
Exit For
End If
Next N
End Sub, pero cuando cierro la aplicacion, luego la abro y me arroja el siguiente error
error 94
uso no valido del NULL, y no se que pasa, si en primera instancia los combos me mostraban los datos y despues de un rato me rroja ese error,please alguien que me ayude
Valora esta pregunta


0