Конференция "Заграничная 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 :)
Читайте также
Как эффективно отбелить тюль и продлить его жизнь
Надоел пожелтевший тюль? Хотите вернуть ему сияющую белизну, но не знаете, с чего начать? В нашей новой статье вы найдете полный гид по отбеливанию тюля в домашних условиях! От проверенных народных методов (зеленка, соль, перекись) до современных кислородных отбеливателей
СДВГ у детей: как проявляется и что делать родителям
Плохая успеваемость, проблемы со сном и поведением могут быть сигналами СДВГ –распространенного психического нарушения. В статье расскажем, как распознать болезнь и помочь ребенку.
