Ado Bağlantılı Form Yuklendiğinde yada Yeni kayıt butonu tıklandığında Forma Resim Klasörü içindeki "ResimYok" adlı Resim Bağlantı Yolunu gösteremiyorum. Yardımlarınız için teşekkür ederim.
Private Sub Form_Load()
Dim UyeSql As String
Dim x As Integer
UyeSql = "Select * from T_Uye order by uyeno"
UyeRS.Open UyeSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If UyeRS.RecordCount <> 0 Then
UyeRS.MoveFirst
AlanDoldur
End If
Dim fat As Control
For Each fat In Me.Form.Controls
Select Case fat.ControlType
Case acTextBox
fat.Value = ""
Case acComboBox
fat.Value = ""
Case acCheckBox
fat.Value = "0"
End Select
Next
Durum_CBO = "AKTİF"
Me!Cerceve.Picture = CurrentProject.Path & "\ResimYok\"
End Sub