Database Journal
MS SQL Oracle DB2 Access MySQL PostgreSQL Sybase PHP SQL Etc SQL Scripts & Samples Links Database Forum

» Database Journal Home
» Database Articles
» Database Tutorials
MS SQL
Oracle
DB2
MS Access
MySQL
» RESOURCES
Database Tools
SQL Scripts & Samples
Links
» Database Forum
» Sitemap
Free Newsletters:
DatabaseDaily  
News Via RSS Feed


follow us on Twitter
Database Journal |DBA Support |SQLCourse |SQLCourse2
 

Featured Database Articles

SQL Scripts & Samples

Posted November 24, 2012

Access Function

By DatabaseJournal.com Staff

>>Script Language and Platform: Access, VBA
Want to use this function in PHP/MySQL but new to PHP/MySQL. It works by taking the select member code description and the last assigned number and format as CON-00001 once the focus in lost after selecting the member description from dropdown list on the form.

Author: lrhrose

	Option Compare Database


Function newMemCode(pMemID) As String

 Dim dbs As Database

 Dim rst As DAO.Recordset

 Dim L_newMemCode As String

 
 On Error GoTo Err_Execute

 Set dbs = CurrentDb()

 
 Set rst = dbs.OpenRecordset("Select last_assigned_nbr From Codes Where code_descr = '" & pMemID & "'")

 
 If rst.EOF = True Then
    dbs.Execute "Insert Into Codes(code_descr, last_assigned_nbr) Values('" & pMemID & "', 1)", dbFailOnError

    
    L_newMemCode = pMemID & "-" & Format(1, "00000")

Else

    L_newMemCode = pMemID & "-" & Format(rst("last_assigned_nbr") + 1, "00000")

    
    dbs.Execute "Update Codes Set last_assigned_nbr = " & rst("last_assigned_nbr") + 1 & " Where code_descr = '" & pMemID & "'", dbFailOnError

End If

 
 rst.Close

 Set rst = Nothing

 Set dbs = Nothing

 
 newMemCode = L_newMemCode

 
 Exit Function

 
Err_Execute:

    newMemCode = ""

    MsgBox "An error occurred while trying to determine the next memberCode to assign."


End Function

Disclaimer: We hope that the information on these script pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as -is", without any warranty, whether express or implied, of its accuracy, completeness, or fitness for a particular purpose... Disclaimer Continued

Back to Database Journal Home



SQL Scripts & Samples Archives

Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 




Latest Forum Threads
SQL Scripts & Samples Forum
Topic By Replies Updated
sql help!! add 1 August 22nd, 11:58 AM
How To Combine These 2 Queries into 1 Query ? tarek_land 1 June 7th, 08:37 AM
solving query svibuk 1 February 3rd, 06:08 AM
converting from a character string to uniqueidentifier saturnius 4 January 4th, 05:56 AM