DLookUp con dos variables locales integer
Publicado por Roland (3 intervenciones) el 02/11/2022 20:58:24
Buenas amigos,
Quiero determinar con la funcion Dlookup si existe un registro concreto en una tabla. Pero algo tengo mal puesto en la cláusula WHERE y el tema de las comillas que no termino de encontrar. Las variables son Integer, así que entiendo que la comilla simple (o apóstrofe) no tengo que ponerlo. Igualmente ya probé a ponerlo y también me tira error.
¿Podríais decirme como sería la sentencia correcta? Os dejo el código. Mil gracias!
Pongo en negrita la línea que me da el error.
Error 13: Type mismatch
Dim NUMERITO, NUMERITO2 As Integer
NUMERITO1 = 1
NUMERITO2 = 2
If IsNull(DLookup("[id]", "tbl_pertenece", "[IDtipi1]=" & NUMERITO1 And "[IDtipi2]= " & NUMERITO2)) Then
rstE.AddNew
rstE!ID = i
i = i + 1
rstE!IDtipi2 = var_idtipi2
rstE!IDtipi1 = var_idtipi1
rstE.Update
Else
End If
rstL.MoveNext
Quiero determinar con la funcion Dlookup si existe un registro concreto en una tabla. Pero algo tengo mal puesto en la cláusula WHERE y el tema de las comillas que no termino de encontrar. Las variables son Integer, así que entiendo que la comilla simple (o apóstrofe) no tengo que ponerlo. Igualmente ya probé a ponerlo y también me tira error.
¿Podríais decirme como sería la sentencia correcta? Os dejo el código. Mil gracias!
Pongo en negrita la línea que me da el error.
Error 13: Type mismatch
Dim NUMERITO, NUMERITO2 As Integer
NUMERITO1 = 1
NUMERITO2 = 2
If IsNull(DLookup("[id]", "tbl_pertenece", "[IDtipi1]=" & NUMERITO1 And "[IDtipi2]= " & NUMERITO2)) Then
rstE.AddNew
rstE!ID = i
i = i + 1
rstE!IDtipi2 = var_idtipi2
rstE!IDtipi1 = var_idtipi1
rstE.Update
Else
End If
rstL.MoveNext
Valora esta pregunta
-1
