!!!URGENTE!!!
Publicado por Pedrito (20 intervenciones) el 15/09/2008 11:15:18
Hola a todos,
Estoy realizando un programa en Access, por el cual introduzco unos datos de grúas con o sin deficiencias, cuando tienen deficiencias, selecciono las deficiencias, pues he ahí donde tengo el error, que cuando doy a seleccionar una deficiencia me lo hace bien, y me lo añade a una base de datos, pero cuando quito la deficiencia y me lo tiene que borrar me da error.
Esto es lo que he puesto:
Private Sub Est111_1_Click()
Dim rst As DAO.Recordset
If Est111_1.Value <> 0 Then
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
Gracias,
Pedro
Estoy realizando un programa en Access, por el cual introduzco unos datos de grúas con o sin deficiencias, cuando tienen deficiencias, selecciono las deficiencias, pues he ahí donde tengo el error, que cuando doy a seleccionar una deficiencia me lo hace bien, y me lo añade a una base de datos, pero cuando quito la deficiencia y me lo tiene que borrar me da error.
Esto es lo que he puesto:
Private Sub Est111_1_Click()
Dim rst As DAO.Recordset
If Est111_1.Value <> 0 Then
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
Gracias,
Pedro
Valora esta pregunta
0