How to send live message and notification to all the Access Database frontend users

[iamroshm]

I am new to Access VBA. We have an Access database which 20 staff are working together . i want a anyone to help me set up the popup message and notification to all the active users. The backend database is put on the company network drive. Much appriciated if anyone could give me VBA codes, thanks for your kindness in advance. I cannot access external websites from my office PC. I request some one to send me full VBA code so that I can copy and send it to my official email address and use it on our database .

Thanks in advance

[NeoPa]

Hi Rosh.

Welcome to Bytes.com :-)

Please understand that we are not comfortable with requests for free code to be done for you. See How to ask "good" questions -- READ BEFORE SUBMITTING A QUESTION! for what we are expecting to work with as volunteers offering our expertise here for free.

While this thread is always visible at the top of the forum we certainly don't get surprised when we find some new members have not read it, so don't get hung up on getting it wrong. We don't.

Simply figure out if what we offer can be of help to you (Sometimes it can't.) and, if it can, then post a thread which conforms to the requirements and we can take it from there.

[isladogs]

I agree with @NeoPa's comments.
In any case, any code that could be provided would need to be edited by you to alter it for your system

With that in mind, see the attached Almost Instant Messenger app which was posted some time ago at another forum.
Its not my code and its very much up to you to see whether it can be adapted for your purposes

[iamroshm]

Sorry for the late reply.

We don't have access to external files. Neither we can receive an external database that's why asked for vba codes. I have found the below code from the forum but it's not running throwing errors.

My table name is message
Textbox is message body
Command button is Btnsend
Listbox is Txtmessagelist


I have changed the details to match with mine
But it's throwing errors. I don't know how to trouble shoot
Please help.What is missing in this code.

Thanks in advance

The code is

Private Sub Form_Load()

Me.txtuserbase = strUserbase**' shows where is the working property
Me.txtCurrentUser = strCurrentUserName 'shows the user name

End Sub

Private Sub Send_Click()
If Me.message = Null Then

MsgBox " Can't send blank message"

Else
' to save the message to a table called message_history
Set rs = New ADODB.Recordset
StrTemp = "Select * From message_history"
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("sender") = Me![txtCurrentUser]
rs("message") = Me![message]
rs("time") = Now
rs("receiver") = ""
rs.Update
rs.close
Set rs = Nothing

Me.message = Null
Me.message.SetFocus
history.Requery
End If
End Sub

'timer to load and refresh data in the listbox
Private Sub Form_Timer()
history.Requery
Dim sList As String
Set myrs = New ADODB.Recordset
StrTemp = "Select * From message_history"
myrs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

While Not myrs.EOF
sList = sList & myrs(0) & ";" & myrs(1) & ";"
myrs.MoveNext
Wend
history.RowSource = sList
myrs.close
Set myrs = Nothing
End Sub