AccessTr.neT
Kamp Ekleme-Çıkarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kamp Ekleme-Çıkarma (/konu-kamp-ekleme-cikarma.html)



Kamp Ekleme-Çıkarma - orhantanriverdi - 06/08/2012

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:


Cvp: Kamp Ekleme-Çıkarma - Kur@l - 06/08/2012

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



Cvp: Kamp Ekleme-Çıkarma - orhantanriverdi - 06/08/2012

Sayın hocam, malasef çalışmadı. Biryerlerde bir şey var ama çözemedim gitti(((