lanzar consulta
Publicado por Mario Ramirez (40 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
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
0