(27/06/2021, 01:35)feraz yazdı: Bende başka türlü yapmıştım.Tarihler vs.. otomatik geliyordu işinize yarar belki.


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

Teşekkür ederim Sn.feraz

Örneğinizden faydalanacağım.

Saygılar.