ayuda pefi
Publicado por auro (8 intervenciones) el 04/04/2002 02:21:58
Me enviaste este mensaje respondiendo a una pregunta mia:
Private Sub cmdEliminar_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Cnc")
If RST.RecordCount > 0 Then
RST.MoveFirst
RST.FindFirst CRITERIOS
If RST.NoMatch Then
'No Encontro registro
Else
'Encontro registro
If MsgBox("¿Está seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Eliminar registros") = vbYes Then
rst.Delete
End If
End If
Else
'No hay dato
End If
End Sub
pero donde pones criterio no se que hay que poner, ya que le quiero decir que me coja el valor del texbox que esta seleccionado para borrarlo y pongo esto:
rst.FindFirst "Cnc=" & cnc.
y despues de cnc. no se que poner ya que no existe la propiedad selected que hago????????
Gracias Pefi.
Private Sub cmdEliminar_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Cnc")
If RST.RecordCount > 0 Then
RST.MoveFirst
RST.FindFirst CRITERIOS
If RST.NoMatch Then
'No Encontro registro
Else
'Encontro registro
If MsgBox("¿Está seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Eliminar registros") = vbYes Then
rst.Delete
End If
End If
Else
'No hay dato
End If
End Sub
pero donde pones criterio no se que hay que poner, ya que le quiero decir que me coja el valor del texbox que esta seleccionado para borrarlo y pongo esto:
rst.FindFirst "Cnc=" & cnc.
y despues de cnc. no se que poner ya que no existe la propiedad selected que hago????????
Gracias Pefi.
Valora esta pregunta


0