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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

access acemisi

Gümüş Üye
Gümüş Üye
CE.... ÇE....
 59
 266
 58
 24/08/2011
0
 Çankırı
 
 Ofis 2010 64 Bit
 Bugün,12:15
(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
Gümüş Üye
CE.... ÇE....
 59
 266
 58
 24/08/2011
0
 Çankırı
 
 Ofis 2010 64 Bit
 Bugün,12:15
Biraz daha çalıştım ama .Kod çaışmadı..İncelemenizdileğiyle saygılar


Ek Dosyalar
.rar   il alanı düzenlemesi2.rar(Dosya Boyutu: 59,62 KB / İndirme Sayısı: 2)

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:19

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
Gümüş Üye
CE.... ÇE....
 59
 266
 58
 24/08/2011
0
 Çankırı
 
 Ofis 2010 64 Bit
 Bugün,12:15
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ü Alt Formda Seçilen Kategoriye Göre O Kategoride Bulunan Ürünlerin Süzülmesi 001hacker 2 68 20/09/2018, 23:07
Son Yorum: 001hacker
Çözüldü Yıla Göre Aylık Toplu Ve Yıla Göre Aylık Listbox Filtreli Rapor shephard 6 151 19/09/2018, 20:13
Son Yorum: shephard
Çözüldü Vcard İçin Favori Düzenlemesi access acemisi 4 117 14/09/2018, 18:20
Son Yorum: ozanakkaya
Çözüldü Vcard İçin Uyarlama access acemisi 7 187 02/09/2018, 12:40
Son Yorum: access acemisi
Çözüldü Vcard Türkçe Karakter Sorunu access acemisi 8 197 01/09/2018, 11:32
Son Yorum: access acemisi

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