AccessTr.neT

Merhaba,
 
Aşağıdaki onay kodu düzenin de uzun zamandır uğraşıyorum yardımcı olabilir misiniz?
 
1-) onay butonuna tıkladığımda tbl_siparisler tablosunun tarih_mk satırına onay tarih ve saatini yazdırabilir miyiz?
2-) mail ekinde ki dosya rapor adıyla gidiyor ( Kayıt  bul ) ekli, dosya adını metin belgesinden aldırabilir miyiz?
3-) mail gönderilirken iletinden çıkılınca hata veriyor bir kod yazılabilir mi?

yardımlarınız için çok teşekkür ederim
 
Dim detayAs String
detay = Chr(10) & " SİPARİŞ NO                  : " & Me.SiparisNo & Chr(10) & " ARAÇ PLAKA               :  " & Me.Plate & Chr(10) & " GÖNDERİLEN BÖLGE  :  " & Me.bölge & 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.Plate & " - " & Me.SiparisNo & ".PDF"
DoCmd.OutputTo acReport, "Kayıt Bul", acFormatPDF, yol & dosyaadi, True, 0, acExportQualityPrint
   DoCmd.SendObject acReport, "Kayıt Bul", "PDFFormat(*.pdf)", Me.Bayii_Mail, "[email protected];", , Me.Plate & " - " & Me.FirmaAdi & " YENİ LASTİK FORMU bayii ", "Sn. " & Me.Bayii_Yetkilisi & Chr(10) & Me.FirmaAdi & " adına  " & Me.Plate & " 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, "[email protected];", , Me.Plate & "  " & Me.LastikTipi & " LASTİĞİ DEĞİŞİMİ HK. ", "Merhaba, " & Chr(10) & Chr(10) & Me.Plate & "  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) & Me.Bayii_Yetkilisi & 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 word = " & Me.Word
sql = "update tbl_Siparis Set tarih_mk = "" where tarih_mk = " & Me.tarih_mk = Now()
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
 

Sayın mehmet8x,

Öncelikle;
Siz de takdir edersiniz ki,Site Kuralları gereği lütfen tek bir konu içerisinde farklı sorular sormamaya gayret ediniz.her bir soru için,ayrı ayrı YENİ KONU açmak sureti ile hem benzer sorunlara maruz kalıp araştırma yapan üyelerin de alternatif bir konu edinmelerini sağlamış olursunuz hem de tek bir konuda farklı soruları bünyesinde barındırmak sureti ile mesaj yoğunluğunu artırmamış olursunuz.

Bu vesile ile,bu konunuzun;sadece,

Alıntı:1-) onay butonuna tıkladığımda tbl_siparisler tablosunun tarih_mk satırına onay tarih ve saatini yazdırabilir miyiz?

Talebiniz ile ilgili olması ve buna göre çözümlerin sunulması uygun görülmüştür.diğer sorularınız için lütfen,ayrı ayrı konular açınız.

Ayrıca,
Konularınızda sadece kodları dahil etmek yerine,lütfen yine Site Kuralları gereği içeriğinde farazi gerçek dışı uydurma bilgileri ve sonuçları görebilmek adına da birkaç veri içerecek şekilde örnek uygulamanızı dahil etmeniz yerinde olacaktır.

Son olarak;Bu talebinize dair şu iki yöntemi deneyebilirsiniz.

1) Tablodaki ilgili alanın VARSAYILAN DEĞER satırına,güne dair tarih ve saati,ilgili satıra

=Now()

yazmak sureti ile gösterebilirsiniz.aynı işlemi,form üzerindeki ilgili denetime de uygulayabilirsiniz.

2) Bir diğer işlem olarak da,GÜNCELLEME Sql sorgusu ile sağlayabilirsiniz.buna dair,eklediğiniz kodlarda

sql = "update tbl_Siparis Set tarih_mk = "" where tarih_mk = " & Me.tarih_mk = Now()

kod satırı ile denemek istediğiniz görülmektedir.fakat,bu kod satırını düzeltmek gerekmektedir.bu nedenle,

"UPDATE tbl_Siparis SET [tarih_mk]='" & Now() & "' WHERE [id_alan_adi]=" & Me.id_alan_adi_txt

Benzeri bir kod satırı ile (denetim ve alan adlarını kendi uygulamanıza göre değiştiriniz) kullanmayı deneyiniz.

Bilginize…iyi çalışmalar,saygılar.

Sayın, Atoz 112 

Emeğinize ve ilginize teşekkür ederim.

Saygılarımla