Arkadaşlar nöbet çizelgesine çalışma saatlerini otomatik dağıtmak istiyorum ancak bu iş için kullandığım if için gerekli kuralları bir türlü yazamadım. bu yüzden yardıma ihtiyacım var.
Kuralım şöyle olacak:
Kısaca cumartesi pazar ve resmi tatil günleri olmayacak. kısaltma ve 16 , 24 yazan günlerin ertesi günü boş olacak şekilde diğer alanlara atamak istiyorum.
![[Resim: a12mb4.png]](https://i.hizliresim.com/a12mb4.png)
Kuralım şöyle olacak:
Kısaca cumartesi pazar ve resmi tatil günleri olmayacak. kısaltma ve 16 , 24 yazan günlerin ertesi günü boş olacak şekilde diğer alanlara atamak istiyorum.
Visual Basic
- Dim inta As Integer, intJ As Integer, deger As String
- Set db = CurrentDb
-
- intMonth = Me.ay2
- intYear = Me.yıl
-
- For inta = 1 To 31
- deger = Format(inta, "00")
-
- Next inta
- intFirst = 1
- intLastDay = Day(DateAdd("m", 1, DateSerial(Me.yıl, Me.ay2, 1)) - 1)
- intLast = intFirst + intLastDay - 1
- intJ = 1
- For inta = intFirst To intLast
-
- deger = Format(inta, "00")
-
- Set rst = db.OpenRecordset("tbl_tatiller")
- Do Until rst.EOF
-
-
- If Not Format(deger & "/" & intMonth & "/" & intYear, "dddd") = "Cumartesi" Then
- If Not Format(deger & "/" & intMonth & "/" & intYear, "dddd") = "Pazar" Then
- If Not Me("gun" & deger) <> "" Then
-
-
- 'If Not Format(rst!TARİH, "ddmmyyyy") <> deger & Format(Me.ay2, "00") & Me.yıl Then
- 'If Not Me("gun" & deger) = DLookup("KISALTMA", "Srg_kısaltmalar", "KISALTMA= '" & Me("gun" & deger) & "' ") Then
-
-
-
- '//ÇALIŞMA SAATİ DEĞERLERİNİ ALANLARA DAĞITIYORUZ....
- Me("gun" & deger).Value = DLookup("[ÇALIŞMA SAATİ]", "Tbl_personel", "[ID] =" & Me.PERSONEL_ID)
-
- End If
- End If
- End If
-
- rst.MoveNext
-
- Loop
- Next inta
