Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Assigning order numbers to a record
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...- gearybish
- Post #4
- Forum: Microsoft: Access Forms
-
After update error when calculating age
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...- gearybish
- Post #7
- Forum: Microsoft: Access Forms
-
How to check if form is open
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...- gearybish
- Post #3
- Forum: VBA Visual Basic for Applications (Microsoft)
