Private Sub BtnGuncelle_Click()
If Len(Me.AkAy & "") = 0 Or Len(Me.TxtYil & "") = 0 Then
MsgBox "yıl yada ay belirtilmemiş"
Exit Sub
End If
Me.RecordSource = "SQLYoklama"

For xGun = 1 To 31
Controls("[" & xGun & "]").ControlSource = ""
Next xGun


Dim fld As Field
For Each fld In Me.RecordsetClone.Fields
Controls("[" & fld.Name & "]").ControlSource = fld.Name
Next fld

End Sub