You’re offline. This is a read only version of the page.
555
Hi,
My requirement is ,In customer maintenance screen i want to add a button ,if i press the button then ,In customer Id field will display the maximum custid+1.
Example in customer table max id is 23 then result will be "000000024"
it's very urgent please can any one help me?...
My code is
Private Sub Button1_Click()
Dim Sqlstmt As String
Dim lsNexCustid As String
Dim liNexCustid As Long
Sqlstmt = "Select Top 1 * from customer order by custid desc"
err_Customer = sqlfetch_Customer1(Sqlstmt)
If err_Customer = NOTFOUND Then
NextCustid = "000000001"
Else
liNexCustid = CLng(bxCustomer.CustId) '"000000001" '
liNexCustid = liNexCustid + 1
lsNexCustid = Format(liNexCustid, "000000000")
End If
Call SetBufferValue("bcustomer.custid", lsNexCustid)
Call DispFields("form1", "ccustid")
Call Edit_Save
End Sub
Public csr_Customer As Integer
Public err_Customer As Integer
In here i got sqlfetch_Customer =0 only...
Function sqlfetch_Customer(Sqlstmt As String) As Integer
sqlfetch_Customer = SqlFetch1(csr_Customer, Sqlstmt, bCustomer, LenB(bCustomer))
End Function
i am also adding Customer Dh files.
*This post is locked for comments
Share
Report
All responses (
Answers (