Конференция "Заграничная 7я""Заграничная 7я"
Раздел: --- юмор
Отвечать в конференциях и заводить новые темы может любой участник, независимо от наличия регистрации на сайте 7я.ру.
Eshe raz MsAccess!
Esli ja hochy dat cheloveky prava na Link Table Manager, no hochy minimizirovat ego prava v printzipe, chto mne nado v security cliknut? "Update table" nedostatochno. :((
16.08.2002 20:31:17, Анка aka Провокатор
11 комментариев
Slushaj, a ja uzhe tut sprashivala. Mozhet, ty znaesh. U menja v macrosah v RunCommand pochemy-to v spiske argumentov etot chertov LinkTableManager otstutsvuet (a doma est, i u Leta est). Mozhet, ego kak-to nado dobavit v spisok?
16.08.2002 21:09:45, Анка aka Провокатор
16.08.2002 21:39:46, Adviser :)
Eh. A cherez kod ochen slozhno? Mozhet poslhesh mne module, ja ego vklinit poprobuju. :))
16.08.2002 22:01:01, Анка aka Провокатор
Oi, spasib. Tolko ne toropis s etim, eto ne gorit. I esli deistvitelno prosto. :) Vse na samom dele primitivno - u menja est Linked Tables iz AS400 cherez ODBC (no ja dumaju eto ne vazhno otkuda, hot iz Worda. :)) I mne prosto nado reguljarno update link. Ja hozhy tools-linked table manager i cherez nego delaju update. A hochy sdelat "Event". Obychno ja ego s macros delaju, no dumaju v Event Procedure smogy tvoju programku zapihnut. :)) Ja VBA pisat ne umeju, no mogu chitat nemnogo so slovarem i copy-pastit. Podredaktirovat pod sebja, navernoe smogy (tipa path pomenjat). :))
16.08.2002 22:36:03, Анка aka Провокатор
Spasib, esli sama ne zabudu. No zaver menja chto eto tebe ne naprjag! POtomy chto sama ponimaesh, ja bez etogo prekrasno mogu prozhit. :))
17.08.2002 00:09:37, Анка aka Провокатор
Public Sub LinkDatabase()
'**********************************************************************************
'Created by Adviser :) on 7/12/2001
'Procedure links database tables to the source database
'located in the same folder as client database
'**********************************************************************************
Dim strCurrentDbPath As String
Dim i As Integer, j As Integer
'Get the current path of database
strCurrentDbPath = CurrentDb.Name
For i = 1 To Len(strCurrentDbPath)
If Mid(strCurrentDbPath, i, 1) = "\" Then j = i
Next i
strCurrentDbPath = Left(strCurrentDbPath, j)
For i = 0 To CurrentDb.TableDefs.Count - 1
If CurrentDb.TableDefs(i).Connect <> "" Then CurrentDb.TableDefs(i).Connect = _
";DATABASE=" & strCurrentDbPath & "SourceDB.mdb;TABLE=" & CurrentDb.TableDefs(i).Name
CurrentDb.TableDefs.Refresh
End If
Next i
End Sub 16.08.2002 22:14:08, Adviser :)
Читайте также
9 хэллоуинских фильмов и один сериал, которые подарят атмосферу магии и мистики
Хэллоуинский киноплейлист: ведьмы, монстры и магия — всё, чтобы провести вечер по-особенному.
Плоскостопие у детей: как распознать проблему и помочь вовремя
Плоскостопие часто не воспринимают всерьез, но оно может доставить детям и взрослым немало проблем. Расскажем, как выявить это нарушение на ранних стадиях и чем оно опасно.
