Cvp: Birleşik Değer Kutusuna Göre Vcard - access acemisi - 16/09/2018
(16/09/2018, 01:04)ozanakkaya yazdı: Siz winrarı tekrar yükleyin düzelecektir sn ozanaakkaya winrarı tekrar yükledim..13.mesajdaki örnekte yine arşiv hatası gösteriyor
(15/09/2018, 23:49)ozanakkaya yazdı: Dosyayı indiremiyor musunuz yoksa indirdiğiniz dosya arşiv hatası mı veriyor? Öncelikle bunu tespit edelim
Dosyayayı indiriyorum.Sadece bu 13.mesajdaki örnekte arşiv hatası sorununu yaşıyorum. Site içerisindeki diğer tüm dosyaları indirip açıyorum.Bir sıkıntı yok.Dediğim gibi sadece 13.mesajdaki örnek.Size zahmet bana o dosyayı e mail adresimden gönderiverin ki çalışmalardan geri kalmayayayım
Cvp: Birleşik Değer Kutusuna Göre Vcard - ozanakkaya - 16/09/2018
Örneğin ziplenmiş hale ektedir. Dosya ayrıca mail adresinize accdb uzantılı olarak gönderilmiştir.
Cvp: Birleşik Değer Kutusuna Göre Vcard - access acemisi - 19/09/2018
Sn ozanakkaya
Formda yeni kayıt yapmak istediğimde , Grubu isimli açılır kutunun çalışmadığını gördüm..Merak ettiğim diğer husus tabloda böyle bir alan sanki yok gibi.
Ekteki dosya üzerinde düzenleme yaparsanız sevinirim.Teşekkür ederim saygılar
Cvp: Birleşik Değer Kutusuna Göre Vcard - ozanakkaya - 19/09/2018
Merhaba, uygulamanızı tasarım görünümünde açıp grup seçilen açılan kutunun denetim kaynağının "secenek" olduğunu görebilirsiniz. Benim önceki mesaja eklediğim örnek uygulamada girişi yapılan kayıtların vcf uzantılı vcard oluşturması ile ilgilidir.
Yeni kayıtta seçim yapacak veri olması için grup isminde tablo oluşturup açılan kutunun satır kaynağını yeni oluşturduğunuz tablo olarak ayarlayabilirsiniz. Benim yapabileceğim düzenlemeyi zaten 20. mesajda paylaştım.
Cvp: Birleşik Değer Kutusuna Göre Vcard - access acemisi - 19/09/2018
(19/09/2018, 18:03)ozanakkaya yazdı: grup isminde tablo oluşturup açılan kutunun satır kaynağını yeni oluşturduğunuz tablo olarak ayarlayabilirsiniz.
Dediğiniz şekilde grup isminde tablo oluşturdum.Şimdi önceden yazdığınız kodu nasıl uyarlayacağız.Örnek arkadaşlara göre vcard gönderimi için.Saygılar
Cvp: Birleşik Değer Kutusuna Göre Vcard - ozguryasin - 20/09/2018
bunu daha önce yapmıştık ama bir daha tekrar edelim.
Butondaki kod aşağıdaki kod ile değiştirilmiştir.
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
Dim sOrGu As String
sOrGu = "SELECT tbl_kisiler.kisi_id, tbl_kisiler.adisoyadi, tbl_kisiler.ikinciadi, tbl_kisiler.soyadi, tbl_kisiler.sirketbilgisi, tbl_kisiler.unvani, tbl_kisiler.isunvani, tbl_kisiler.dogumtarihi, tbl_kisiler.evadresi, tbl_kisiler.evtamadres, tbl_kisiler.yer_tanimlama, tbl_kisiler.evsehir, tbl_kisiler.evbolge, tbl_kisiler.evpostakodu, tbl_kisiler.evulke, tbl_kisiler.isadresi, tbl_kisiler.issehir, tbl_kisiler.isbolge, tbl_kisiler.ispostakodu, tbl_kisiler.isulke, tbl_kisiler.evtelefonu, tbl_kisiler.Notlar, tbl_kisiler.istelefonu, tbl_kisiler.websayfasi, tbl_kisiler.ceptelefonu, tbl_kisiler.ceptelefonuiki, tbl_kisiler.ceptelesi, tbl_kisiler.telfarkli, tbl_kisiler.fax, tbl_kisiler.fotograf, tbl_kisiler.epostaadresi, tbl_kisiler.secenek " & _
"FROM tbl_kisiler " & _
"WHERE tbl_kisiler.secenek='" & Form_frm_personelbilgiformu.secenek & "'"
Set rst = CurrentDb.OpenRecordset(sOrGu)
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 & ";" & rst!evsehir & ";" & 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:" & 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
|