Ввод данных о движении товаров

Данные накладных по приходу и расходу товаров переносятся в базу данных Движение с помощью командной кнопки, размещенной на листе Документ. Основные этапы работ:

1. Подготовка программного модуля на языке Visual Basic

2. Отладка программного модуля

3. Запуск программного модуля.

Создание программного модуля

1. Выполнить команду Разработчик, Visual Basic

2. Выполнить команду Insert, Module.

3. Текст программного модуля:

' Обязательное объявление всех переменных, используемых в модуле

Option Explicit

' Пользовательский тип данных для добавления данных документа в базу данных

‘ Объявление пользовательского типа данных – shet

' Объявление переменных различных типов: String – текст,

‘Integer - целое, Variant - произвольное, Date – дата, Long - число

Type shet

Товар As String

Наименование As String

Едизм As String

Цена As Long

Количество As Long

End Type

Dim sh() As shet

Dim nr As Integer

Dim nc As Integer

Dim i As Integer

Dim str1 As Variant

Dim str As Date

Dim str2 As Variant

4. Выполнить команду меню Insert, Procedure, указать имя процедуры Накладная_в_БД

5. Текст программного модуля:

' начало процедуры переноса данных документа в базу данных

Sub Накладная_в_БД()

' выбор блока Накладная, находящегося на листе Документ

Application.Goto Reference:="Накладная"

' определение количества строк в блоке Накладная

nr = Selection.Rows.Count

' настройка размерности динамического массива

ReDim sh(nr)

' установка на начало области блока Накладная

ActiveCell.Offset(1, 0).Range("A1").Select

' цикл формирования элементов динамического массива

‘ на основании блока Накладная

For i = 1 To nr

sh(i).Товар = Range("Накладная").Cells(i, 1).Value

sh(i).Наименование = Range("Накладная").Cells(i, 2).Value

sh(i).Едизм = Range("Накладная").Cells(i, 3).Value

sh(i).Цена = Range("Накладная").Cells(i, 4).Value

sh(i).Количество = Range("Накладная").Cells(i, 5).Value

Next i

i = 1

' присвоение переменной str2 номера накладной

Range("C1").Select

str2 = ActiveCell.Value

' присвоение переменной str даты выписки накладной

Range("F1").Select

str = ActiveCell.Value

' присвоение переменной str1 названия организации

Range("C3").Select

str1 = ActiveCell.Value

' выбор блока База_данных

Application.Goto Reference:="База_данных"

' установка на ячейку - А2

ActiveCell.Offset(1, 0).Range("A1").Select

' вставка новой записи в базу данных

Дата добавления: 2015-07-15