Access - casilla de verificacion

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

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:

...
...

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

hasta que por fin master Neckkito dejas ver tu precensia :) e aprendido mucho de tu pagina saludos..

master :)

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