Tablodan Kartvizit i Excel e alma

[Osmanselim]

Arkadaşlar,
Formlarda Muskaydegsil formunda ki bazı alanları
Müşteri Kart vizit oluştur Butonuna bastığımda Musterikayıt tablosundan alıp Excel yada word a atmak istiyorum.

Almak istediğim Alanlar
Firmaadi
Yetkili1
Yetkili1_soyad
Tel1
Tel2
Fax
Gsm1
Sanayi
Cadde
Sokak
numarası
Web
email1
email2
yetkili1tcno
Vergidairesi
Vergino

Bunları sorgu ile almalıyımki adres bilgileri rakam olarak gözükmesin nasıl yapabilirim.

 

[Taruz]

Sayın Osmanselim

Merhaba,

Mevcut sorgu yapınızda sanayi ve cadde adlarını, bunların metin olarak bulunduğu kendi tablolarından, diğer bilgileride adres kayıt tablonuzdan alıp alan bölümüne atın.. Bir forma bağlayın. Form üzerine koyacağınız düğmenin tıklayınca olay yordamına şu kodu yazın:

Private Sub [COLOR=darkred]düğme[/COLOR]_Click()
On Error GoTo Err_[COLOR=darkred]düğme[/COLOR]_Click
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.Path & "\AdresKayıt.xls"
If MsgBox("Bilgiler Excele aktarılacak, emin misiniz? ", 36, "AdresKayıt.xls'e aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Adresegoreliste", Klasor, True, ""
MsgBox "Bilgiler Masaüstü'deki AdresKayıt Dosyasına Aktarıldı", 0, "Exel'e Aktarma"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
Exit_[COLOR=darkred]düğme[/COLOR]_Click:
Exit Sub
Err_[COLOR=darkred]düğme[/COLOR]_Click:
MsgBox Err.Description
Resume Exit_[COLOR=darkred]düğme[/COLOR]_Click
End Sub

Düğme yazan yerleri oluşturduğunuz düğmenin adı ile değiştirin..

Bu kod yaptığınız sorguya dayanarak masa üstüne AdresKayıt adında bir Excel dosyası oluşturacaktır.

 

[Osmanselim]

sayın TARUZ

Hocam ben tablonun tamamını alabiliyorum benim istediğim sadece ekrana çağırdığım tek bir kartın cari bilgilerini excel atmak olucak bunu nasıl yapabilirim


Mesele a firmasına fatura kesilecek a firmasını ekrana alıp bilgileri excel at sadece a firmasının bilgileri alınmalı ve ben bunu yapamıyorum benim yapabildiğim tamamını almak..

 

[Taruz]

Önce

Sorgunun aynısından bir tane daha yapın. Firmaadi alanın ölçüt kısmına

[Formlar]![Adresegoreliste]![Firmaadi]

yazın. Bu, sorgunun firma adını formdaki firma adı açılan kutusundan alıp süzmesini sağlayacak.

Sonrasında, düğmenin kodundaki

DoCmd.TransferSpreadsheet acExport, 8, "[COLOR=red]Adresegoreliste[/COLOR]", Klasor, True, ""

(renkli yazan kısmı) yeni sorgunun adı ile değiştirin.

Artık formda hangi kayıt üzerisindeyseniz veya formu süzüpte olabilir aktarma düğmesine bastığınızda sadece o kaydın bilgileri excele aktarılacaktır.

 

[Osmanselim]

Sn TARUZ

Çok teşekkürler oldu ilk başta çok karışık demiştim ama iyi anlatmışsınız üstad ellerinize sağlık
ufak bi işlemi var : liste excel e geldiğinde isimler ayrı ayrı alanlarda idi ben sorgu da "Yetkili Kişi: [Yetkili1] & [Yetkili1_soyad]" ibresini yapıca isim ve soy isim bir arada oldu ancak birbirine yapışıklar aralarını nasıl açarım.

 

[Taruz]

Bu şekilde deneyin

 [Yetkili1] & " " & [Yetkili1_soyad]

Kolay gelsin..

 

[Osmanselim]

çok teşekkürler

Hazır sizi bulmuşken Toplu mail gönderme kısmında mail adreslerini to kısmına değilde BCC (Gizli) olan kısmına nasıl aktarabilirim
Kodlarım Bunlar :


Private Sub cmdEmail_Click()

Dim rs As New ADODB.Recordset
Dim str As String
Dim Y, Z As Integer
Dim K, Q As Double

rs.Open "emails1", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Z = rs.RecordCount / 100 Mod 100

If rs.EOF = True Then
MsgBox "Herhangi bir e-mail adresi kayıtlı değil."
Else
rs.MoveFirst
K = 0
Q = 0
Do While Not rs.EOF
If IsNull(rs(0)) Then
rs.MoveNext
Else
str = str & rs(0) & ", "
rs.MoveNext
K = K + 1
If K Mod 100 = 0 And Q < Z Then

GoSub Mail
str = ""
Q = Q + 1
Else
If Q = Z And rs.EOF Then
GoSub Mail
End If
End If
End If
Loop

End If

rs.Close
Set rs = Nothing

Exit Sub

Mail:
Dim stDocName As String
stDocName = "Empty_Report"
' DoCmd.SendObject acReport, stDocName, acFormatSNP, strBCC, , , strSubject, strBody
DoCmd.SendObject acSendNoObject, stDocName, , str, , , "2. el Cnc Tezgahlarımız", , True
Return

End Sub


Teşekkürler

 

[Taruz]

Ekteki &#246;rne&#287;e bir bak&#305;n.. Bunu say&#305;n beab05 foruma eklemi&#351;ti. Standart toplu e-posta i&#231;in &#231;ok kullan&#305;&#351;l&#305; ve de ki&#351;ileri gizliden g&#246;nderiyor. Uyarlayabilirseniz, istedi&#287;iniz burda var..

 

[Osmanselim]

çok teşekkürler

deniycem teşekkürler