Добрый день форумчане.

Есть текст:
Option Compare Database

Private Sub BUT_EXIT_Click()
On Error GoTo Err_BUT_EXIT_Click


DoCmd.Close

Exit_BUT_EXIT_Click:
Exit Sub

Err_BUT_EXIT_Click:
MsgBox Err.Description
Resume Exit_BUT_EXIT_Click

End Sub

Private Sub Form_Open(Cancel As Integer)
Set Fr03 = CreateObject("AddIn.DrvFR")
End Sub

Private Sub Кнопка10_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Time = Me!FRTime
Fr03.SetTime
Fr03.Disconnect
End Sub

Private Sub Кнопка11_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.Date = Me!FRDate
Fr03.SetDate
Fr03.ConfirmDate
Fr03.Disconnect
End Sub

Private Sub Кнопка12_Click()
Fr03.Password = 30
Fr03.Connect
Fr03.PrintReportWithCleaning
Fr03.Disconnect
End Sub

Private Sub Кнопка8_Click()
Fr03.Password = 30
Fr03.Connect


Fr03.Quantity = 2
Fr03.Price = 17.5
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 1"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub

Fr03.Quantity = 1
Fr03.Price = 98.3
Fr03.Department = 0
Fr03.StringForPrinting = "Товар 2"
Fr03.Sale
If ResultCode <> 0 Then GoTo exit_sub

Fr03.StringForPrinting = "------------------------------------"
Fr03.Summ1 = 25
Fr03.Discount

Fr03.StringForPrinting = "------------------------------------"
Fr03.CheckSubTotal
Fr03.CloseCheck
If ResultCode <> 0 Then GoTo exit_sub
Fr03.Disconnect

Exit Sub
exit_sub:
MsgBox ResultCode
End Sub

Private Sub Кнопка9_Click()
Fr03.ShowProperties
End Sub

И есть таблица:

Наименование Цена ед. Кол-во Дата Время Номер секции
Товар1 1 1 01.01.09 12.22 1
Товар2 10 2 01.01.09 12.22 1
Товар3 22 1 01.01.09 14.20 2
....

Нужно в тексте придумать цикл так чтобы товары с одинаковым временем и датой пробивались одним чеком.

Также известно:

Quantity - Количество товара
Price - Цена за единицу товара
Department - Номер отдела (секции)

StringForPrinting - Строка символов кодовой таблицы WIN1251
для печати (печатается на чеке в строке,
идущей перед строкой, содержащей
цену(сумму) и/или количество).

Помогите. В программировании не рублю

Поясните пожалуйста более подробнее. Вообще ничего не понимаю в программировании

ничего нет, вот есть такое описание на бумаге. Набросайте хотя бы скелет, прошу Вас пожалуйста

капец какойто!
ничего не понимаю в программировании, но пишу курсовую по работе с Устройством!
на кого вы учитесь вообще, специалист будущий?

Бухгалтер, просто конфликт с преподом по информатике, который видими решил меня добить, помучить и т.д....

А цены на товары - какие?

Ой поспешил сейчас подправим

Всем огромное спасибо. Тут больше тройки в любом случае светить не будет, но кому интересно, могу отписаться типа зачет или нет.