Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 145
  • Last Modified:

automation error in exe files

I use the following code to generate automatic numbers in my form. The code works well within VB. When the project is made as exe file, it shows "Automation Error" when there is no records in the database. It makes no problems when there are some records already existing in the concerned table. I am using MS Access as the back end.

Public Sub proNewNumberGeneration()
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset
Dim strnnsql As String
strnnsql = "select max(ReciptNo) from CashRecipts"
rs2.Open strnnsql, adocn
adocn.Execute strnnsql
If rs2(0) > 0 Then
                q = "CR"
                c = Mid(rs2(0), 3, 6)
                d = Format(Val(c) + 1, "0000")
                cboReceiptno.Text = q & d
Else
              cboReceiptno.Text = "CR0001"

End If
End Sub

0
r_venkatadhri
Asked:
r_venkatadhri
1 Solution
 
TimCotteeCommented:
Add a test for .eof

If rs2.Eof Then
  cboReceiptNo.Text = "CR0001"
Else
  If rs2(0) > 0 Then
    'continue with the rest of your code
End If

This will ensure that if there are no records you get the default.
0
 
Richie_SimonettiIT OperationsCommented:
good!
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now