Not a Member Yet,
Click here to Register
How do you like the new design?
It's cool, great job
[tally: 70%] 70%
It's okay
[tally: 20%] 20%
Its OK but I liked the old layout better
[tally: 0%] 0%
Please bring the old one back
[tally: 10%] 10%

votes: 10

ID: 307
Viewed: 2955
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Clint LaFever
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Code to get the next available value for a numberic field such as a Primary Key field for a given table/field. Uses ADO.

Highlight all by clicking in box
<!---Declaration--->
none

Highlight All
<!---Code--->
'------------------------------------------------------------ 
' Author: Clint LaFever [lafeverc@usa.net]
' Purpose: Used to obtain the next available ID in a given table/field
' Parameters: tNAME=Table; fNAME=Field
' Example: x=GetNextID"tblCUSTOMERS","CUST_ID"
'------------------------------------------------------------
Public Function GetNextID(tNAME As String, fNAME As String) As Long
On Error GoTo ErrorGetNextID
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset rs.Open "Select Max(" & fNAME & ") As MaxID from " & tNAME, db.cn, adOpenStatic
If rs.EOF = False Then
If IsNull(rs!MAXID) Then
GetNextID = 1
Else
If rs!MAXID <> -1 Then
GetNextID = rs!MAXID + 1
Else GetNextID = 1
End If
End If
Else GetNextID = 1
End If
Exit Function
ErrorGetNextID:
MsgBox Err & ":Error in GetNextID(). Error Message:" & Err.Description, vbCritical, "Warning"
GetNextID = 0
Exit Function
End Function
;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions