Skip to main content

AccessTr.neT


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

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

#43
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
Cevapla
#44
İşine yararsa örnek dosya ekte Metin2 ye çift tıklayın.
.zip tik.zip (Dosya Boyutu: 77,47 KB | İndirme Sayısı: 4)
Son Düzenleme: 03/05/2020, 23:28, Düzenleyen: alicimri.
Cevapla
#45
Sayın @feraz toplu olay eklemek icin https://accesstr.net/konu-metin-kutusu-b...#pid166966 işinize yarayabilir
Cevapla
#46
Sağol berduş hocam bayağı ter akıtmıştık o konuda Img-grin
Cevapla
#47
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
.rar Takvim Manuel_hy.rar (Dosya Boyutu: 33,92 KB | İndirme Sayısı: 5)
Cevapla
#48
ufak bir kaç değişiklik yapıldı
.rar Takvim Manuel_hy2.rar (Dosya Boyutu: 42,39 KB | İndirme Sayısı: 10)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task