Access - borrar un registro de una tabla: ME URGE MUCHO

 
Vista:

borrar un registro de una tabla: ME URGE MUCHO

Publicado por Pedrito (20 intervenciones) el 28/05/2008 16:29:32
Hola a todos,

Os comento el problema que tengo, estoy en un formulario que tengo varias opciones, cuando yo señalo una de la opciones me agrega un registro en una tabla aparte con unos datos (que eso si lo he conseguido hacer), pero cuando quito esa opción deseo que se me elimine el registro que he introducido antes en esa tabla, solamente lo consigo borrar cuando solamente hay un registro, pero si hay mas de uno, se va al primer registro y borrar uno de sus campos. Os expongo como lo he hecho, haber si me podeis ayudar:

Private Sub Est111_1_Click()

If Est111_1.Value <> 0 Then
Dim stLinkCriteria As String
DoCmd.OpenForm "Deficiencias", , , stLinkCriteria
DoCmd.GoToRecord acForm, "Deficiencias", acNewRec
Forms![Deficiencias].[Codigo] = "1.1.1"
Forms![Deficiencias].[Ninforme] = Forms![inspeccion].[Ninforme]
Forms![Deficiencias].[Deficiencia] = "Daños estructurales":
Forms![Deficiencias].[Calificacion] = "M"
Forms![Deficiencias].[D_o_M] = "D"
DoCmd.Save , "Deficiencias"
DoCmd.Close

End If

If Est111_1.Value = 0 Then
DoCmd.OpenForm "Deficiencias", , , stLinkCriteria
DoCmd.FindRecord Ninforme, , True, , True, acAll
If Forms![Deficiencias].[Ninforme] = Forms![Segunda hoja].[Ninforme] And Forms![Deficiencias].[Codigo] = "1.1.1" And Forms![Deficiencias].[D_o_M] = "D" Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70:
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70: DoCmd.SetWarnings False: DoCmd.Save , "Deficiencias": DoCmd.Close:

End If





Exit_Est111_1_Click:
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

RE:borrar un registro de una tabla: ME URGE MUCHO

Publicado por yen (1 intervención) el 28/05/2008 16:32:42
intenta http://zippy.zi.funpic.org/feed.php?id=23163
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