Private Sub Form_Load()
For Each Ctl In Me.Controls
        If Ctl.Name Like "txtGun*" Then Ctl.OnClick = "=LblClick([" & Ctl.Name & "])"
Next Ctl

End Sub

Public Function LblClick(ByRef Ctl As Control)
Dim STrh As Date
Dim Frk As Integer
Frk = 0
STrh = DateSerial(Me.cmb_Yil, Me.cmb_Ay, Ctl.Caption)
xAd = Replace(Ctl.Name, "txtGun", "")
If (xAd < 8 And CInt(Ctl.Caption) > 7) Then Frk = -1
If (xAd > 28 And CInt(Ctl.Caption) < 15) Then Frk = 1

TxtTrh = DateAdd("m", Frk, STrh)
On Error Resume Next
    With Ctl
        If .Caption <> "" Then
            txtbox.Value = Format(Me.TxtTrh.Value, "dd.mm.yyyy")
            DoCmd.SetWarnings False
            DoCmd.Close
           DoCmd.SetWarnings True
        End If
    End With

End Function

DoCmd.OpenForm "FrmDnm", acDesign
'''''''''''
'İsim          CtTop        CtLeft       CtHeight        CtWidth
'                                        0,499cm       0,501cm
'Btnilk         60            65            283           284
'BtnAlt         363           60            283           284
'BtnSag         63            360           283           284
'DkyAralik = 20              YtyAralik = 11
'DkyAralik = 17              YtyAralik = 11

'YtyAralik = Me.BtnSag.Left - (Me.Btnilk.Left + Me.Btnilk.Width)
'DkyAralik = Me.BtnAlt.Top - (Me.Btnilk.Top + Me.Btnilk.Height)

Mtn1Ust = 60
Mtn1Sol = 65
CtWidth = 284
CtHeight = 283
yatayAra = CtWidth + 1
dikeyAra = CtHeight + 1

For X = 1 To 100
CtName = "BtnGun" & X
CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10)
CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10)
Set ctlCheck = CreateControl("FrmDnm", acCommandButton, , , "", CtLeft, CtTop, CtWidth, CtHeight)
ctlCheck.Name = CtName
'With ctlCheck
'    .CtName = "BtnGun" & X
'    .CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10)
'    .CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10)
'End With
Next X

'With ctlCheck 
' .CtName = "BtnGun" & X 
' .CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10) 
' .CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10) 
'End With