Message with beep

[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!

 

[Michel Walsh]

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

 

[Michel Walsh]

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

 

[Guest]

Sorry, but previous message was empty.
Can you write this message again?
Thanks!

 

[Michel Walsh]

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

 

[Guest]

Thanks! I 'll try this.

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