dotNETportal.cz

Dobrý deň.

Potrebujem poradiť. Mám databázu v MS Access a v nej aplikáciu vo VBA. Všetko je OK, ale potrebujem ukladať jednu premennú z tejto aplikácie do textového súboru. K tomu som napísal nasledujúci kód:

Set fs=CreateObject("Scripting.FileSystemObject")
set a=fs.CreateTextFile("C:\ActualType.txt",True)
a.WriteLine(Text1.Value)
a.Close

Ďaľší program by mal potom premennú Text1.Value používať, ale po spustení databázy mi na tento kód vypíše, že metóda nie je podporovaná vo VBA.

Môžete mi prosím poradiť, akým iným spôsobom by som mohol ukladať túto premennú do textového súboru? Je to súrne, prosím. Ďakujem

Nevím, jestli to je stejně v Accessu, mám jen Word a Excel, ale načítání a ukládání by mělo fungovat takto:

Private Sub CommandButton1_Click()
  'Uložit
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("D:\ActualType.txt", True)
  a.WriteLine (TextBox1.Value)
  a.Close
End Sub

Private Sub CommandButton2_Click()
  'Načíst
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.OpenTextFile("D:\ActualType.txt")
  TextBox1.Value = a.ReadLine()
  a.Close
End Sub

Ďakujem, ale to je práve ten problém, že v Accesse to asi nejde ukladať takýmto spôsobom, pretože keď príde program na riadok

a.WriteLine(TextBox1.Value)

tak vypíše, že metóda nie je podporovaná. Pritom riadky pred tým program akceptuje:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\ActualType.txt", True)

Preto by som chcel vedieť, či nie je iný spôsob, napríklad ukladať premennú na konkrétne miesto v pamäti (napríklad do registra) a odtiaľ by bola prístupná pre inú aplikáciu.

Ještě zkuste místo TextBox1.Value dát TextBox1.Text.