ник: Explorer
что значит - "не работает" - не выводит сообщение в Debug.Print? 
Private Sub PhoneNum_BeforeUpdate(Cancel As Integer)
Select Case (DCount("[BlockedNumber]", "tblBlackList", "[BlockedNumber] = '" & Me!PhoneNum.Value & "'"))
Case 0
MsgBox "номер в черном списке отсутствует"
' do smthng case number not exists
Case Else
MsgBox "номер в черном списке присутствует"
' do smthng case number exists
End Select
End Sub
|
УЧИ МАТЧАСТЬ