Ama mausun tekerleğini oynatınca formdaki id felan değişiyor ama kodlara çalışmıyor aramada ve alttaki kayıtlara gitmelere tıklayınca kod çalışıyor.
https://resim.accesstr.net/do.php?img=11113
Private Sub Form_Current()
Dim basTarih, bitisTarih, i As Byte, fark As Integer
If Me.ID = "" Or IsNull(ID) Then Exit Sub
If Me.ID = DLast("ID", "tbl_PERSONEL") Then Exit Sub
If IsNull(Me.SICILNO.Value) Or Me.SICILNO.Value = "" Then GoTo son
basTarih = Dlookup ("IZINBASLANGICTARIHI", "tbl_IZINLER", "[SICILNO]=" & Me.SICILNO.Value)
bitisTarih = Dlookup ("IZINBITISTARIHI", "tbl_IZINLER", "[SICILNO]=" & Me.SICILNO.Value)
If IsNull(basTarih) Or basTarih = "" Then GoTo son
If IsNull(bitisTarih) Or bitisTarih = "" Then GoTo son
fark = CLng(bitisTarih) + 1 - CLng(basTarih)
For i = 1 To 30
Controls("Tarih" & i & "_Etiket").Caption = basTarih - 1 + i
Controls("Tarih" & i).Value = "X"
If i = fark Then Exit For
Next
For i = i To 30
Controls("Tarih" & i & "_Etiket").Caption = basTarih - 1 + i
Next
Exit Sub
son:
For i = 1 To 30
Controls("Tarih" & i & "_Etiket").Caption = Empty
Controls("Tarih" & i).Value = Empty
Next
End Sub
Private Sub txtsicilNo_Change()
Dim say As Integer, rs As Object
say = DCount("[SICILNO]", "tbl_PERSONEL", "[SICILNO]=" & Val(txtsicilNo.Text))
If say > 0 Then
Set rs = Me.Recordset.Clone
rs.FindFirst "[SICILNO] = " & Val(Me.txtsicilNo.Text) & ""
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End Sub
