01/03/2020, 12:27
Oğuz Türkyılmaz
Merhaba
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.
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