Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
29/01/2018 22:05
Konu Sahibi
Mr.Midnight
Yorumlar
1
Okunma
568
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Mr.Midnight

Mr.Midnight

Üye
94424
Gö.... Ur....
 38
 5
 18
 30/12/2017
0
 Tekirdağ
 Lojistik
 Ofis 2016 32 Bit
 25/06/2019,12:16
Çözüldü 
Merhaba;
Kaydetme ve outlookdan mail gönderme kodlarımı tek bir butona aşağıdaki kullandım. Ancak kodda mail adresini tablodan buldurduğum adrs değişkenini yazdığım kod kabul etmiyor. Maili gönderme yapacağım adres değişkenlik içeriyor. Ancak yazdığım kod mail adresini koda direkt yazmamı istiyor. Bu durumu nasıl aşabilirim aceba yardımcı olabilirmisiniz...

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub btnMail1_Click()


  If IsNull(YuklemeYapDepo) Or IsNull(Acenta) Or IsNull(Ulke) Or IsNull(Sehir) Or IsNull(KonteynirTip) Then
      MsgBox "Lütfen zorunlu alanları boş bırakmayınız", vbExclamation + vbOKOnly, "İşlem Hatası"
           
    Else
      
      'Bilgileri Kaydet
      DoCmd.RunCommand acCmdSaveRecord
      'Mail Gönder
      Dim adrs As String
      adrs = DLookup("Email", "tblKullanici", "[kAdi]= '" & Me.txtKullaniciAdi & "'")
      
      DoCmd.OpenReport "KonteynirTalepFormu", acViewPreview, , "TalepNo=" & Me.TalepNo, acWindowNormal

      DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", "adrs;", , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False
      DoCmd.Close acReport, "KonteynirTalepFormu"
      
      MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"
      TumDenetimAktif
      
    End If
End Sub




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Merhaba, 
Tanımlamadaki Dlookup kodu düzgün çalıştığını varsayarsak,


Visual Basic Code
DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", "adrs;", , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False



buradaki "adrs;" kısmının adrs şeklinde olması gerekli. 



Visual Basic Code
DoCmd.SendObject acSendReport, "KonteynirTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Konteynır Talep Raporu", "Ekteki talebi işleme almanızı rica ederim ", False


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 290 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Access Hatası FulyaTekin 4 159 01/05/2019, 15:06
Son Yorum: FulyaTekin
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 298 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Locked Fonksiyonu Yok Hatası okumas 3 140 26/04/2019, 11:31
Son Yorum: halily
Çözüldü İfade Başvuru Hatası U.ALTUN 7 476 18/04/2019, 12:27
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.