AccessTr.neT

Dim Dizi As Variant

Dim malzeme As String

Dim miktar As String



Dizi = Split(OpenArgs, ";")



malzeme = Dizi(0)

miktar = Dizi(1)



MsgBox "Malzeme kodu=" & malzeme

MsgBox "Malzeme mikarı=" & miktar

(29/04/2020, 16:55)ozanakkaya yazdı: [ -> ]

Dim Dizi As Variant

Dim malzeme As String

Dim miktar As String



Dizi = Split(OpenArgs, ";")



malzeme = Dizi(0)

miktar = Dizi(1)



MsgBox "Malzeme kodu=" & malzeme

MsgBox "Malzeme mikarı=" & miktar