Bir form oluşturup mesaj girişi için uzun metin formatında bir textbox ve göndermek için bir buton ekleyin ve forma örneğin Form_Whatsapp adını verin.
Gönder butonunun tıklanma olayına

Private Sub btn_WhatsAppGonder_Click()

    Dim HedefNumara As String, MesajMetni As String



    HedefNumara = "905XXXXXXXXX"    ' Uluslararası formatta girmelisiniz numarayı, tablonuzdan sorgu veya bir textbox üzerinden girebilirsiniz. 

    

    ' Mesaj yazılıp yazılmadığını kontrol edip

    If IsNull(Me.txt_UzunMetin) Or Trim(Me.txt_UzunMetin & "") = "" Then

        MsgBox "Gönderilecek mesajı giriniz.", vbExclamation

        Exit Sub

    End If



    MesajMetni = Me.txt_UzunMetin.Value



    ' WhatsApp urline gönderebilirsiniz

    Application.FollowHyperlink "https://wa.me/" & HedefNumara & "?text=" & MesajMetni

End Sub

BoxDurum adlı textboxınızın güncelleştirme sonrasında olayında bu formu örneğin
If BoxDurum = "BİTTİ" then DoCmd.OpenForm "Form_Whatsapp" gibi bir kontrol kodu ile mesaj formunu açabilir mesaj yazıp gönder butonu ile whatsapp web üzerinden mesajınızı gönderime  hazır hale getirebilirsiniz. Whatsapp Web veya WhatsApp Desktop doğrudan mesaj göndermez. Whatsapp Business hesabınız varsa MEta Console'dan alacağınız API ile doğrudan mesaj gönderebilirsiniz. Aksi halde spam filter doğrudan mesaj göndermenizi engeller, programla zorlarsanız Whatsapp hesaınızı banlar ve o numara ile bir daha Whatsapp hesabı oluşturup kullanamazsınız.