No encuentro la BD
Publicado por IPC (3 intervenciones) el 04/07/2007 16:52:50
Hola:
Estoy creando un procedimineto de evento. En este necesito crear una consulta a la BD, y para ello, abro la BD, abro un recorset y compruebo. El problema lo tengo al abrir la BD, y es que no la reconoce. He probado a ponerle la ruta, y tampoco. Tambien le he acortado el nombre y le he eliminado los guiones bajos por si diera problemas el nombre.
Si escojo la opción de no abrir la BD, pensando que ya la tengo abierta, también me da error, aunque eso es ya de tema de tipos de datos en el recordset, aunque tampoco tengo esto muy claro.
If Me![IdPozo].Value <> Empty Then
Dim SQL As String
Dim Db As Database 'Variable para las Bases de Datos
Dim RS As Recordset
Set Db = OpenDatabase("C:\Temp\Snt.db")
SQL = "SELECT *
FROM Acometidas
WHERE NúmeroAcom = " & Me![NúmeroAcom].Value & " AND
IdPozo = " & Me![IdPozo].Value & ";"
Set RS = Db.OpenRecordset(SQL)
If Not RS.EOF() Then
Me![NúmeroAcom].Value = 5
MsgBox ("ERROR: La acometida se encuentra repetida.")
End If
End If
Muchas gracias
Estoy creando un procedimineto de evento. En este necesito crear una consulta a la BD, y para ello, abro la BD, abro un recorset y compruebo. El problema lo tengo al abrir la BD, y es que no la reconoce. He probado a ponerle la ruta, y tampoco. Tambien le he acortado el nombre y le he eliminado los guiones bajos por si diera problemas el nombre.
Si escojo la opción de no abrir la BD, pensando que ya la tengo abierta, también me da error, aunque eso es ya de tema de tipos de datos en el recordset, aunque tampoco tengo esto muy claro.
If Me![IdPozo].Value <> Empty Then
Dim SQL As String
Dim Db As Database 'Variable para las Bases de Datos
Dim RS As Recordset
Set Db = OpenDatabase("C:\Temp\Snt.db")
SQL = "SELECT *
FROM Acometidas
WHERE NúmeroAcom = " & Me![NúmeroAcom].Value & " AND
IdPozo = " & Me![IdPozo].Value & ";"
Set RS = Db.OpenRecordset(SQL)
If Not RS.EOF() Then
Me![NúmeroAcom].Value = 5
MsgBox ("ERROR: La acometida se encuentra repetida.")
End If
End If
Muchas gracias
Valora esta pregunta


0