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
Docmd.openform Hk.
Konuyu Okuyanlar: 1 Ziyaretçi