+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vcard İçin Resim Kayıt Zorunluluğu Olmasın (/konu-vcard-icin-resim-kayit-zorunlulugu-olmasin.html)
Vcard İçin Resim Kayıt Zorunluluğu Olmasın - access acemisi - 16/08/2018
Değerli arkadaşlar
Aşağıda ekte bulunan Vcard dosyası ile , rehberimdeki kişileri formda, Tüm kayıtlar Gmail (vcard) bölümdeki onay ile Gmaile gönderebiliyorum.
Bu dosyada ,yeni kişi kayıt için ad soyad tel eklendiğinde ve kaydet butonuna tıklandığında hata veriyor. Fotoğraf eklendiğinde ise bu hata gözükmüyor.
Demek ki ,Yeni kayıt yaparken fotoğraf ekleme zorunluluğu var
İstediğim şey; Kişiler için yeni kayıt girildiğinde, Örn: ad soyad kaydı yapıldığında, fotoğraf olmaksızın kaydedebilsin. Yine gerektiğinde ad soyad ve fotoğrafı olduğunda şimdiki şekliyle kaydedebilsin.Selam saygılar
Cvp: Vcard İçin Resim Kayıt Zorunluluğu Olmasın - ozanakkaya - 16/08/2018
Merhaba, aynı hata ile karşılaştığımızı var sayarsak,
Öncelikle resim olup olmadığını kontrol ettirip, resim var ise resim kodunu vcard içine yazdırmak lazım.
cmd_tumkayitlar isimli butonun tıklandığında olayındaki
1-)
File = CurrentProject.path & "\resimler\" & rst!fotografkodunun hemen altına
If FileExists(File) = True Then2-)
ts.WriteLine "PHOTO;TYPE=JPEG;ENCODING=B:" & encodekodunun altına da
End If3-)
Option Compare Database
Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)
If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory) '
Else
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function
Function FolderExists(strPath As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function
Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0 Then
If Right(varIn, 1) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function
Kodunuda modüle kaydedin.
Cvp: Vcard İçin Resim Kayıt Zorunluluğu Olmasın - access acemisi - 16/08/2018
Sn ozanakkaya
Size çok teşekkür ederim.Allah sizlerden razı olsun .Sorun çözülmüştür.Saygılar