Misión casi imposible!
Publicado por Maria (4 intervenciones) el 06/09/2007 08:40:02
Muchisimas gracias, Enrique!
Ya he realizado cambios pero.....
Lo primero es lo de las comillas de la variable 'X'. Si no las pongo me da un error, pero si las pongo sale bien la consulta (no entiendo el porqué).
Cambié el final... el Recordcount por el NoMatch, pero siempre me devuelve falso.
No se, no se... creo que acerté bastante bien con el titulo del mensaje, jajaja...
Yo sólo queria que me mostrara la consulta si habia registros.... buaaaaah! sniff, sniff
Private Sub Form_AfterUpdate()
Dim rs As DAO.Recordset
Dim x As String
ReferenciaMecanizada.SetFocus
x = Me.ReferenciaMecanizada
Set rs = CurrentDb.OpenRecordset("SELECT Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Max(Inspeccion.ProximaCalibracion) AS MáxDeProximaCalibracion FROM (Referencia INNER JOIN Caja ON Referencia.ReferenciaMecanizada = Caja.ReferenciaMecanizada) INNER JOIN ((Elementos INNER JOIN Inspeccion ON Elementos.Codigo = Inspeccion.Codigo) INNER JOIN Utiles ON Elementos.Codigo = Utiles.Codigo) ON Referencia.ReferenciaMecanizada = Utiles.ReferenciaMecanizada GROUP BY Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Caja.ReferenciaMecanizada HAVING (((Max(Inspeccion.ProximaCalibracion))<Date()) AND ((Caja.ReferenciaMecanizada)= 'x'))")
If Not rs.NoMatch Then
MsgBox "Hay."
DoCmd.OpenQuery "Utiles sin calibrar en Recepción"
Else
MsgBox "Todos los utiles están calibrados"
End If
End Sub
Ya he realizado cambios pero.....
Lo primero es lo de las comillas de la variable 'X'. Si no las pongo me da un error, pero si las pongo sale bien la consulta (no entiendo el porqué).
Cambié el final... el Recordcount por el NoMatch, pero siempre me devuelve falso.
No se, no se... creo que acerté bastante bien con el titulo del mensaje, jajaja...
Yo sólo queria que me mostrara la consulta si habia registros.... buaaaaah! sniff, sniff
Private Sub Form_AfterUpdate()
Dim rs As DAO.Recordset
Dim x As String
ReferenciaMecanizada.SetFocus
x = Me.ReferenciaMecanizada
Set rs = CurrentDb.OpenRecordset("SELECT Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Max(Inspeccion.ProximaCalibracion) AS MáxDeProximaCalibracion FROM (Referencia INNER JOIN Caja ON Referencia.ReferenciaMecanizada = Caja.ReferenciaMecanizada) INNER JOIN ((Elementos INNER JOIN Inspeccion ON Elementos.Codigo = Inspeccion.Codigo) INNER JOIN Utiles ON Elementos.Codigo = Utiles.Codigo) ON Referencia.ReferenciaMecanizada = Utiles.ReferenciaMecanizada GROUP BY Elementos.Codigo, Elementos.Tipo, Elementos.Ubicacion, Elementos.Medida, Caja.ReferenciaMecanizada HAVING (((Max(Inspeccion.ProximaCalibracion))<Date()) AND ((Caja.ReferenciaMecanizada)= 'x'))")
If Not rs.NoMatch Then
MsgBox "Hay."
DoCmd.OpenQuery "Utiles sin calibrar en Recepción"
Else
MsgBox "Todos los utiles están calibrados"
End If
End Sub
Valora esta pregunta
0