Access - lanzar consulta

   
Vista:

lanzar consulta

Publicado por Mario Ramirez (39 intervenciones) el 31/03/2010 15:25:06
Cordila saludo,
Buenos dias apunto de preguntas e podido montar una base de datos de acuerdo a mis condiciones particulares, les agardezco mucho, hoy necesito saber como hago para lanzar una consulta en el siguiente codigo.

Private Sub cedula_BeforeUpdate(Cancel As Integer) ' activo

Dim db As Database
Dim fre As DAO.Recordset
Dim cant, cont, ident As Long
Dim sql, ced, cedula As String
Dim mesa As Integer
Set db = CurrentDb

ced = Me.cedula
ident = Me.cedula
sql = "select count(*) from cedulas where cedula = '" & ced & "'"
Set fre = db.OpenRecordset(sql, dbOpenSnapshot)
With fre
cant = fre(0)
.Close
End With
If cant = 0 Then ' no existe en la base de datos
Else
MsgBox " Esta cedula ya fue registrada "
'(como ejecuto la siguiente consulta despues de este mensaje)
'SELECT lider_activo.cedula, lider_activo.apellidos, lider_activo.nombres, lider_activo.telefono
'FROM lider_activo
'WHERE (((lider_activo.cedula)=[cedula]));
Me.Undo
End If
End Sub

para saber si la cedula existe y me diga a quien esta relacionada
Agradezco mucho su colaboracion
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:lanzar consulta

Publicado por Juan M. Afan de Ribera (16 intervenciones) el 31/03/2010 17:53:19
Hola,

errrrrr, la respuesta a tu pregunta está en el mismo código que estás posteando, no?

Al principio del código se genera una sentencia sql y se abre un recordset con ella (tu código):

sql = "select count(*) from cedulas where cedula = '" & ced & "'"
Set fre = db.OpenRecordset(sql, dbOpenSnapshot)

pues de la misma forma, tomas esa sentencia sql y abres un recordset con ella (aunque te pondré una pequeña modificación, ya que el valor [cedula] es un valor de tipo string)

Dim rs As DAO.Recordset
dim mensaje a string

sql ="SELECT cedula, apellidos, nombres, telefono " _
& "FROM lider_activo " _
& "'WHERE cedula = '" & Me.cedula & "';"

set rs = db.openrecordset(sql)

if not rs.eof then
mensaje = "Cédula " & rs("cedula") & "pertenece a: " & vbcrlf & vbcrl _
& "Pertenece a: " & vbcrlf _
& rs("nombres") & " " & rs("apellidos") & vbcrlf _
& "Teléfono: " & rs("telefono")
msgbox mensaje
end if

Saludos,
Juan M. Afan de Ribera
:-)
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