Error en un modulo
Tengo un bd en acess 2000 y estoy haciendo una "alarma" mediante un modulo que al abrir la bd se ejecute, tengo una tabla llamada shiptooriginalcommitdate y en ella están los campos: Part Number, Ship to Original Commit Date, Promise Date Ohmite, entre otros.
Este es el código para la "alarma"
Function RevisarFechasVencidas()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String
strSql = "SELECT Ship_to_Original_commit_date, Part_Number FROM shiptooriginalcommitdate"
Set rst = CurrentDb.OpenRecordset("strSql", dbOpenDynaset)
If rst.EOF = False Then
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
If rst!Ship_to_Original_Commit_Date = Date Then
MsgBox rst!Part_Number, vbCritical, "Orden Vencida"
End If
rst.MoveNext
Loop
End If
rst.Close
End Function
¿Pero me dice que no encuentra la tabla o consulta y me marca error (el error es lo que esta subrayado y en negritas) tienes alguna idea de por que me marke error?
Este es el código para la "alarma"
Function RevisarFechasVencidas()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String
strSql = "SELECT Ship_to_Original_commit_date, Part_Number FROM shiptooriginalcommitdate"
Set rst = CurrentDb.OpenRecordset("strSql", dbOpenDynaset)
If rst.EOF = False Then
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
If rst!Ship_to_Original_Commit_Date = Date Then
MsgBox rst!Part_Number, vbCritical, "Orden Vencida"
End If
rst.MoveNext
Loop
End If
rst.Close
End Function
¿Pero me dice que no encuentra la tabla o consulta y me marca error (el error es lo que esta subrayado y en negritas) tienes alguna idea de por que me marke error?
1 Respuesta
Respuesta de josecmf
1
Creo que con que quites las comillas, basta:
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
Lo que tu le estabas diciendo es que buscara una tabla de nombre strSql, no le estabas dando el texto de la instrucción SQL.
Prueba y seguimos depurando.
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
Lo que tu le estabas diciendo es que buscara una tabla de nombre strSql, no le estabas dando el texto de la instrucción SQL.
Prueba y seguimos depurando.
