duda con codigo

11/03/2005 - 17:58 por Ricardo Hdz. | Informe spam
Hola me podrian ayudar con este codigo, me marca error de
sintaxis y no veo en donde pueda estar mal, estoy
trabajando con XP y access 2000

Dim CodigoMoldura As String
CodigoMoldura = Sheets("Sheet1").Range("A19")

Set db = OpenDatabase("C:\Documents and
Settings\administrador\Desktop\GPonce\prueba.mdb")

Set rs = db.OpenRecordset("SELECT * FROM " & Tabla1 & _
" WHERE " & Moldura & _
" = 'CodigoMoldura'", dbReadOnly)
 

Leer las respuestas

#1 Héctor Miguel
11/03/2005 - 19:47 | Informe spam
hola, Ricardo !

... este codigo, me marca error de sintaxis y no veo en donde pueda estar mal [...]
Dim CodigoMoldura As String
CodigoMoldura = Sheets("Sheet1").Range("A19")
Set db = OpenDatabase("C:\Documents and
Settings\administrador\Desktop\GPonce\prueba.mdb")
Set rs = db.OpenRecordset("SELECT * FROM " & Tabla1 & _
" WHERE " & Moldura & _
" = 'CodigoMoldura'", dbReadOnly)



si 'CodigoMoldura' es una variable de texto asignada/tomada segun una celda... observa que...
-> en la ultima linea que expones NO ha quedado como variable sino 'delimitada' por las dobles comillas :(
prueba a modificar esa ultima linea a...
-> " = '" & CodigoMoldura & '", dbReadOnly) <-

saludos,
hector.

Preguntas similares