Sayı Alanına Takvim İle İnteger Değer Girmek

Ben etiketlere tek tek kod eklemek yerine form açılma olayına ekledim daha önce hem cactus cafe örneğinde kullanmıştım hem de sayin @accessman in bir sorusunda

İşine yararsa örnek dosya ekte Metin2 ye çift tıklayın.

Sayın @feraz toplu olay eklemek icin https://accesstr.net/konu-metin-kutusu-b...#pid166966 işinize yarayabilir

Sağol berduş hocam bayağı ter akıtmıştık o konuda

kendimce birşeyler yapmaya çalıştım dilerim işinize yarar @feraz bey
düzeltilmesi gereken şeyler olabilir, zamanım yoktu eksik kaldı
form yüklenirken toplu olay/Event atama

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

Tıklama fonksiyonu

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

---

aşağıdaki kod da nesne ekleme kodu, açık forma eklenecek bu kod kapalı FrmDnm formunu tasarım modunda açıp belirlediğimiz kadar nesne ekler, istediğiniz özellikleri de belirleyebilirsiniz

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

---

Pasif olan

'With ctlCheck 

' .CtName = "BtnGun" & X 

' .CtTop = Mtn1Ust + dikeyAra * ((X - 0.6) \ 10) 

' .CtLeft = Mtn1Sol + yatayAra * ((X - 0.6) Mod 10) 

'End With

bu kısım aktif yapılarak nesnenin diğer özellikleri de degistirilebilir

ufak bir kaç değişiklik yapıldı