If what you are trying to do is replace 5560 with 1, 5561 with 2, and so on in table 2 then I would try this:
Public Sub Update_tbl2()
Dim Db As Database
Dim rst As DAO.Recordset
Dim intNewNum As Integer
Dim intOldNum As Integer
Set Db = CurrentDb
Set rst = Db.OpenRecordset("tbl2")
If...
Function Age(varDOB As Variant, _
Optional varAsOf As Variant) As Variant
‘Purpose: Return the Age in years.
‘Arguments: varDOB = Date Of Birth
‘varAsOf = the date to calculate the age at, or today if 'missing.
‘Return: Whole number of years.
Dim dtDOB As Date
Dim dtAsOf As...
Function IsLoaded(ByVal strFormName As String) As Boolean
'Returns True if the specified form is open in Form view or Datasheet view.
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.