GoldenLine
Zaloguj się
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: TABELO, GDZIE JESTEŚ...

Witam,

Sytuacja wygląda następująco. Tworzę sobie tabelę z wykorzystaniem DAO (.CreateTableDef, .Fields.Append itd.). Wszystko cacy pięknie, kod osiąga swój bezbłędny koniec tylko tabela nie pojawia się na liście dostępnych obiektów. Próbowałem odświeżać poprzez CurrentDb.TableDefs.Refresh jednak nic to nie daje. Tabela pojawia się dopiero po powtórnym zamknięciu/otwarciu bazy oraz przy próbie wyszukiwania jej przez pasek wyszukiwania.

Używam wersji 2007.
Link do wypowiedziLink

konto usunięte

Temat: TABELO, GDZIE JESTEŚ...

Sub create_tab()



    Dim tdfNew As TableDef

    Dim prpLoop As Property

    Set tdfNew = CurrentDb.CreateTableDef("Contacts")

    

    With tdfNew

       .Fields.Append .CreateField("FirstName", dbText)

       .Fields.Append .CreateField("LastName", dbText)

       .Fields.Append .CreateField("Phone", dbText)

       .Fields.Append .CreateField("Notes", dbMemo)

    End With

    

    CurrentDb.TableDefs.Append tdfNew

    

    RefreshDatabaseWindow

    

End Sub
Link do wypowiedziLink
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: TABELO, GDZIE JESTEŚ...

No tak! Prościej być nie mogło.

W ogóle pomarudzę trochę, że pomoc w wersji 2007 jest strasznie do bani. Znaleźć cokolwiek trudniej niż poprzednio...

EDIT: Warto uzupełnić, że z przodu dla większego zrozumienia można dodać Application.RefreshDatabaseWindowBartosz Borczyk edytował(a) ten post dnia 15.08.09 o godzinie 17:07
Link do wypowiedziLink

konto usunięte

Temat: TABELO, GDZIE JESTEŚ...

mi wujek Googl podpowiedział ;)
Link do wypowiedziLink
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: TABELO, GDZIE JESTEŚ...

Przemysław R.:
mi wujek Googl podpowiedział ;)

Mój, jak go pytałem to zajęty był. Fajkę palił i o sianokosach rozmyślał.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Funkcja IF gdzie i jak to z...




Wyślij zaproszenie do
Anuluj