GoldenLine
Zaloguj się
Andrzej Graczyk

Andrzej Graczyk Specjalista Analiz
Sprzedaży,
Wielkopolski Bank
Spółdzielczy

Temat: Create table

Witam,

W kodzie VBA mam docmd.runSQL zmienna, gdzie zmienna ma postać "Create table (a char, b char...)".

Liczba kolumn tworzonej tabeli jest zmienna. Przy próbie stworzenia tabeli z liczbą kolumn 8 pojawia mi się komunikat "Rekord jest zbyt duży". Bym się nie czepiał ,gdybym chciał stworzyć tabelę z liczbą kolumn 300 ale 8..?

Jakie jest ograniczenie liczby kolumn w create table ? Chyba, że może być inna przyczyna takiego błędu?

Prośba o pomoc w sprawie.
Link do wypowiedziLink
Bartek Borczyk

Bartek Borczyk Operator liczb i
słów

Temat: Create table

Dziwna sprawa. Jeśli jesteś w stanie to założyć, możesz spróbować dookreślić właściwość Size dla tych pól, np. char(30).

Albo zrobić to w inny sposób.



Sub sUtworzTblDef()

    Dim tbl As DAO.TableDef

    Dim fld As DAO.Field

    Dim varPola As Variant, varPole As Variant

    

    varPola = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l")

    

    On Error Resume Next

    DoCmd.DeleteObject acTable, "Tabela"

    On Error GoTo 0

    

    Set tbl = CurrentDb.CreateTableDef("Tabela")

    

    For Each varPole In varPola

        With tbl

            .Fields.Append .CreateField(varPole, dbText)

        End With

    Next varPole

    

    With CurrentDb.TableDefs

        .Append tbl

        .Refresh

    End With

    

    Application.RefreshDatabaseWindow

End Sub
Link do wypowiedziLink
Andrzej Graczyk

Andrzej Graczyk Specjalista Analiz
Sprzedaży,
Wielkopolski Bank
Spółdzielczy

Temat: Create table

działa! dzięki za pomoc!

Pozdrawiam,
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

CREATE TABLE BUG




Wyślij zaproszenie do
Anuluj