dB DÜZELTİLDİ resim ekleme (sy Modalı)

[kerrrim]

sayın maodalı formda bulunan dB DDÜZELTİLDİ çalışmanızdan örnek alarak kendime bir form yaptım yanlız resim ekle butonuna batığım zaman "GetOpenFile_CLT" hata veriyor. nasıl düzeltebilirim. yardımcı olursanız sevinirim.

Private Sub cmdBrowse_Click()
On Error GoTo err_cmdBrowse

Me![txtPicture] = GetOpenFile_CLT("C:\BELGELERİM", "Select the Coin Picture File")
Me![txtPicture] = LCase(Me![txtPicture])
Me!Picture.Picture = Me!txtPicture

 

[modalı]

Sayın kerim,

GetOpenFile bir fonksiyon. Acaba modüle doğru kopyalayabildiniz mi?

İyi çalışmalar

 

[simendifer]

sayın kerrrrim formun özeliklernde hata

sayın kerrrrim formun özeliklerinde hata! resmin gösterilecek formu, tasarım şeklinde iken özelliklerinde gecerli oldugunda ve açıldıgında olay yordamına aşagıdaki kodları yazın
gecerli oldugunda
Private Sub Form_Current()
On Error GoTo err_Form_Current

If Not Me!txtPicture = "" Or Not IsNull(Me!txtPicture) Then
Me!Picture.Picture = Me!txtPicture
Else
Me!Picture.Picture = ""
End If

exit_Form_Current:
Exit Sub

err_Form_Current:
MsgBox err.Description
Resume exit_Form_Current
End Sub
--------------
açıldıgında
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If IsNull(Me!txtPicture) Or Me!txtPicture = "" Then
' do nothing
Else
Me!Picture.Picture = Me!txtPicture
End If

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox err.Description
Resume Exit_Form_Open

End Sub
-----------
yazın çalışır kolay gelsin

 

[kerrrim]

Teşekkürler

Sayın modalı izin tavsiyeniz işime yaradı teşekkürler. Acemi olmanın vermiş olduğu hatalar sizin gibi ustalar sayesinde düzeltiliyor.Yanlız sizden istediğim birşey daha olacak şu açılan kutu olayını bana basit bir örnekle anlatırmısınız.Basit olmasını istiyorum çünkü gerçekten bazı olayları zor çözüyorum.
Teşekkürler...KENDİNİZE VE UMUTLARINIZA İYİ BAKIN

 

[modalı]

Sayın kerimm,

Bende bulunan bir örneği ekliyorum. Örneği inceleyin. Takıldığınız noktada sorun yardımcı olmaya çalışayım.

İyi çalışmalar

 

[kerrrim]

Bİr Örnek

Sayın modalı yapmaya çalıştığım uygulamanın basit bir örneğini gönderiyorum.bunun üstünde anlatırsanız bana büyük bir iyilik yapacaksınız.belki kendi rekorunuzu kırmanıza benimde yardımım olur )
Şimdiden teşekkürler.
KENDİNİZE VE UMUTLARINIZA İYİ BAKIN