| |
VB & DatenbankenErstellung von Tabellen | | | Autor: Angelus | Datum: 17.12.04 10:38 |
| Servus
mein problem
Ich versuch über einen button eine tabelle zu erstellen. inder ich 30 spalten habe die verschiedene datentypen haben ich habe da einen vb code der bei mir schon in der datenbank vorhanden ist den habeich versucht zu verändern doch der bringt mir immer den selben fehler "fehler in der felddefinition" kann mir da einer weiterhelfen?
Dim FC_1Monat(30) As String
Dim KAppa(30) As String
'Prüfen ob die Tabelle vorhanden ist, wenn ja wird sie gelöscht
If TabVorhanden("FC_1Monat") = True Then
DoCmd.DeleteObject acTable, "FC_1Monat"
End If
'Prüfen ob die Tabelle vorhanden ist, wenn ja wird sie gelöscht
If TabVorhanden("KAppa") = True Then
DoCmd.DeleteObject acTable, "KAppa"
End If
CurrentDb.Execute ("Create Table FC_1Monat(Matrialnr text,Sachnummer text,Dis text,Fst text,AZ8 text,BRW text,Rueckstand text,Woch1 text,Woch2 text,Woch3 text,Woch4 text,Wo_14 text,Mon_2 text,Mon_3 text,Mon_4 text,Mon_5 text,Mon_6 text,Mon_7 text,Mon_8 text,Mon_9 text,SiBest text,Best text,SBWert text,Bestandswert text)")
CurrentDb.Execute ("Create Table KAppa(Feld1 text,Feld2 text,Feld3 text,Feld4 text,Feld5 text,Feld6 text,Feld7 text,Feld8 text,Feld9 text,Feld10 text,Feld11 zahl,Feld12 text,Feld13 text,Feld14 text,Feld15 text,Feld16 text,Feld17 text,Feld18 text,Feld19 text,Feld20 text,Feld21 text,Feld22 text,Feld23 text,Feld24 text,Feld25 text,Feld26 text,Feld27 text,Feld28 text,Feld29 text,Feld30 text)")
End Sub
Schon mal danke im vorraus!
MFG Angelus
Die Dummheit der Menschen ist so unendlich wie das Weltal blo? mit dem Weltal bin ich mir nicht sicher! | |
Re: Erstellung von Tabellen | | | Autor: wincnc | Datum: 17.12.04 10:44 |
| Versuch´s mal so:
CurrentDb.Execute ("Create Table KAppa(Feld1 text,Feld2 text,Feld3 text,Feld4 text,Feld5 text,Feld6 text,Feld7 text,Feld8 text,Feld9 text,Feld10 text,Feld11 Number,Feld12 text,Feld13 text,Feld14 text,Feld15 text,Feld16 text,Feld17 text,Feld18 text,Feld19 text,Feld20 text,Feld21 text,Feld22 text,Feld23 text,Feld24 text,Feld25 text,Feld26 text,Feld27 text,Feld28 text,Feld29 text,Feld30 text)") | |
Re: Erstellung von Tabellen | | | Autor: Angelus | Datum: 17.12.04 10:56 |
| Also ich habe das ausprobiert jedoch funktioniert das nicht !
Er löscht zwar die zwei tabellen aber erstellen tut er sie nicht .
Hast du eine ahnung wie der code richtig heißen müsste!
MFG Angelus
Die Dummheit der Menschen ist so unendlich wie das Weltal blo? mit dem Weltal bin ich mir nicht sicher! | |
Re: Erstellung von Tabellen | | | Autor: wincnc | Datum: 17.12.04 11:04 |
| Habe es bei mir brobiert und es funktioniert !
Drücke mal in der Tabellen Ansicht die Taste F5 zum aktualisieren. | |
Re: Erstellung von Tabellen | | | Autor: Angelus | Datum: 17.12.04 11:11 |
| Jo danke hatte was vergessen!
Funktioniert alles!
MFG Angelus
Die Dummheit der Menschen ist so unendlich wie das Weltal blo? mit dem Weltal bin ich mir nicht sicher! | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere Infos
|