Hi friend
Set mPRINTset.DataSource = RsTemp
mPRINTset.Show vbModal
Set mPRINTset = Nothing
'You must specify your record set of ADODB. Rstemp is the record set of mine.
If mprintset is your datareport. Then use this way. Hope fully this will work.
Best of luck
srinivas
Hi friend
If you got any information about this problem, please pass the message to me. Even i tried so many ways but i am getting the same problem, in one of my system. I feel this may be because of installation problem of your Visual Basic software. Please if you got any information then...
txtPoNo - is my text box.
cmdDisplay - is command button
when user enters the value in txtpono. After clicking on command button this code will work. Data report you have to call from Form. Just go through the code. All you can understand very easily. Best of luck
Srinivas_pvl@hotmail.com
Hi friend
Hope this will solve your problem, You can not directly do user friendly report on data report. I am just giving one example how i did in my project. User will entry purchase order number based on that report will be displayied.
You have to create temp. table and update the data...
Dim spql As String
Dim ab, cd As Double
spql = "select * from emp"
RS.Source = spql
RS.Open
If RS.RecordCount > 0 Then
For i = 1 To RS.RecordCount
ab = RS.Fields("salary")
cd = RS.Fields("Netsalary")
RS.MoveNext
Next i
End If
RS.close...
Dim spql As String
Dim ab, cd As Double
spql = "select * from emp"
RS.Source = spql
RS.Open
If RS.RecordCount > 0 Then
For i = 1 To RS.RecordCount
ab = RS.Fields("salary")
cd = RS.Fields("Netsalary")
RS.MoveNext
Next i
End If
RS.close...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.