[FORM] Gmaile Etiket Oluşturma
#85
Sn Hocam
ismin yanında meslek gözükmesini istedim. 
resimdeki gibi yaptım. Gmailde ismin yanında rakamsal ifade çıktı. Nz diye başlayan kod gerekiyor galiba


Eklenti Dosyaları
.jpg   meslegi.JPG (Boyut: 95,55 KB / İndirilme: 9)
.rar   gmaile etiket_85_meslek-rakamsal_var.rar (Boyut: 62,25 KB / İndirilme: 3)



  Alıntı
Bu mesajı beğenenler:
#86
(31-05-2024, 11:29)Access Ziyaretçisi demiş ki: ismin yanında meslek gözükmesini istedim. 
resimdeki gibi yaptım. Gmailde ismin yanında rakamsal ifade çıktı. Nz diye başlayan kod gerekiyor galiba

Sn Hocam,
Tabloda mesleği olan alan açılan kutu, GSorgum içine dcount(... meslegi alanı konmalı.(GSorgum içinde meslegi alanını bulamadım.)

Gmail formatı kendine özgün olup, sizin belirleyeceğiniz yöntemi kabul edeceğini sanmıyorum.
VBA kodun içinde hangi başlıkların olduğunu anlamak için GMail kişilere bildiğiniz bir kimliğe ait tüm bilgileri girip, kişiye ait verileri Gmail de dışa aktar ile vcard oluşturulan dosyayı not defteri ile açıp hangi başlık altında verilerin yerleştirileceğini tespit edebilirsiniz.

Kodlarınızın arasında
objStream.WriteText "TITLE:" & rst!isunvani & vbCrLf
satırına kişi mesleğini yükleyebilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#87
Sn hocam böyle yazdım hata verdi


Eklenti Dosyaları
.jpg   meslek_alan_hatasi.JPG (Boyut: 15,85 KB / İndirilme: 13)



  Alıntı
Bu mesajı beğenenler:
#88
(31-05-2024, 12:32)Access Ziyaretçisi demiş ki: Sn hocam böyle yazdım hata verdi

rst!isyeri, rst!unvanı olan GSorum da SELECT sonrasında var mı?

Ayriyeten &Rst... yazılan yer & rst... olarak aralarında bir boşluk olmalı. Çünkü &rst... birleşince rst.. olan referansı görmüyor.



  Alıntı
Bu mesajı beğenenler:
#89
Sn Hocam  tbl_kisiler tablosunda umre alanı ekledim
sorguyu aşağıdaki şekilde düzenledim.
GSorgum = "SELECT *, Nz(DLookUp('aile','tbl_aile','id_aile=' & Nz([aile],0)),'-') AS Taile, Nz(DLookUp('arkadas','tbl_arkadas','id_arkadas=' & Nz([arkadas],0)),'-') AS Tarkadas, Nz(DLookUp('umre','tbl_umre','id_umre=' & Nz([umre],0)),'-') AS Tumre, Nz(DLookUp('dernek','tbl_dernek','id_dernek=' & Nz([dernek],0)),'-') AS Tdernek, Nz(DLookUp('melikkasim','tbl_melikkasim','id_melikkasim=' & Nz([melikkasim],0)),'-') AS Tmelikkasim, tbl_kisiler.vefat  FROM tbl_kisiler WHERE (((tbl_kisiler.vefat)='h'))"

aşağıdaki kodları devamında 
 objStream.WriteText "item2.Title:" & rst!isunvani & vbCrLf
    Dim GEtiket, TbVeri As String
    For Kez = 0 To 4
     TbVeri = rst.Fields(IIf(Kez = 0, "Taile", IIf(Kez = 1, "Tarkadas", IIf(Kez = 2, "Tdernek", "Tmelikkasim", "Tumre"))))
         GEtiket = GEtiket & IIf(TbVeri = "-" Or TbVeri = "", vbNullString, ", " & TbVeri)
    Next Kez
    objStream.WriteText "CATEGORIES:" & Mid(GEtiket, 3) & vbCrLf
    objStream.WriteText "END:VCARD" & vbCrLf
     rst.MoveNext
     Kez = 0: GEtiket = vbNullString: TbVeri = vbNullString
rakamsal değerleri nasıl olmalıydı?
saygılar


Eklenti Dosyaları
.jpg   rakam_kac_olmali.JPG (Boyut: 64,46 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#90
For Kez = 0 To 4 çıkınca,eklenenin en son olmasını, iif(.. sayısı göstermek gerekir.
TbVeri = rst.Fields(IIf(Kez = 0, "Taile", IIf(Kez = 1, "Tarkadas", IIf(Kez = 2, "Tdernek", IIf(Kez = 3, "Tmelikkasim", "Tumre")))))

kez=0 olunca Tarkadas,
kez=1 olunca Tarkadas,
kez=2 olunca Tdernek,
kez=3 olunca Tmelikkasim
bu dört sayacın dışında(4)
tablo Tumre alanına bakar.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Qrbarkod Oluşturma ates2014 5 272 09-04-2024, 10:15
Son Mesaj: ates2014
  [FORM] QR Kod Oluşturma ebenli 20 4.117 08-02-2024, 13:24
Son Mesaj: BeyTor
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 188 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 136 24-10-2023, 21:06
Son Mesaj: dsezgin
  [SORGU] Onay Kutusuna Göre Sorgu Listesi Oluşturma 88888888 6 402 31-07-2023, 16:40
Son Mesaj: 88888888
  [VBA] Form Olaylarına Koşul Oluşturma Ahmet51 2 212 21-07-2023, 10:51
Son Mesaj: onur_can
  [MAKRO] Access Tuş Kombinasyonları Ile Whatsapptan Gönderi Oluşturma orhnkprn 1 201 13-12-2022, 08:48
Son Mesaj: onur_can
  Altform Verisine Göre Grafik Oluşturma Hk YENIFENER 2 361 16-11-2022, 11:25
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi