bu durumda
Kod:
If Not IsNull(Me.Liste85.Column(3)) Then
DoCmd.OpenForm "Frm_Giris", DataMode:=acAdd, OpenArgs:=Me.Liste85.Column(3)
Else
MsgBox "Liste boş"
End If
Kod:
Private Sub Form_Load()
If Me.OpenArgs <> vbNullString Then
Me.MALZEME KODU = Me.OpenArgs
End If
End Sub