Form Record Source
Hi
I am using this this to fill up my continous form with different text field in it
Dim cmd As New ADODB.Command
Dim prm As ADODB.Parameter
Dim r As New ADODB.Recordset
cmd.ActiveConnection = SQLcon
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_Order"
Set prm = cmd.CreateParameter("@SDATE", adDBTimeStamp, adParamInput)
cmd.Parameters.Append prm
cmd.Parameters("@SDATE").Value = Format(Me!DateSearch, "yyyy/mm/dd hh:mm:ss")
Set prm = cmd.CreateParameter("@CUSER", adInteger, adParamInput)
cmd.Parameters.Append prm
cmd.Parameters("@CUSER").Value = CUser()
Set r = cmd.Execute()
'THIS LINE GIVE ERROR
'Set Me.Recordset = r
'THIS CODE BELOW ABLE TO PRING VALUES IN DEBUG SCREEN
While Not r.EOF
Debug.Print r!Rep & " , " & r!MID & " , " & r!TDate & " , " & r!Value & " , " & r!SDATE & " , " & r!ElecOrMach
r.MoveNext
Wend
any idea
Regards
Ayaz
|