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

1 2 3 4 5 6 7 8 9 10 11
03/05/2020, 23:08

berduş

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
03/05/2020, 23:25

alicimri

İşine yararsa örnek dosya ekte Metin2 ye çift tıklayın.
03/05/2020, 23:55

berduş

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

feraz

Sağol berduş hocam bayağı ter akıtmıştık o konuda
04/05/2020, 11:46

berduş

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
04/05/2020, 23:38

berduş

ufak bir kaç değişiklik yapıldı
1 2 3 4 5 6 7 8 9 10 11