 |  |  |  |  |  |  |  |
generating an auto number
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site
 |
:ehh: helloo...
i have this renting application in which the user enters his name, phone , amount, date , payment to rent a flat ,,
i have a table called rent which is related to this its fields are :
name, telephone,amount, date, paid and there is one more field called serial which is the primary key, i want every user to have a different serial number ( which will be generated automatically every time i add a user)
for example:
when user one will be added he will have serial number 1
when user two is added he will have serial number 2
user 10 serial 10 and so on ,, i tried doing many things but it doesnt work ,
this is my code for the add button:
and this is when the form is loaded:
where serial is an integer
i tried doing this: ( by adding a function)
but i keep on getting an error in the line colored red
any help please?
nawaray
i have this renting application in which the user enters his name, phone , amount, date , payment to rent a flat ,,
i have a table called rent which is related to this its fields are :
name, telephone,amount, date, paid and there is one more field called serial which is the primary key, i want every user to have a different serial number ( which will be generated automatically every time i add a user)
for example:
when user one will be added he will have serial number 1
when user two is added he will have serial number 2
user 10 serial 10 and so on ,, i tried doing many things but it doesnt work ,
this is my code for the add button:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
and this is when the form is loaded:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
where serial is an integer
i tried doing this: ( by adding a function)
Public Function getUniqID(tblname As String, fldname As String) As Long
Dim tmpRs As ADODB.Recordset
Dim MaxID As Long
Set tmpRs = New ADODB.Recordset
tmpRs.CursorLocation = adUseClient
tmpRs.Open "select max(" & fldname & ") as maxID from " & tblname ', Cnn, adOpenDynamic, adLockOptimistic
If IsNull(tmpRs("maxID")) = True Then
MaxID = 0
Else MaxID = tmpRs("maxID")
If MaxID = 0 Then
intSerialNo = 1
Else
intSerialNo = MaxID + 1
End If
tmpRs.Close
End Function Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
but i keep on getting an error in the line colored red
any help please?
nawaray
•
•
Join Date: Dec 2004
Posts: 2,413
Reputation: 
Solved Threads: 211
Something to consider, is setting the database reference to nothing. This should close and unload the adobooks object from memory, and allow you to re-create, and re-open it. I might be mistaken, but it looks like it's mad that you are trying to open a database that is already open.....
•
•
•
•
Originally Posted by nawaray
:ehh: helloo...
i have this renting application in which the user enters his name, phone , amount, date , payment to rent a flat ,,
i have a table called rent which is related to this its fields are :
name, telephone,amount, date, paid and there is one more field called serial which is the primary key, i want every user to have a different serial number ( which will be generated automatically every time i add a user)
for example:
when user one will be added he will have serial number 1
when user two is added he will have serial number 2
user 10 serial 10 and so on ,, i tried doing many things but it doesnt work ,
this is my code for the add button:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
and this is when the form is loaded:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
where serial is an integer
i tried doing this: ( by adding a function)
Public Function getUniqID(tblname As String, fldname As String) As Long Dim tmpRs As ADODB.Recordset Dim MaxID As Long Set tmpRs = New ADODB.Recordset tmpRs.CursorLocation = adUseClient tmpRs.Open "select max(" & fldname & ") as maxID from " & tblname ', Cnn, adOpenDynamic, adLockOptimistic If IsNull(tmpRs("maxID")) = True Then MaxID = 0 Else MaxID = tmpRs("maxID") If MaxID = 0 Then intSerialNo = 1 Else intSerialNo = MaxID + 1 End If tmpRs.Close End Function
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
but i keep on getting an error in the line colored red
any help please?
nawaray
Mike
|
Similar Threads
- Serial Number in Data Reports (Visual Basic 4 / 5 / 6)
- Putting Auto Numbers in a File (C#)
- How to auto increment? (ASP.NET)
- Logic behind generating random number (C)
- problem in generating non repeated random numbers (C)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: Needed Dialer..VB6/XP code
- Next Thread: Password - Adobe Acrobat
| Thread Tools | Search this Thread |
You need to join our community in order to build your list of favorite forums. You can visit the forum index for a listing of all forums.
Latest Visual Basic 4 / 5 / 6 Posts
- Today's Posts
- Unanswered Threads
Related Forum Features
* 6 429 2007 access activex add age append application basic beginner birth bmp calculator cd cells.find click client code college column component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report retrieve save search sendbyte sites sort sql sql2008 sqlserver subroutine table tags textbox time timer urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows
