Hi, tengo una bd de un colegio que estoy realizando en m$access, no puedo usar otra cosa, porque así me lo pidieron, por lo que me puse a hacerla, el problema que tengo es el siguiente, tengo un formulario que hice para que realizara una búsqueda para encontrar a un(os) alumno(s), tanto por rut como por nombre, etc, cuando se ingresa el o los datos en los campos del formulario, se da clic en el botón adecuado - buscar por rut, por nombre... -, y ahí ocurre el problema, porque si hay datos los filtra y los muestra sin problemas, el problema que tengo es que si el rut está correcto - ya que lo valido -, abre el form pero muestra el filtrado en blanco, y a mi me gustaría mucho saber como capturar eso para en vez de que apareciera el form, desplegar un mensaje de que no se encuentra. aquí muestro parte del código que se encarga de eso:
Código:
'Se requiere centrar el foco para acceder a una propiedad.
Me.rut_find.SetFocus
pregunta = Me.rut_find.Text
If (4 >= Len(pregunta)) Then
MsgBox "No se vale, no hay rut ", vbCritical, "No se vale"
Me.rut_find.SetFocus
Me.rut_find.Text = ""
Else
If Not (ValidaRut(rut_find)) Then
MsgBox "El rut no es correcto", vbInformation, "Error en el Rut"
Me.rut_find.SetFocus
Me.rut_find.Text = ""
Else
'Con esta instrucción, se ejecuta una consulta al
'presionar un btn
'DoCmd.OpenQuery "buscar_por_rut", acViewNormal
strsql = "SELECT Count (alumnos.rut) into resultado FROM alumnos WHERE (((alumnos.rut)=" & "'" & rut_find & "'" & "));"
DoCmd.RunSQL strsql
DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.rut_find.SetFocus
Me.rut_find.Text = ""
End If
End If
Si se dan cuenta intengo ejecutar un runsql para contar y poder guardarlo en una tabla y posteriormente sacarlo de una caja de texto y preguntar si hubo o no algun registro y entonces mostrar el mensaje, esa fue una idea que me había ilusionado, hasta que me topé con que muestra un mensaje al tratar de actualizar la tabla o querer borrarla... ¿A alguien se le ocurre como poder solucionar mi problema?.. grax de antemanos....