Anónimo
Dudas con QRY's ejecutadas desde Formulario
Quiero ejecutar una consulta desde un formulario (apretando un botón), los valores que me salgan aparezcan en los textbox del formulario, y en el caso que no tenga ningún resultado me salga un mensaje.
Gracias
Gracias
1 Respuesta
Respuesta de ohmygood
1
Crea el formulario utilizando por ejemplo el asistente, basado en la tabla, luego pones el botón y puedes poner un código similar a éste en el mismo:
Dim sqlstring As String
sqlstring = "select * from nombres where ciudad = 'barcelona'"
Me.RecordSource = sqlstring
If Me.Recordset.EOF And Me.Recordset.BOF Then
MsgBox "No se existe ninguno igual, se mostrarán todos los registros."
Me.RecordSource = "select * from nombres"
End If
Pruébalo.
Dim sqlstring As String
sqlstring = "select * from nombres where ciudad = 'barcelona'"
Me.RecordSource = sqlstring
If Me.Recordset.EOF And Me.Recordset.BOF Then
MsgBox "No se existe ninguno igual, se mostrarán todos los registros."
Me.RecordSource = "select * from nombres"
End If
Pruébalo.