11/04/2016, 12:20
Gün gün otomatik kayıt açmak
11/04/2016, 15:52
kadirdursun
Bir şey farkettim;
Eğer personel tablosundaki ilk personele ait yemek sütununda 1 yazmıyor ise hiç bir personele yemek eklemiyor.
Neden olabilir?
Eğer personel tablosundaki ilk personele ait yemek sütununda 1 yazmıyor ise hiç bir personele yemek eklemiyor.
Neden olabilir?
13/04/2016, 03:10
ozanakkaya
(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.
13/04/2016, 09:06
kadirdursun
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.
Ş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.
13/04/2016, 14:06
kadirdursun
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?"
"Peki ay içinde bu işlemi yapmayı unutursak, form üzerinden bir metin kutusu kullanarak nasıl yapabiliriz?"
13/04/2016, 18:44
ozanakkaya
(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.