Visual Basic - ME URGE ACLARA ESTO POR FAVOR

Life is soft - evento anual de software empresarial
   
Vista:

ME URGE ACLARA ESTO POR FAVOR

Publicado por Pedrito (16 intervenciones) el 11/06/2008 15:44:54
Hola a todos;

Necesitaría la ayuda con este problemilla, haber si consigo explicarme bien. Tengo un formulario con cuadraditos de verificación, entonces cuando lo pulso me crea un registro en una tabla, y si lo quito, me tiene que eliminar el registro. Expongo lo que tengo en ese cuadradito de verificación:

Private Sub Est111_1_Click()

If Est111_1.Value <> 0 Then
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Deficiencias", dbOpenDynaset)
rst.AddNew
rst!Codigo = "1.1.1"
rst!Ninforme = Me.Ninforme
rst!Deficiencia = "Daños estructurales"
rst!Calificacion = "M"
rst![D_o_M] = "D"
rst.Update
rst.Close: Set rst = Nothing
End If

If Est111_1.Value = 0 Then
Set rst = CurrentDb.OpenRecordset("Select * From Deficiencias Where Codigo='" & 1.1.1 & "'And Ninforme='" & Me.Ninforme & "'And [D_o_M]='" & D
& "'", dbOpenDynaset)
If Not rst.EOF Then
rst.Delete
Else
MsgBox "No se ha encontrado ningún registro con los 3 campos coincidentes", vbInformation, "Aviso"
End If
rst.Close: Set rst = Nothing
End If

En el segundo If, a parte de darme error, no me funciona, es que para que borre el registro tienen que darse que Codigo, Ninforme y D_o_M, sean igual que al registro que hay en la tabla de Deficiencias.

Un saludo,

Pedrito
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

RE:ME URGE ACLARA ESTO POR FAVOR

Publicado por lolo (163 intervenciones) el 11/06/2008 23:35:14
En el segundo If, a parte de darme error, no me funciona,

Evidentemente, si te da error es que no funciona
pero la pregunta es ¿cual es el error que te da?

lolito
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