Developing.ru

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

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 не нравится!!! помогите?? срочно надо!!!

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

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

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

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

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

Developing.ru

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

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

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