GRY-Online.pl --> Archiwum Forum

VBA Access - banalne pytanie

14.06.2006
12:36
smile
[1]

pecet007 [ ]

VBA Access - banalne pytanie

Jak pobrać wartość danego pola o danym indexie z poziomu skryptu VBA? Trzeba to chyba jakoś tak zrobić nie?
CurrentDb.TableDefs("NazwaTabelki") -- okej ale co dalej? Chciałbym pobrać wartość konkretnego pola o konkretnym indeksie i jeszcze wiedzieć ile tych pól ogólnie jest z poziomu VBA, bo potrzebuję pętlę sprawdzającą wszystkie pola o danej nazwie w tabeli...

Z góry dzięki...

14.06.2006
12:40
[2]

legrooch [ MPO Squad Member ]

Nagraj macro kopiowania. Zobacz, jak się odwołuje to wartości i użyj tej właściwości.

14.06.2006
12:41
[3]

pecet007 [ ]

legrooch -- fajnie tylko że nigdzie nie widzę opcji nagrywania makra, uzywam Office'a 2000

14.06.2006
12:49
[4]

pecet007 [ ]

up

14.06.2006
12:50
[5]

legrooch [ MPO Squad Member ]

Nie mam dostępnego O2000. Chwila.

Range("D7").Select - wybór danych z komórki. Zobacz jak wygląda konstruktor i metody obsługi tabeli. Gdybym miał chwilę czasu to bym Ci pomógł.

14.06.2006
13:34
smile
[6]

pecet007 [ ]

legrooch -- coś nie śmiga, kurde googluje też i nic nie mogę znaleźć :/ udało mi się znaleźć kod który wypisuje za to nazwy wszystkich pól, ale nie o to mi chodziło...

14.06.2006
14:07
[7]

pecet007 [ ]

up

14.06.2006
14:32
[8]

pecet007 [ ]

na prawdę nikt nie jest w stanie mi pomóc?

14.06.2006
14:42
[9]

legrooch [ MPO Squad Member ]

Przejrzyj MSDN i zobacz co i jak.

14.06.2006
14:46
[10]

pecet007 [ ]

legrooch -- przeglądałem msdna, google i bóg wie co jeszcze... nie wiem, po prostu już nie myślę, tylko siedzę przed komputerem i klnę...

no dobra dzięki legrooch w końcu znalazłem odpowiedź oczywiście była banalna jak cholera, cóż debilnieję na starość...

dla zainteresowanych to coś odczytuje rekordy to tablicy 2-wymiarowej



Dim v() As Variant

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM tblData", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
v = rs.GetRows
rs.Close

© 2000-2022 GRY-OnLine S.A.