>>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.
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