No abrir formularios que no tengan registros

Teresa
31 de Diciembre del 2003
Tengo un formulario (en access), desde el que abro otro formulario, quisiera que este segundo formulario no se abra si no tiene registros.
¿Como debo hacerlo?
GRACIAS

Teresa
31 de Diciembre del 2003
Dim rst As New ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strSql As String
strSql = "SELECT ..."
Set cnn = CurrentProject.Connection
rst.Open strSql, cnn, adOpenStatic, , adCmdText
MsgBox rst.RecordCount
If rst.RecordCount = 0 Then
DoCmd.OpenForm "formulario", , , strSql
Else
MsgBox " no hay registros"
Exit Sub
End If

Jos??
31 de Diciembre del 2003
Para solventar el problema debes abrir el formulario en vista diseño. Vas a las propiedades del mismo y en el evento "Al no haber datos" generas un código o expresión que cancele el evento de apertura de dicho formulario.
Con este procedimiento comprobarás que si intentas abrir un formulario que no contiene datos, no se abre. También puedes utilizar un MSGBOX advirtiendo de la no existencia de datos; con ello darás al procedimiento un aspecto más profesional.
Un saludo

Jos??
31 de Diciembre del 2003
Para solventar el problema debes abrir el formulario en vista diseño. Vas a las propiedades del mismo y en el evento "Al no haber datos" generas un código o expresión que cancele el evento de apertura de dicho formulario.
Con este procedimiento comprobarás que si intentas abrir un formulario que no contiene datos, no se abre. También puedes utilizar un MSGBOX advirtiendo de la no existencia de datos; con ello darás al procedimiento un aspecto más profesional.
Un saludo