+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. (/konu-vbyesno-vbyes-kod-dizisinde-hayir-secenegi-gerceklesmiyor.html)
Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. - Oğuz Türkyılmaz - 24/12/2018
Merhabalar.
Aşağıda yazdığım kod dizisinin sonucunda çıkan pencerede evet seçtiğimde mail gönderme işleminin yapılması, hayır seçeneğinde ise yapılmaması gerekiyor. Fakat şu haliyle evet seçtiğimde de gönderiyor hayır seçtiğimde de gönderiyor
arasını bulamadım. Neyi eksik yapıyorum. TeşekkürlerPrivate Sub btnE_MailGonder_Click()
If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then
End If
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim GDosyaAdi As String
GDosyaAdi = Environ("Temp") & "\" & Me.FirmaUnvan & " - " & Me.Kimlik & ".pdf"
If Len(Dir(GDosyaAdi)) > 0 Then
Kill GDosyaAdi
End If
DoCmd.OutputTo acOutputReport, "R_02_VerilenTeklifler", acFormatPDF, GDosyaAdi
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.to = Me.txtE_Mail
.Subject = "ISSE GROUP TECNOLOGIE Fiyat Teklifi"
.Attachments.Add GDosyaAdi
.Send
End With
Exit Sub
End Sub
Cvp: Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. - C*e*l*o*y*c*e - 24/12/2018
If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then
End If
Burdaki end if..en sona yazmalısın
Exit Sub
........................ buraya
End Sub
Cvp: Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. - Oğuz Türkyılmaz - 24/12/2018
(24/12/2018, 16:30)C*e*l*o*y*c*e yazdı: If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then
End If
Burdaki end if..en sona yazmalısın
Exit Sub
........................ buraya
End Sub
Teşekkür ederim nedeni konusunda bir şey söyleyebilirmisiniz, tam anlayabilmem için.
Cvp: Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. - C*e*l*o*y*c*e - 24/12/2018
neden:
Kod gayet açık,evet yani = vbYes ise
işlemi yap
değilse,çıkacak yani End if diyecek ve end sub yaparak işlemden çıkacak
ama sen önce if ile sormuşsun,sonra hemen end if ile kapatmışsın aradaki işlem diışarıda kaldıgı için evette,hayırda desen if dışı oldugu için yinede gönderiyor
yani.....
if ile başlayacak
end if ile bitecek
Cvp: Vbyesno = Vbyes Kod Dizisinde Hayır Seçeneği Gerçekleşmiyor. - Oğuz Türkyılmaz - 24/12/2018
(24/12/2018, 16:48)C*e*l*o*y*c*e yazdı: neden:End if ile bitirdim de koordinatlarda hata varmış
Kod gayet açık,evet yani = vbYes ise
işlemi yap
değilse,çıkacak yani End if diyecek ve end sub yaparak işlemden çıkacak
ama sen önce if ile sormuşsun,sonra hemen end if ile kapatmışsın aradaki işlem diışarıda kaldıgı için evette,hayırda desen if dışı oldugu için yinede gönderiyor
yani.....
if ile başlayacak
end if ile bitecek
Çok teşekkür ederim.