Замечательная функция Eval - очень редко используемая, хотя,
помогает избежать многих ошибок во время расчёта результатов вычислений.
Обязательно почитайте о ней в Help.
А пока приступим к созданию на основе этой функции крошки калькулятора.
Сам пример расположен в прилагаемом файле.
Для того, что бы наш калькулятор имел скромные размеры запишем на событие загрузка формы:
Private Sub Form_Load()
DoCmd.MoveSize 5000, 300 ' Это размеры открываемой формочки
End Sub
Для проверки вводимых данных в поле ввода калькулятора, нам понадобится
единственная функция - проверки кода введённого символа - чтобы нельзя
было-бы ввести буквы и прочие недопустимые символы.
font color=#000000 face='Courier New' size="2">
Private Function Корректность(Введено) As Boolean
Корректность = False
If (Введено >= 48 And Введено <= 57) Then Корректность = True: Exit Function 'Цифры
If Введено = 43 Then Корректность = True: Exit Function 'Плюс
If Введено = 8 Then Корректность = True: Exit Function 'Забой
If Введено = 42 Then Корректность = True: Exit Function 'Умножение
If Введено = 45 Then Корректность = True: Exit Function 'Минус
If Введено = 47 Then Корректность = True 'Деление
End Function
После каждой проверки ставим инструкцию : Exit Function - это для того, что бы
далее не проверять введённые значения т.к. уже определено - ввод корректен.
Так мы ускорим (Хотя и не на немного) выполнение программы.
Если таких ускорений в большом проекте будет много, то наша программа в итоге будет "летать"..
В примере нет кода обработки ошибок это сделано для лучшего восприятия,
хотя в реальной программе обработка ошибок занимает далеко не последнее место..
Для того, чтобы расположить кнопочку с калькулятором на панель необходимо проделать следующее:.
Щелкните на свободном месте панели правой кнопкой мыши, затем Настройка, затем закладка Команды,.
Затем все формы, хватаем левой кнопкой мыши из списка форм - форму Kalkulator и переносим её в панель..
Теперь эта кнопочка будет вызывать наш калькулятор..