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

Derecelendirme: 0/5 - 0 oy

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
Çözüldü 
Değerli arkadaşlar
frm_personelbilgiformu nu ,frm_secenek formu için uyarlamaya çalıştım. secenek sorgusuna göre frm_secenek formu oluşturdum.form satır kaynağını secenek sorgusundan alacak şekilde ayarlamaya çalıştım.
Formu açtığımda  rakamsal değer girmem gerekiyor.Örneğimde  Değeri 1 veya 4 olanlar, vcard gönderisi olarak çalışıyor. Ama 2 ve 3 girildiğinde çalışmıyor. Nerede bir eksiklik var yardımcı olursanız sevinirim.Saygılar



Allback

Uzman
41694
Er.... Er....
 35
 39
 316
 16/11/2011
27
 Kocaeli
 Yönetici
 Ofis 2016 64 Bit
 08/05/2019,12:37
(24/09/2018 12:02)access acemisi Adlı Kullanıcıdan Alıntı: Değerli arkadaşlar
frm_personelbilgiformu nu ,frm_secenek formu için uyarlamaya çalıştım. secenek sorgusuna göre frm_secenek formu oluşturdum.form satır kaynağını secenek sorgusundan alacak şekilde ayarlamaya çalıştım.
Formu açtığımda  rakamsal değer girmem gerekiyor.Örneğimde  Değeri 1 veya 4 olanlar, vcard gönderisi olarak çalışıyor. Ama 2 ve 3 girildiğinde çalışmıyor. Nerede bir eksiklik var yardımcı olursanız sevinirim.Saygılar

personelbilgiformu'nda "kisi_id"ye göre geliyor, frm_seçenek formunda seçenek kısmında aynı numaraya sahip kayıtlar var. Sorun bundan kaynaklanıyor olabilir. Mükerrer kayıt oluşmasını engellerseniz sorgunuz çalışıyor...



access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
şöyle bir ikaz veriyor
[Resim: do.php?imgf=153784912948311.png]

[Resim: do.php?imgf=153784918422082.png]
il alanına rakamsal değerler girince düzeldi.Şimdilik denemelerim devam ediyor.Teşekkürler
Değerli arkadaşlar
Her iki form üzerinde deneme çalışmalarımı sürdürdüm.
Amacım seçenek alanında örneğin 1 numarayı temsil eden arkadaşlarımın Vcard hazırlamasını istedim …tbl_kisiler tablosunda 100 kişinin olduğunu varsayalım. Bunlar içerisinde arkadaşlar olarak , id sırasına göre 5 -73 ve 94 nolu 3 kişinin arkadaşlar seçeneğinde bulunduğunu yine varsayalım. Sürekli yaptığım denemeler sonrasında, her iki formda ,Vcard hazırlığı için, her iki formda da , tablodaki tüm kişileri taradığını anladım. Zira formun en altında  mavi alanda aktarılan kişileri görebiliyorum ve buda yaklaşık 10-15 dakika kadar sürüyor..5 nolu kişiyi aktardıktan sonra 73. Kişiyi buluncaya kadar 5 nolu kişinin ismi daima sürekli formda beliriyor..Bu da zaman alıyor..Bir ara form çalışmıyor galiba zannına vardım.
     Bir de şöyle denedim…. tbl_kisiler alnında, seçenek alanında 1 rakamının haricindeki diğer kişilerin kayıtları sildim ve  formda ilgili butona (Vcard)  tıklayınca ,5-10 sn ' de 3 kişinin kaydını hemen hazırladı…
Sayın üstadlarımdan şunu talep ediyorum …Ben seçenekte bulunan değerlere göre ,Vcard süzme yapsın.Bu süzmeye göre, zaman geçirmeden ilgili kayıtları hazırlasın…Aslında frm_secenek diye 2. Bir formu da bu amaçla hazırlamıştım.Sorgudan direk alır diye.
     Sorunun iyi anlaşılabilmesi için böyle uzun bir açıklama yapma ihtiyacı hissettim…Yardımızı bekliyorum Saygılar



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:25
(25/09/2018 07:20)access acemisi Adlı Kullanıcıdan Alıntı: il alanına rakamsal değerler girince düzeldi.Şimdilik denemelerim devam ediyor.Teşekkürler

Bu mevzu ile ilgili ilk sorunuzda "Dlookup komutunu inceleyiniz" dediğimi hatırlıyorum. 


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


kodunu aşağıdaki gibi değiştirmeniz gerekli ki, tablodaki sehir alanında veri yok ise yerine 0 yazdırsın.


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



Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz. Sadece secenek olarak belirlediğiniz kayıtları sorgulayacaktır.

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

GSorgum = "SELECT tbl_kisiler.secenek, * FROM tbl_kisiler WHERE (((tbl_kisiler.secenek)='" & Me.secenek & "'));"

Set rst = CurrentDb.OpenRecordset(GSorgum)
rst.MoveFirst

Me.etk_ilerle.Visible = True

GSayi = 0

Do Until rst.EOF

    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 & ";" & rst!sehir & ";" & rst!evpostakodu & ";" & rst!evulke & vbCrLf
    objStream.WriteText "CATEGORIES:" & DLookup("id_il", "il", "[id_il]= " & Nz(rst!sehir, 0)) & 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("grupadi", "grup", "[id_grup]= " & Nz(rst!secenek, 0)) & vbCrLf
    objStream.WriteText "END:VCARD" & vbCrLf
    Me.etk_ilerle.Caption = rst!adisoyadi & " " & rst!soyadi
    GSayi = GSayi + 1
    
    rst.MoveNext
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. 

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
Çok teşekkür ederim ederim Sn ozanakkaya
(26/09/2018 22:40)ozanakkaya Adlı Kullanıcıdan Alıntı: Bu mevzu ile ilgili ilk sorunuzda "Dlookup komutunu inceleyiniz" dediğimi hatırlıyorum.
   Konuları birden kavrayamıyoruz.Kusura bakmayın.. Denemelere devam ettiğimiz sürece sizlerden çok şey öğreneceğiz. 
Tam istediğim gibi olmuş  Sağolasınız




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Form Yenileme haziran4 2 128 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 203 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 110 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 445 30/04/2019, 12:17
Son Yorum: haziran4
Çözüldü Formda Koşullu Biçimlendirme haziran4 4 221 30/04/2019, 10:03
Son Yorum: haziran4

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