2 Replies - 2453 Views - Last Post: 17 September 2012 - 07:58 PM Rate Topic: -----

#1 Memem  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 31-August 12

Help with Run Time Error 13

Posted 31 August 2012 - 03:06 PM

Hi,
Please i need some help. I packed a vb6 application for a client. the application given "run time error 13 type mismatch" then the application will end.This error occurs each time the client is to print a report.
However the same packaged application give on error in my computer (developer machine)
Below is my code.
Please help me with some ideas
Thanks


If DTPickfrom.Value > DTPickTo.Value Then
MsgBox "From date cannot be earlier than To date", vbCritical + vbInformation
DTPickfrom.SetFocus
Exit Sub
End If

With DataRpt

   .Sections("section4").Controls("LblFrom").Caption = DTPickfrom.Value
        .Sections("section4").Controls("Lblto").Caption = DTPickfrom.Value
            .Sections("section4").Controls("Lblpat").Caption = LblOPD
         .Sections("section4").Controls("LblFacility").Caption = AdodSetup.Recordset.Fields("Hfac")
          '  .Sections("section4").Controls("LblDist").Caption = AdodSetup.Recordset.Fields("Dist")

.Sections("section3").Controls("LblFHeadName").Caption = AdodSetup.Recordset.Fields("HfacHead")
End With
'çonnect to table

AdodDEL.RecordSource = "select * from DELIV_TBL where Period BETWEEN datevalue('" & DTPickfrom.Value & "') and datevalue('" & DTPickTo.Value & "')ORDER BY PERIOD"
AdodDEL.Refresh

If AdodDEL.Recordset.RecordCount = 0 Then
    MsgBox "No Data For This Period", vbInformation + vbOKOnly, "Message"
    
Else
        Set DataRpt.DataSource = AdodDEL.Recordset
DataRpt.Orientation = rptOrientLandscape


    DataRpt.Show
        Unload Me
 
    
End If
End Sub



Is This A Good Question/Topic? 0
  • +

Replies To: Help with Run Time Error 13

#2 BobRodes  Icon User is offline

  • Your Friendly Local Curmudgeon
  • member icon

Reputation: 573
  • View blog
  • Posts: 2,989
  • Joined: 19-May 09

Re: Help with Run Time Error 13

Posted 31 August 2012 - 05:48 PM

Well, my first idea is that you might want to explain your problem more carefully.
Was This Post Helpful? 0
  • +
  • -

#3 leixnt  Icon User is offline

  • New D.I.C Head

Reputation: 1
  • View blog
  • Posts: 30
  • Joined: 24-July 11

Re: Help with Run Time Error 13

Posted 17 September 2012 - 07:58 PM

which line code shown error?

what database are you used?
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1