AccessTr.neT

sayın mehmet8x,

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 Sub

bilginize...iyi çalışmalar,saygılar.

sayın mehmet8x,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz112,

Emeğinize çok teşekkür ederim.
mail ekine dosya yine kayıt bul adıyla kaydediyor oluşturulan dosyayı kayıt edilen yerden mail ekine eklemesini sağlayabilir miyiz?

Saygılarımla

sayın mehmet8x,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz112,

Emeğinize sağlık çok teşekkür ederim.
Çalışıyor

Saygılarımla