Sayın Atoz un en son yaptığı güncellemeye nacizane bir ek olarak,
Dlookup fonksyonunun Açılan kutular boşken hata yazmaması için ;
Kod:
Private Sub Komut145_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
If Len(ctl.ControlSource) = 0 Then
ctl.Value = 1
End If
End Select
Next
Me.Requery
End Sub
Yukarıdaki gibi ctrl.Value değerini 1 olarak ayarlayabilirsiniz. Ayrıca "FRMKISIBILGILERI(FormÜzerinde) formunda
Dlookup fonkyonunda yazım hataları düzeltildi ve arama kutusu daha kullanışlı hale getirildi. Saygılarımla...
GRUP DEĞİŞİKLİĞİ 3.rar
(Dosya Boyutu: 43,83 KB | İndirme Sayısı: 7)