Skip to main content

AccessTr.neT


Docmd.openform Hk.

Docmd.openform Hk.

#6
DoCmd.OpenForm "Frm_Giris", DataMode:=acAdd, OpenArgs:=Me.Liste85.Column(3) & ";" & Me.Liste85.Column(5)



bu şekilde peşi sıra ekleyip,
 
Dim malzeme As String
Dim miktar As String
MsgBox OpenArgs
malzeme = Left(OpenArgs, InStr(OpenArgs, ";") - 1)
miktar = Mid(OpenArgs, InStr(OpenArgs, ";") + 1)
MsgBox "Malzeme kodu=" & malzeme
MsgBox "Malzeme mikarı=" & miktar

Bu şekilde bölerek aldım.Başka bir yolu var mı acaba?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Docmd.openform Hk. - Yazar: sipuasfaf - 29/04/2020, 13:14
RE: Docmd.openform Hk. - Yazar: ozanakkaya - 29/04/2020, 13:43
RE: Docmd.openform Hk. - Yazar: accessman - 29/04/2020, 13:45
RE: Docmd.openform Hk. - Yazar: sipuasfaf - 29/04/2020, 16:35
RE: Docmd.openform Hk. - Yazar: SeferŞANLI - 29/04/2020, 14:18
RE: Docmd.openform Hk. - Yazar: sipuasfaf - 29/04/2020, 16:48
RE: Docmd.openform Hk. - Yazar: ozanakkaya - 29/04/2020, 16:55
RE: Docmd.openform Hk. - Yazar: sipuasfaf - 29/04/2020, 16:58
Task