‘А ВОТ ТАК, было изначально, но это так же было сделано, мол, щас пусть так, потом ‘сделаю красиво. Но, импутбоксы не устраивают абсолютно, т.к. во-первых есть уже ‘списки, в кои вводить не надо и кои присутствуют в форме ввода, во-вторых, юзеры ‘имеют свойство ошибатсья при вводе…
‘Собственно, сами переменные, и кривой способ присвоить им значения.
varNum = InputBox("Введите номер документа!", "Ввод номера документа")
varKassir = InputBox("Введите ФИО кассира!", "Ввод нового кассира")
varValuta = IIf(Me.RubUsd.Value = "Рубли", "Рублям", "Валюте")
|