السلام عليكم 🙂
اخي @kanory ، وبما اني ماعندي واتس اب ، فرجاء جرب الكود التالي ، علشان اللغة العربية :
Private Sub أمر15_Click()
On Error Resume Next
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.kan + 1
Langauge ELanguage.Ar
Dim fOK As Boolean
Dim strTemp As String
Forms!whatsapp.SetFocus
strTemp = Me.txtMessage
'fOK = SetClipboardData_clt(strTemp)
'copy name to clipboard
Me.txtMessage.SetFocus
Me.txtMessage.SelStart = 0
Me.txtMessage.SelLength = Len(Me.txtMessage)
DoCmd.RunCommand acCmdCopy
'=========================================================================================================
'Langauge ELanguage.en
Application.FollowHyperlink "https://wa.me/" & txtNumbers
auseTime = 40
start = Timer
Do While Timer < start + auseTime
DoEvents
Loop
Call SendKeys("~", True)
Call SendKeys("{Enter}", True)
Call SendKeys("^v", True)
Call SendKeys("{Enter}", True)
'===========================================================================================================
DoCmd.GoToRecord , , acNext
Next
MsgBox "انتهت الارقام"
End Sub
جعفر