Skip to main content

AccessTr.neT


Vcard İçin Resim Kayıt Zorunluluğu Olmasın

access acemisi
access acemisi
2
970

Vcard İçin Resim Kayıt Zorunluluğu Olmasın

Çözüldü #1
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
.rar resim ekleme kısıtlaması.rar (Dosya Boyutu: 68,24 KB | İndirme Sayısı: 8)
Son Düzenleme: 16/08/2018, 15:21, Düzenleyen: access acemisi.
Cevapla
#2
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!fotograf

kodunun hemen altına

 
If FileExists(File) = True Then
kodu ekleyin,

2-)


ts.WriteLine "PHOTO;TYPE=JPEG;ENCODING=B:" & encode


kodunun altına da


End If
kodu ekleyin.

3-) 
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.
Cevapla
#3
Sn ozanakkaya
Size çok teşekkür ederim.Allah sizlerden razı olsun .Sorun çözülmüştür.Saygılar
Son Düzenleme: 16/08/2018, 23:48, Düzenleyen: access acemisi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da