Onaylanmadi adlı butonun içeriğini aşağıdaki kodlar ile değiştirerek kullanmayı deneyiniz.
Private Sub Onaylanmadi_Click()
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
Dim detay As String
detay = Chr(10) & Chr(10) & " SİPARİŞ NO : " & Me.SiparisNo & Chr(10) & " ARAÇ PLAKA : " & Me.Text170 & Chr(10) & " GÖNDERİLEN BÖLGE : " & Me.Bayii_Adres & Chr(10) & Chr(10) & " ÜRÜN KODU : " & Me.ÜrünKodu & Chr(10) & " ÜRÜN EBADI : " & Me.UrunAdi & Chr(10) & " LASTİK ADEDİ : " & Me.NumOfTyres
sql = MsgBox("Aşağıda detayları verilen siparişi onaylamak istiyor musunuz?" & detay, vbYesNo + vbQuestion, "Sipariş Onayı")
If Sql = vbYes Or Sql = Me.SiparisNo Then
DoCmd.OpenForm "rapor_ana"
Forms!rapor_ana.Metin095111 = Me.SiparisNo
yol = CurrentProject.Path & "\"
dosyaadi = Me.Text170 & " - " & Me.SiparisNo & ".PDF"
DoCmd.OutputTo acOutputReport, "Kayıt Bul", acFormatPDF, yol & dosyaadi, True
DoCmd.SendObject acSendQuery, "Kayıt Bul", acFormatPDF, Me.Bayii_Mail, " ", , Me.Text170 & " - " & Me.FirmaAdi & " YENİ LASTİK FORMU ", "Sn. " & Me.Bayii_Yetkilisi & Chr(10) & Me.FirmaAdi & " adına " & Me.Text170 & " plakalı araç için tarafınıza " & Me.NumOfTyres & " Adet lastik sevk edilmiştir." & Chr(10) & "BBS girişi yapılmıştır. Yeni lastik formu ektedir. " & Chr(10) & "Servisini rica ederiz." & Chr(10) & Chr(10) & "NOT: Çıkan lastiklerin diş derinlik bilgilerinin de formun üzerine belirtilmesini rica ederim." & Chr(10) & Chr(10) & " Teşekkürler" & Chr(10) & " İyi Çalışmalar Dilerim.", True
DoCmd.SendObject , " ", " ", Me.Kullanıcı_Mail, " ", , Me.Text170 & " " & Me.LastikTipi & " LASTİĞİ DEĞİŞİMİ HK. ", "Merhaba, " & Chr(10) & Chr(10) & Me.Text170 & " plakalı aracınızın için kış lastiği sipariş girişi sağlanmıştır. Lastikleriniz en kısa sürede bayiye ulaşacaktır. Randevu alarak değişim yaptırabilirsiniz. Bayi İletişim bilgileri aşağıdaki şekildedir. " & Chr(10) & Chr(10) & Me.Bayiunvani & Chr(10) & Me.Bayii_Adres & Chr(10) & Me.Bayii_Telefon & Chr(10) & Chr(10) & " İyi Çalışmalar Dilerim.", True, ""
DoCmd.Close acForm, "rapor_ana"
sql = "update tbl_Siparis Set SiparisOnayi = -1 where siparisno = " & Me.SiparisNo
CurrentDb.Execute sql
sql = "update tbl_Siparis Set word = -1 where siparisno = " & Me.SiparisNo
CurrentDb.Execute sql
sql = "update tbl_Siparis Set tarih_mk ='" & Now() & "' WHERE siparisno =" & Me.SiparisNo
CurrentDb.Execute sql
Me.Form.Requery
Else
MsgBox "Sipariş onayı iptal edildi.", vbOKOnly + vbInformation, "Sipariş Onayı"
MsgBox "Mailler Gönderilmedi.", vbOKOnly + vbInformation, "Sipariş Onayı"
End If
Exit Sub
End Subbilginize...iyi çalışmalar,saygılar.
