(24/03/2021, 12:10)atoykan yazdı: Kod ile zorlanıyorum derseniz formunuzda ilgili alanın geçerlilik kuralını ve geçerlilik metnini de kullanabilirsiniz.
Geçerlilik kuralı alanına [Senet Tarihi_2]>[Senet Tarihi_1] Geçerlilik Metni alanına da uyarı mesajınızı yazabilirsiniz.
Çok teşekkür ederim. Bu dediğiniz şekilde şekilde yapabiliyorum.
@
atoykan hocama ilaveten aşağıdaki kodlar da denenebilir
Kodlar altforma eklenecek
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me
If ctl.Name Like "Senet Tarihi_*" Then ctl.OnExit = "=TrkKont([" & ctl.Name & "])"
Next ctl
End Sub
Function TrkKont(ByRef ctl As Control)
xCtlNum = Mid(ctl.Name, 14)
If xCtlNum > 1 Then
If ctl.Value <= Controls("Senet Tarihi_" & xCtlNum - 1).Value Then
MsgBox ctl.Value & " tarihi " & Controls("Senet Tarihi_" & xCtlNum - 1).Value & "tarihinden küçük/eşit olamaz"
ctl.Value = Null
ctl.SetFocus
End If
End If
If xCtlNum < 10 Then
If ctl.Value >= Controls("Senet Tarihi_" & xCtlNum + 1).Value Then
MsgBox ctl.Value & " tarihi " & Controls("Senet Tarihi_" & xCtlNum + 1).Value & "tarihinden büyük/eşit olamaz"
ctl.Value = Null
ctl.SetFocus
End If
End If
End Function
(24/03/2021, 12:56)berduş yazdı: @atoykan hocama ilaveten aşağıdaki kodlar da denenebilir
Kodlar altforma eklenecek
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me
If ctl.Name Like "Senet Tarihi_*" Then ctl.OnExit = "=TrkKont([" & ctl.Name & "])"
Next ctl
End Sub
Function TrkKont(ByRef ctl As Control)
xCtlNum = Mid(ctl.Name, 14)
If xCtlNum > 1 Then
If ctl.Value <= Controls("Senet Tarihi_" & xCtlNum - 1).Value Then
MsgBox ctl.Value & " tarihi " & Controls("Senet Tarihi_" & xCtlNum - 1).Value & "tarihinden küçük/eşit olamaz"
ctl.Value = Null
ctl.SetFocus
End If
End If
If xCtlNum < 10 Then
If ctl.Value >= Controls("Senet Tarihi_" & xCtlNum + 1).Value Then
MsgBox ctl.Value & " tarihi " & Controls("Senet Tarihi_" & xCtlNum + 1).Value & "tarihinden büyük/eşit olamaz"
ctl.Value = Null
ctl.SetFocus
End If
End If
End Function
BU KODLARI nereye yazacam hocam?
Mesajın 2. satirinda yaziyor aslında)
Alt formunuzu tasarım modunda açıp oraya eklemelisiniz
(24/03/2021, 14:23)berduş yazdı: Mesajın 2. satirinda yaziyor aslında)
Alt formunuzu tasarım modunda açıp oraya eklemelisiniz
Berduş hocam Alt Formun "Yüklendiğinde" Olay Yordamına mı?
Alt formda yanılmıyorsam form_open olayı yoktu
Siz sadece her 2 kod bloğunu kopyalayıp
Vba penceresinin en altına ekleyin
kod sayfasındaki
son satırın hemen altına