Message with beep

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I try to find some solution how to notify other users who have already open
specify form in database.

Example:
I finished enter data in database and I want to inform other users connected
to database and wait for my data that can start job.
If I click to Button1, all users who have open Form1 must receive popup
message with beep "Now you can start yob!"
Thanks!
 
I would poll against a field in a table, seeking if a predefined value just
get into the field.


In form1 onTimer event handler procedure, with a not-zero timer interval (10
sec, 10000, seems fine), check the said table/field:

Declaration Section:

Private Declare Function MessageBeep Lib "user32" (ByVal Type As Long) As
Long


On timer subroutine:


if "go" = DLookup("state", "tableName") Then
'beep
MessageBeep 0

'display the message
MsgBox ...

'close the form
DoCmd.Close acForm, Me.Name,acSaveNo
end if

..


Hoping it may help,
Vanderghast, Access MVP
 
Oh, I forgot to say that to send the signal, you just change the value in
the field of the said table, and everyone pooling on the timer event will
then be automatically notified.


Vanderghast, Access MVP
 
would poll against a field in a table, seeking if a predefined value just
get into the field.


In form1 onTimer event handler procedure, with a not-zero timer interval (10
sec, 10000, seems fine), check the said table/field:

Declaration Section:

Private Declare Function MessageBeep Lib "user32" (ByVal Type As Long) As
Long


On timer subroutine:


if "go" = DLookup("state", "tableName") Then
'beep
MessageBeep 0

'display the message
MsgBox ...

'close the form
DoCmd.Close acForm, Me.Name,acSaveNo
end if

..


Hoping it may help,
Vanderghast, Access MVP
 
Thanks! I 'll try this.

„Michel Walsh“ said:
would poll against a field in a table, seeking if a predefined value just
get into the field.


In form1 onTimer event handler procedure, with a not-zero timer interval (10
sec, 10000, seems fine), check the said table/field:

Declaration Section:

Private Declare Function MessageBeep Lib "user32" (ByVal Type As Long) As
Long


On timer subroutine:


if "go" = DLookup("state", "tableName") Then
'beep
MessageBeep 0

'display the message
MsgBox ...

'close the form
DoCmd.Close acForm, Me.Name,acSaveNo
end if

..


Hoping it may help,
Vanderghast, Access MVP
Click to expand...
 
Back
Top