| |
|
|
| | В чём не верна эта процедура:
Private Sub Form1_3z_AfterUpdate()
Dim Response3
If Me.Form1_3z <> Me.Form1_3 Then
Response3 = MsgBox("Проверьте правильность ввода данных", 48, "Проверка данных")
End If
End Sub
В форме поле с именем Form1_3z свободное, а поле Form1_3 прендалежит таблице.
Естественно, форма связаа с таблицой.
Постоянно мне пишет месседжбокс когда значения равны :( | |
| |
| |
| |
|
|
| | А сюда положить сможете? xxx.rar | |
| |
| |
| |
|
|
| | >Постоянно мне пишет месседжбокс когда значения равны :(
Приведите примеры зачений, которые равны (по вашему мнению).
Какой тип поля в таблице.
Вместо вашего сообщения выведите такое:
MsgBox Chr(34) & Me.Form1_3z & Chr(34) & vbCrLf & Chr(34) & Me.Form1_3 & Chr(34)
На экране может быть видна разница, если конечно нет путаницы с eng/rus символами.
А еще попробуйте так: If Me![Form1_3z] <> Me![Form1_3] Then | |
| |
| |
| |
|
|
| | > Приведите примеры зачений, которые равны (по вашему мнению).
банально, 5 = 5
> Какой тип поля в таблице.
числовой. целые.
> Вместо вашего сообщения выведите такое:
>MsgBox Chr(34) & Me.Form1_3z & Chr(34) & vbCrLf & Chr(34) & Me.Form1_3 & Chr(34)
Я так уже рассматривал. Действительно выдаёт мессаджи при "5" = "5".
> А еще попробуйте так: If Me![Form1_3z] <> Me![Form1_3] Then
пробовал. Не помогло  | |
| |
| |
| |
|
|
| | нет нужды Dim'ить вообще-то
Private Sub Unbound_AfterUpdate()
If Me.Unbound <> Me.Bounded Then
MsgBox "something wrong"
End If
End Sub
|
& нужно понимать, что смысла в этой процедуре все равно' ро'вно 0 рублей 00 копеек | |
| |
| |
| |
|
|
| | > нет нужды Dim'ить
это я знаю... привычка 
> & нужно понимать, что смысла в этой процедуре все равно' ро'вно 0 рублей 00 копеек
не совсем понял? если мне нужна именно такая процедура то значит нужна и никуда не дется  | |
| |
| |
| |
|
|
| | Народ, поднимаю тему! Что ниукго нет никаких идей в чём может быть проблема? | |
| |
| |
| |
|
|
| | Да!? Смоделировал ситуацию, диагноз подтвердился.
Варианты решения:
1. В свойстве "Format" свободного поля указать "General Number" или "0";
2. If Me.Form1_3z & "" <> Me.Form1_3 & "" Then | |
| |
| |
