Access - ayuda pefi

 
Vista:

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.

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:ayuda pefi

Publicado por Carlo Cabello (5 intervenciones) el 04/04/2002 21:30:26
Aun cuando creo que el mensaje no es para mie te puedo ayudar.

CRITERIOS puede ser una variable String o una cadena. Ahora como puedes completar tu codigo

Declara una variable sCriterios (o un nombre de variable que mas te guste)

luego antes del FindFirst escribes
sCriterios="CampoCodigo=" & "' " & txtNombreCuadroTexto & "' "

luego la linea de FindFirst quedaria

RST.FindFirst sCriterios

Ten en cuenta lo siguiente:
1.- En mi ejemplo CampoCodigo lo reemplazas por el nombre del campo por el que deseas buscar el registro.
2.- "' " es un apostrofe encerrado entre comillas ya que es necesario que los datos de tipo texto sena utilizados encerrados entre apostrofes si fuera una fecha la que buscas debes encontrarse entre # (rejillas) y en formato americano es decir mm/dd/aa

Suerte
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