Skip to main content

AccessTr.neT


Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek

Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek

#1
Merhaba değerli hocalarım. Access raporuma Rapor Al ve Eposta Gönder işlevlerini aynı komut düğmesine yapmak istiyorum. Bu konuda da yardımcı olurmusunuz?


Merhaba öncelikle düzeltme ve bilgilendirmeniz için teşekkür. Ekteki Örneğimde rapor bölümünde yapmak istediğim mevcut raporu özetlemek ve e posta göndermek. Özet raporda kastım Kaç tane kargocu, kaçtane misafir, kaçtane sipariş gelmiş bunları alabileceğim bir rapor oluşturmak.
.rar MuratD.rar (Dosya Boyutu: 22,41 KB | İndirme Sayısı: 1)
Son Düzenleme: 16/11/2016, 15:27, Düzenleyen: murat dikme.
Cevapla
#2
Merhaba, sorularınızı Site Kurallarımızı uygun olarak açınız. Örnek uygulamanızı ekleyiniz.

(06/07/2009, 23:57)AccessTr.neT yazdı: 3-a) Sorulara örnek uygulama eklemek zorunludur.  
b) Ekleyeceğiniz dosyaların içinde resim vb. yer kaplayacak şeyleri siliniz. Gereksiz tüm verileri silip sadece sorunu anlatacak örnek veri giriniz ve asla gerçek şahıs/kurumlara ait veri bırakmayınız.
c) Uygulamanız ile birlikte resim klasörü, yedek klasörü vs. örnek uygulama harici gereksiz döküman eklemeyiniz.
ç) Ekleyeceğiniz örnek uygulamaya sadece sorunuz ile ilgili olan formu, raporu ve bunların kayıt kaynağı olan tabloları ve sorguları ekleyiniz. Diğer tüm nesneleri veritabanından siliniz.
d) Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız.
[Resim: bilgi.png] Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi Resimli Anlatım  [Resim: external_link.png]
e) Örnek uygulamanızın adını veya rar/zip adını “örnek”, “deneme”, “yeni microsoft Access veritabanı”,“database”,“yeni klasör”, “soru” vs. isimlerle göndermeyiniz, kullanıcı adınızı ve/veya kısa başlık giriniz.
Cevapla
#3
sayın ozan bey'in yazdıklarına ilave olarak,

KONU BAŞLIĞI;
(hem içeriği itibarı ile hem de site arama işlemlerinde benzer sorunlarda alternatif kolaylık sağlaması adına)

"Komut Düğmesi hk" ifadesi yerine,
"Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek" olarak değiştirilmiştir.

bilginize.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
Umarım anlatabilmişimdir.
Son Düzenleme: 16/11/2016, 14:25, Düzenleyen: murat dikme.
Cevapla
#5
(11/11/2016, 03:22)murat dikme yazdı: Özet raporda kastım Kaç tane kargocu, kaçtane misafir, kaçtane sipariş gelmiş bunları alabileceğim bir rapor oluşturmak.

Bu bahsettiğiniz mevzunun konu başlığı ile ilgisi yok.

Raporu excele aktarmak için

DoCmd.OutputTo acReport, "GELEN", acFormatXLS, CurrentProject.Path & "\Raporum.XLS"
Kodunu kullanabilirsin

Excele aktarılan raporu mail olarak göndermek için

Dim iMsg, iConf, Flds, schema, strRecip
Dim i As Integer
Dim strChar, GRapor As String


DoCmd.OutputTo acReport, "GELEN", acFormatXLS, CurrentProject.Path & "\Raporum.XLS"

GRapor = CurrentProject.Path & "\Raporum.XLS"


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "gondericiemail@gmail.com"
Flds.Item(schema & "sendpassword") = "gmail şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "[email protected]"
.From = "gondericiemail@gmail.com"
.Subject = "Mail Başlığı"
.HTMLBody = "mail İçeriği"
.Sender = "gondericiemail@gmail.com"
.Organization = "gondericiemail@gmail.com"
.ReplyTo = "gondericiemail@gmail.com"
If Not IsMissing(GRapor) Then
If Nz(Len(GRapor), 0) > 0 Then
   strRecip = ""
For i = 1 To Len(GRapor)
strChar = Mid(GRapor, i, 1)
If strChar = ";" Then
.AddAttachment (strRecip)
strRecip = ""
Else
strRecip = strRecip & strChar
End If
Next i
If Nz(Len(strRecip), 0) > 0 Then
.AddAttachment strRecip
End If
End If
End If

Set .Configuration = iConf
.Send

End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
kodunu kullanabilirsiniz.

Koddaki [email protected] alıcının mail adresi, gondericiemail@gmail.com göndericinin gmail adresi, "gmail şifreniz" ise göndericinin gmail şifresidir.
Cevapla
#6
Hocam öncelikle ilginize teşekkür ederim. Konu başlığı için doğru cümleyi kuramadık galiba. Aslında yapmak istediğim işleri tek başlıkta toplamaktan olsa gerek bunun için kusura bakmayın. kodları deneyip size hemen döneceğim. İlginize tekrar teşekkür ederim.
Son Düzenleme: 17/11/2016, 00:46, Düzenleyen: murat dikme. (Sebep: dosya yükleme)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task