MsgBox Yardımı

[musaagac]

Arkadaşlar benim user formda 2 tane textbox um var. bunlara tarih giriyorum

tarih girdikten sonra bana

MsgBox "1 textboxtaki tarih" ile "2 textboxtaki tarih" sorgulanacaktır. iptal devam versin yapmak istiyorum yardımcı olurmusunuz

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Dim Onay, T1 As Date, T2 As Date
    
    If TextBox1 = "" Or TextBox2 = "" Then
        MsgBox "Sorgulanacak tarihleri kontrol ediniz!", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
    
    T1 = Format(TextBox1, "dd.mm.yyyy")
    T2 = Format(TextBox2, "dd.mm.yyyy")
    
    Onay = MsgBox(T1 & " / " & T2 & " tarihleri sorgulanacaktır." & Chr(10) & _
           "İşleme devam etmek istiyor musunuz?", vbExclamation + vbYesNo)
    If Onay = vbYes Then
        'İşlemleri yapan kodlarınızı bu bölüme yazınız...
    Else
        MsgBox "İşleminiz iptal edilmiştir."
    End If
End Sub