Anónimo
Formularios
Bueno ya contamos las veces que se abre un formulario en este caso (bienvenida) y lo almacenamos en una tabla (contador) en el campo (NumVeces) ahoraaaaaaa... Necesito que cuando por ejemplo el formulario se halla abierto 10 veces la oncena vez no abra y que se lance un mensaje de advertencia. Lo ideal también seria que apareciera otro formulario para ingresar un login para poder seguir abriendo el formulario de bienvenida... Mmmmmmmm algo complicado ...
Bueno espero tengas una solución para esto y puedas ayudarme.
Nuevamente muchas gracias por tu tiempo.
Fraternalmente brian.
Bueno espero tengas una solución para esto y puedas ayudarme.
Nuevamente muchas gracias por tu tiempo.
Fraternalmente brian.
1 respuesta
Respuesta
1
En el mismo código de apertura:
Private Sub Form_Open(Cancel As Integer)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Contador")
If Not rs.EOF Then
If rs!NumVeces=>10 then
MsgBox("El formulario ......")
else
rs.Edit
rs!numVeces = rs!numVeces + 1
rs.Update
End if
Else
rs.AddNew
rs!numVeces = 1
rs.Update
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Contador")
If Not rs.EOF Then
If rs!NumVeces=>10 then
MsgBox("El formulario ......")
else
rs.Edit
rs!numVeces = rs!numVeces + 1
rs.Update
End if
Else
rs.AddNew
rs!numVeces = 1
rs.Update
End If
End Sub