Форумы HiProg.com - MS ACCESS, VBA, VB

ник: snipe
Чета вообще ни чего не понял
1. Синтаксис
Public Sub ClickMinus(LabelToner As String, TonerCount As String)
TonerCount = Nz(DLookup("[Количество]", "Картриджи", "[Картридж] ='" & LabelToner & "'"), 0)
End Sub

2.Логика
Функции передаются 2 переменные
и потом второй переменной присваивается значение
Зачем - не понятно

может так
Public Sub ClickMinus(LabelToner As String, TonerCount As Label)
TonerCount.Caption = Nz(DLookup("[Количество]", "Картриджи", "[Картридж] ='" & LabelToner & "'"),"0")
End Sub

вызов Call ClickMinus(Me.Надпись7.Caption, Me.Надпись8)