Как задать условие на сохранение

ivan_fedya · 02 июн 2009, 01:29

Помогите люди добрые. у меня такая проблема!!! Мне нужно чтобы при нажатии на кнопку сохранить выполнялось такое условие

Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click

If Me.Наличие <= 0 Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else MsgBox ("Товара нет на складе!!! " & vbCrLf & "Вы не можете его продать!!!", 48, "ОШИБКА"))

Exit_Кнопка27_Click:
Exit Sub

Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click

End Sub
А бейсик ругается.. что ему с Else не нравится!!! помогите?? срочно надо!!!

EducatedFool · 02 июн 2009, 09:13

А бейсик ругается.. что ему с Else не нравится!!!

Basic-у не нравится, когда нарушают правила его синтаксиса...

Или пишем условие if then else в одну строку, или как-то так:

Код: Выделить всё

If Me.Наличие <= 0 Then
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Else
        MsgBox "Товара нет на складе!!! " & vbCrLf & "Вы не можете его продать!!!", 48, "ОШИБКА"
    End If