Access - casilla de verificacion

   
Vista:

casilla de verificacion

Publicado por matias exequiel (9 intervenciones) el 14/09/2017 15:48:06
Tengo estas dos tablas:
TABLA STOCK:
COMPONENTE
SERIE DEL COMPONENTE
FECHA
AVERIADO (SI/NO)

TABLA INSTALACIÓN:
NOMBRE
COMPONENTE A INSTALAR
SERIE A INSTALAR
TERMINAL
FECHA

EN EL FORMULARIO INSTALACIÓN QUIERO PONER UNA CONDICIÓN ANTES DE GUARDAR LOS DATOS, QUE VERIFIQUE EN LA TABLA STOCK SI EL NRO DE SERIE SE ENCUENTRA DISPONIBLE Y SI ESTA AVERIADO EL MISMO.
PUDE REALIZAR LO PRIMERO PERO NO LOGRO PONERLE LA CONDICION DE QUE VERIFIQUE SI ESTA AVERIADO. ESTE EL EL CODIGO:

Sub bucle()



Dim rst As dao.Recordset

Dim strSQL As String

strSQL = "SELECT [sserie] "
strSQL = strSQL & "FROM [stock] "
strSQL = strSQL & "WHERE [sserie] ='" & Me.[OKSERIE] & "'"

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)



If Not rst.EOF And Not rst.BOF Then

Call INGRESAR
Call eliminacliente

Call limpiar

Else

If Not rst Is Nothing Then


MsgBox " El número de serie es inexistente", vbInformation, "Atencion"

Me.OKSERIE.Value = ""
Me.OKSERIE.SetFocus

End If
rst.Close
Set rst = Nothing
End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

casilla de verificacion

Publicado por Neckkito (1157 intervenciones) el 15/09/2017 20:18:21
Hola!

Tu consulta se presta a confusión así como la explicas, aunque voy a entender que quieres contemplar dos situaciones, y no una sola:

1.- Mirar si existe ese número de serie y,
2.- Si existe, mirar si está averiado o no.

Sin entrar en el uso de tus llamadas a otro procedimiento, un código que podría hacerte eso sería:

...
1
2
3
4
5
6
7
8
9
If dcount("*","stock","[sserie] ='" & Me.[OKSERIE] & "'")>0 then 'Existe el número de serie
If dcount("*","stock","[sserie] ='" & Me.[OKSERIE] & "' AND Averiado=True")>0 then 'Existe y está averiado
msgbox "El artículo con ese número de serie existe pero está averiado"
Else
msgbox "El artículo con ese número de serie existe y no está averiado"
End if
Else
msgbox "El artículo con ese número de serie no existe"
end if
...

A partir de ahí tú ya haces lo que tengas que hacer en cada situación. A ver qué tal te va.

Un saludo,

Neckkito
Access MVP
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de jorge

casilla de verificacion

Publicado por jorge (239 intervenciones) el 15/09/2017 20:25:57
hasta que por fin master Neckkito dejas ver tu precensia :) e aprendido mucho de tu pagina saludos..

master :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Neckkito

casilla de verificacion

Publicado por Neckkito (1157 intervenciones) el 15/09/2017 20:28:43
Je, je... Hola Jorge

Lo cierto es que cuando uno se pone a hacer cincuenta cosas a la vez le es difícil llegar a todas partes... Pero bueno, tenía 10 minutillos y me he dado una vueltecilla por aquí, para recordar viejos tiempos

Un abrazo,

Neckkito
Access MVP
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad