Kamp Ekleme-Çıkarma

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(((