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
bunu F_KAMP formuna yapıştırın. istediğiniz olacaktır.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.