azadich
دوشنبه 19 اردیبهشت 1390, 06:31 صبح
خطا مربوط به کد زیر فقط می خوام فارسی کنم ممنون میشم راهنمایی کنید
Function LinkAllTable(Optional strRamz As String) As Boolean
'ÝÑÖ ÈÑÇíä ÇÓÊ ßå ÝÇíá ÍÇæí ÇØáÇÚÇÊ ÈÇ Óæä ãËáÇ Main
' ÏÑ ßäÇÑ ÝÇíá ÇÌÑÇíí ÈÑäÇãå ÇÓÊ
db = CurrentDb.Name
strFrom = db
typ = Right(db, 4)
db = Mid(db, 1, Len(db) - 4)
strPath = Trim(db & "_Main" & typ) 'ÈÏÓÊ ÂæÑÏä äÇã ÝÇíá ÌÏÇæá
Set dbs = OpenDatabase(strPath, True, False, "; pwd=" & strRamz)
dbs.NewPassword strRamz, ""
For Each TableDef In dbs.TableDefs
strTable = TableDef.Name
If Mid(strTable, 1, 4) = "Msys" Then GoTo 10
If AllTable_s((strTable)) Then GoTo 10 'ÇÑ áíäß ÌÏæá æÌæÏ ÏÇÑÏ Èå ÌÏæá ÈÚÏí ÈÑæ
DoCmd.SetWarnings False
strAp = "Microsoft Access"
DoCmd.TransferDatabase acLink, strAp, _
strPath, acTable, strTable, strTable, False
10:
Next
LinkAllTable = True
dbs.NewPassword "", strRamz
Exit Function
20:
MsgBox -Err
dbs.NewPassword "", strRamz
End Function
Function LinkAllTable(Optional strRamz As String) As Boolean
'ÝÑÖ ÈÑÇíä ÇÓÊ ßå ÝÇíá ÍÇæí ÇØáÇÚÇÊ ÈÇ Óæä ãËáÇ Main
' ÏÑ ßäÇÑ ÝÇíá ÇÌÑÇíí ÈÑäÇãå ÇÓÊ
db = CurrentDb.Name
strFrom = db
typ = Right(db, 4)
db = Mid(db, 1, Len(db) - 4)
strPath = Trim(db & "_Main" & typ) 'ÈÏÓÊ ÂæÑÏä äÇã ÝÇíá ÌÏÇæá
Set dbs = OpenDatabase(strPath, True, False, "; pwd=" & strRamz)
dbs.NewPassword strRamz, ""
For Each TableDef In dbs.TableDefs
strTable = TableDef.Name
If Mid(strTable, 1, 4) = "Msys" Then GoTo 10
If AllTable_s((strTable)) Then GoTo 10 'ÇÑ áíäß ÌÏæá æÌæÏ ÏÇÑÏ Èå ÌÏæá ÈÚÏí ÈÑæ
DoCmd.SetWarnings False
strAp = "Microsoft Access"
DoCmd.TransferDatabase acLink, strAp, _
strPath, acTable, strTable, strTable, False
10:
Next
LinkAllTable = True
dbs.NewPassword "", strRamz
Exit Function
20:
MsgBox -Err
dbs.NewPassword "", strRamz
End Function