Добрый день.
Написал две процедуры. Одна (нижняя) вызывает другую (верхняя) с передачей четырех значений (dt_nach, kt_nach, dt_kon, kt_kon )
Private Sub Perenos_saldo_i_obnulit_strok1(dt1 As String, kt1 As String, dt2 As String, kt2 As String)
MsgBox " столбец=" & dt1
End Sub
Private Sub CommandButton2_Click()
Dim dt_nach, kt_nach, dt_kon, kt_kon As String
dt_nach = "e"
kt_nach = "f"
dt_kon = "r"
kt_kon = "s"
Perenos_saldo_i_obnulit_strok1(dt_nach, kt_nach, dt_kon, kt_kon) ' ошибка компиляции: Syntax error
Perenos_saldo_i_obnulit_strok1("e","f","r","s") ' тоже ошибка компиляции: Syntax error
End Sub
Не пойму в чем ошибся.
Пробовал верхнюю процедуру писать так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal dt1 As String, ByVal kt1 As String, ByVal dt2 As String, ByVal kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(dt1 , kt1 , dt2 , kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal dt1 , kt1 , dt2 , kt2 As String)
Помогите!
Написал две процедуры. Одна (нижняя) вызывает другую (верхняя) с передачей четырех значений (dt_nach, kt_nach, dt_kon, kt_kon )
Private Sub Perenos_saldo_i_obnulit_strok1(dt1 As String, kt1 As String, dt2 As String, kt2 As String)
MsgBox " столбец=" & dt1
End Sub
Private Sub CommandButton2_Click()
Dim dt_nach, kt_nach, dt_kon, kt_kon As String
dt_nach = "e"
kt_nach = "f"
dt_kon = "r"
kt_kon = "s"
Perenos_saldo_i_obnulit_strok1(dt_nach, kt_nach, dt_kon, kt_kon) ' ошибка компиляции: Syntax error
Perenos_saldo_i_obnulit_strok1("e","f","r","s") ' тоже ошибка компиляции: Syntax error
End Sub
Не пойму в чем ошибся.
Пробовал верхнюю процедуру писать так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal dt1 As String, ByVal kt1 As String, ByVal dt2 As String, ByVal kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(dt1 , kt1 , dt2 , kt2 As String)
и так
Private Sub Perenos_saldo_i_obnulit_strok1(ByVal dt1 , kt1 , dt2 , kt2 As String)
Помогите!