Mükerrer tamam.

Fakat; 4. mesajdaki sorumu nasıl çözerim?


Peki ay içinde bu işlemi yapmayı unutursak, form üzerinden bir metin kutusu kullanarak nasıl yapabiliriz?

Bir şey farkettim;
Eğer personel tablosundaki ilk personele ait yemek sütununda 1 yazmıyor ise hiç bir personele yemek eklemiyor.
Neden olabilir?

(11/04/2016, 15:52)kadirdursun yazdı: Bir şey farkettim;
Eğer personel tablosundaki ilk personele ait yemek sütununda 1 yazmıyor ise hiç bir personele yemek eklemiyor.
Neden olabilir?

Modüldeki YemekBilgisiEkle kodunu aşağıdaki ile değiştiriniz.

Public Sub YemekBilgisiEkle(GTarih As Date)



    

    Dim db As DAO.Database

    Dim GYemekTarihi As Date

    Dim rs As DAO.Recordset

    Dim rs2 As DAO.Recordset

    Dim HaftaiciGun, KayitVarMi As Integer

    Dim YemekYiyenler As String

    

    YemekYiyenler = "SELECT * FROM T_PEROSNELKAYDI WHERE (((T_PEROSNELKAYDI.YEMEK)=1))"





    Set db = CurrentDb

    Set rs2 = db.OpenRecordset(YemekYiyenler)



    If Not (rs2.EOF And rs2.BOF) Then

    

    rs2.MoveFirst

    Do Until rs2.EOF = True

    

    Set rs = db.OpenRecordset("T_YEMEK", dbOpenTable, dbAppendOnly)

    GYemekTarihi = DateSerial(Year(GTarih), Month(GTarih), 1)

        For HaftaiciGun = 1 To AydakiGunSayisi(GTarih)

          

        KayitVarMi = Nz(DLookup("YEMEKID", "T_YEMEK", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & ""), 0)

        

        If KayitVarMi = 0 And (Weekday(GYemekTarihi) = vbSunday Or Weekday(GYemekTarihi) = vbSaturday) = 0 Then

                rs.AddNew

                rs!PERSONELID = rs2!PERSONEID

                rs!TARIH = GYemekTarihi

                rs.Update



        End If

                GYemekTarihi = GYemekTarihi + 1

        Next

        



rs2.MoveNext

Loop

Else

    MsgBox "Yemek yiyecek personel bulunamadı"

End If



rs.Close

rs2.Close

Set rs = Nothing

Set rs2 = Nothing



End Sub

Modüle ayrıca mükerrer kayıt kontrolü de eklenmiştir. Veri daha önce eklenmiş ise tekrar eklenmez. 

Teşekkür ederim. Oldu.

Şimdide eğer kimse yemek yemiyorsa "Yemek yiyecek personel bulunamadı" uyarısından sonra "Object variable or With block variable not set" hatası veriyor. Benim için şimdilik sorun değil. Fakat bir başka arkadaş bu kodu kullanmak isterse sorun olabilir.

Teşekkür ederim tekrardan.

7. mesajdaki soruma cevap alamamışım
şimdi lazım oldu. Mart ayına yemek yazmam lazım.



"Peki ay içinde bu işlemi yapmayı unutursak, form üzerinden bir metin kutusu kullanarak nasıl yapabiliriz?"

(13/04/2016, 09:06)kadirdursun yazdı: Şimdide eğer kimse yemek yemiyorsa "Yemek yiyecek personel bulunamadı" uyarısından sonra "Object variable or With block variable not set" hatası veriyor. Benim için şimdilik sorun değil. Fakat bir başka arkadaş bu kodu kullanmak isterse sorun olabilir.

Modüldeki hata giderildi, ayrıca forma açılan kutu eklendi. Yapılan seçime göre veri ekler.
İnceleyip bilgi veriniz.