Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/09/2018 11:40
Konu Sahibi
access acemisi
Yorumlar
33
Okunma
816
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

access acemisi

Gümüş Üye
Ce.... Çe....
 59
 66
 321
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2010 64 Bit
 Dün,23:57
(20/09/2018 16:08)ozanakkaya Adlı Kullanıcıdan Alıntı: rst!sehir yerine Dlookup  ile il tablosundan ilgili kaydı almanız gerekli.
sn ozanakkaya doğrusu nasıl yapabileceğimi tam bilmiyorum 
29 nolu gönderdiğim dosya üzerinde düzenleme yaparsanız sevinirim.



Kullanici Avatari

access acemisi

Gümüş Üye
Ce.... Çe....
 59
 66
 321
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2010 64 Bit
 Dün,23:57
Biraz daha çalıştım ama .Kod çaışmadı..İncelemenizdileğiyle saygılar



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.750
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:04

Visual Basic Code
objStream.WriteText "CATEGORIES:" & DLookup("il_id", "il", "[il_id]= " & rst!sehir) & vbCrLf



Kodda Dlookup dan sonraki "il_id" yerine tablodaki iladi yazmanız gerekiyordu.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Dim objStream
Dim VcardAdi, FileName, File, encode As String
Dim rst As DAO.Recordset
Dim image_bin() As Byte
Dim GSayi As Integer
VcardAdi = Format(Date, "ddmmyyyy") & "TumKayitlar.vcf"
FileName = CurrentProject.path & "\" & VcardAdi


Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open


Set rst = CurrentDb.OpenRecordset("tbl_kisiler")
rst.MoveFirst

Me.etk_ilerle.Visible = True

GSayi = 0

Do Until rst.EOF

    If rst!secenek = Me.secenek Then
   
    objStream.WriteText "BEGIN:VCARD" & vbCrLf
    objStream.WriteText "VERSION:4.0" & vbCrLf
    objStream.WriteText "N:" & rst!soyadi & ";" & rst!adisoyadi & ";" & rst!ikinciadi & ";" & rst!unvani & vbCrLf
    objStream.WriteText "FN:" & rst!adisoyadi & " " & rst!soyadi & vbCrLf
    objStream.WriteText "ORG:" & rst!sirketbilgisi & vbCrLf
    objStream.WriteText "TITLE:" & rst!isunvani & vbCrLf
    File = CurrentProject.path & "\resimler\" & rst!fotograf
    If FileExists(File) = True Then
    Open File For Binary Access Read As #1
    ReDim image_bin(LOF(1) - 1)
    Get #1, , image_bin
    Close #1
    encode = Replace(EncodeBase64(image_bin), vbLf, vbCrLf & Space(1))
    objStream.WriteText "PHOTO;TYPE=JPEG;ENCODING=B:" & encode & vbCrLf
    End If
    objStream.WriteText "TEL;WORK;VOICE:" & rst!istelefonu & vbCrLf
    objStream.WriteText "TEL;HOME;VOICE:" & rst!evtelefonu & vbCrLf
    objStream.WriteText "TEL;CELL;VOICE:" & rst!ceptelefonu & vbCrLf
    objStream.WriteText "ADR;WORK:" & rst!isadresi & ";" & rst!issehir & ";" & rst!ispostakodu & ";" & rst!isulke & vbCrLf
    objStream.WriteText "ADR;HOME:" & rst!evadresi & ";" & DLookup("iladi", "il", "[id_il]= " & rst!sehir) & ";" & rst!evpostakodu & ";" & rst!evulke & vbCrLf
    objStream.WriteText "X-MS-OL-DEFAULT-POSTAL-ADDRESS:1" & vbCrLf
    objStream.WriteText "EMAIL;PREF;INTERNET:" & rst!epostaadresi & vbCrLf
    objStream.WriteText "URL;WORK:" & rst!websayfasi & vbCrLf
    objStream.WriteText "NOTE:" & rst!Notlar & vbCrLf
    objStream.WriteText "BDAY:" & Format(rst!dogumtarihi, "yyyy-mm-dd") & vbCrLf
    objStream.WriteText "REV:" & Format(Date, "yyyymmdd") & "T" & Format(Now(), "hhnnss") & "Z" & vbCrLf
    objStream.WriteText "CATEGORIES:" & DLookup("iladi", "il", "[id_il]= " & rst!sehir) & vbCrLf
    objStream.WriteText "CATEGORIES:" & DLookup("grupadi", "grup", "[id_grup]= " & rst!secenek) & vbCrLf
    objStream.WriteText "END:VCARD" & vbCrLf
    Me.etk_ilerle.Caption = rst!adisoyadi & " " & rst!soyadi
    GSayi = GSayi + 1
    End If
    
    rst.MoveNext
    Pause 0.5
Loop
Me.etk_ilerle.Visible = False
objStream.SaveToFile FileName, 2

Me.etk_ilerle.Visible = False

MsgBox (GSayi & " adet veri " & VcardAdi & " isimli dosyaya kaydedildi")
rst.Close
objStream.Close


"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. 

Kullanici Avatari

access acemisi

Gümüş Üye
Ce.... Çe....
 59
 66
 321
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2010 64 Bit
 Dün,23:57
Sn ozanakkaya
Teşekkür ederim...İşlem tamam. Konuyu kapatabiliriz




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Rezervasyon Tarih Ve Saat Kriterine Göre İlgili Etiketi Renklendirme. Oğuz Türkyılmaz 9 207 14/01/2019, 15:55
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sürekli Formdaki Kritere Göre Liste Kutusuna Veri Aktarımı mmert06 7 298 31/12/2018, 18:35
Son Yorum: mmert06
Çözüldü Liste Kutusuna Başlık ekleme bibib 8 227 31/12/2018, 08:02
Son Yorum: bibib
Çözüldü Liste Kutusuna Tıklandığında Diğer Liste Kutusundaki Verilerin Filtrelenmesi mmert06 11 213 27/12/2018, 02:09
Son Yorum: haliliyas
Çözüldü Toplu Ekleme Ara Değer Problemi hbal09 4 116 26/12/2018, 14:50
Son Yorum: hbal09

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