Advertisement
Advertisement
| 06.20.2008 at 10:06AM PDT, ID: 23502949 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: |
Private Sub UpdateLinkedTables()
Dim itblFCRateApplicationPathRS As Recordset
Dim db As Database
Dim tblFCRate As TableDef
Dim itblFCRateInformation As TableDef
Dim itblFCRateOutputDirectories As TableDef
Set itblFCRateApplicationPathRS = CurrentDb.OpenRecordset("itblFCRateApplicationPath", dbOpenDynaset)
itblFCRateApplicationPathRS.MoveFirst
If strInitialApplicationPath <> itblFCRateApplicationPathRS!Path Then
Set db = CurrentDb
Set tblFCRate = db.TableDefs("tblFCRate")
Set itblFCRateInformation = db.TableDefs("itblFCRateInformation")
Set itblFCRateOutputDirectories = db.TableDefs("itblFCRateOutputDirectories")
tblFCRate.Connect = ";DATABASE = " & itblFCRateApplicationPathRS!Path
tblFCRate.RefreshLink
itblFCRateInformation.Connect = ";DATABASE = " & itblFCRateApplicationPathRS!Path
itblFCRateInformation.RefreshLink
itblFCRateOutputDirectories.Connect = ";DATABASE = " & itblFCRateApplicationPathRS!Path
itblFCRateOutputDirectories.RefreshLink
Set tblFCRate = Nothing
Set itblFCRateInformation = Nothing
Set itblFCRateOutputDirectories = Nothing
db.Close
Set db = Nothing
End If
itblFCRateApplicationPathRS.Close
Set itblFCRateApplicationPathRS = Nothing
End Sub
|
