AccessTr.neT

Tam Versiyon: Kamp Ekleme-Çıkarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayın hocalarım,

Ekte genelde şantiye kamplarında kullanıcalbilecek bir dosya mevcut. Bir konuda destek ve yardımınıza ihtiyacım bulunmakta. Soruya gelince.

F_PERSONEL formunu açtığımızda ismi seçtikten sonra KAMP BİLGİLERİ butonuna bastığımızda açılan F_KAMP formundan KAMP ADI hucresinden en üstteki 1 - B110 - 110 seçip durumu kutusunu da cilick"ledikten sonra EKLE tuşuna bastığımızda TABLO tbl_ODALAR tablosuna kişiyi atıyor. Buraya kadar herşey normal.
TABLO tbl_ODALAR da KAMADI-1 / BINANO-B110 / ODANO-110 da kalan kişi sayısı 8 kişidir. Yukarıda yaptığımız işlemde kayıt girerken adı-bina-oda ya eşit gelen kayıt var ise F_KAMP formundan gelen bilgileri bunların yanına yazması yani EKLE tuşuna bastığımda gidip yeni kayıt açmayacak Mevcut odada yer var ise odaya eklemeli yok ise uyarıda bulunsun gibi.

Umarım anlatabilmişimdir:
bunu F_KAMP formuna yapıştırın. istediğiniz olacaktır.

Private Sub KAMPADI_BeforeUpdate(Cancel As Integer)
Dim odakapasite As Integer

odakapasite = DCount("KAMPADI", "tbl_odalar", "KAMPADI='" & kadI & "' AND BINANO=" & BINANO & " AND ODANO=" & ODANUMARA)
If odakapasite = 8 Then
MsgBox "BU ODAYA PERSONEL EKLEYEMEZSİNİZ..."
End If
End Sub
Sayın hocam, malasef çalışmadı. Biryerlerde bir şey var ama çözemedim gitti(((