vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
ADD NEW in Excel "Feld ist zu klein für die Datenmenge ........." 
Autor: LesPaul
Datum: 23.10.05 14:12

moin,

habe folgenden Code (etwas vereinfacht) und bekomme für den letzen Punkt: "AUSSCHREIBUNG" folgende Fehlermeldung:

"Das Feld ist für die Datenmenge zu klein, versuchen Sie weniger Daten einzufügen"

wenn ich die AUSSCHREIBUNG weglasse, funktkioniert es wunderbar
Ich hoffe jemand hat eine Idee, vielen Dank für eure Hilfe

-----------------------------------------------------------------------------------

Dim rsExcelAusg As Recordset
Set rsExcelAusg = dbsGenerell.OpenRecordset("Druck")

Dim PfadE As String
Dim Datei1 As String
Dim Datei2 As String

Dim ExcelA As Database
Dim ExcelR As Recordset
Dim wrkJet As Workspace

PfadE = App.Path

Datei1 = App.Path & "\Excel\ZuSt.xls"
Datei2 = App.Path & "\ Excel \ZuSt.lee"

FileCopy Datei2, Datei1

Set wrkJet = CreateWorkspace("", "Admin", "", dbUseJet)
Set ExcelA = wrkJet.OpenDatabase(Datei1, False, False, "Excel 8.0;")
Set ExcelR = ExcelAus.OpenRecordset("Druck$")

Do While Not rsExcelAusg.EOF

ExcelR.AddNew

FeldName = "Artikel"
ExcelR.Fields("Artikel") = rsExcelAusg!Artikel
FeldName = "Text"
ExcelR.Fields("Text") = rsExcelAusg!Text
FeldName = "Menge"
ExcelR.Fields("Menge") = rsExcelAusg!Menge
FeldName = "Ausschreibungstext"
ExcelR.Fields("Ausschreibungstext") = rsExcelAusg!AUSSCHREIBUNG

ExcelR.Update

rsExcelAusg.MoveNext

Loop

ExcelR.Close
ExcelA.Close
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ADD NEW in Excel "Feld ist zu klein für die Datenmenge ...778LesPaul23.10.05 14:12
Re: ADD NEW in Excel "Feld ist zu klein für die Datenme...485ModeratorDieter23.10.05 19:58
Re: ADD NEW in Excel "Feld ist zu klein für die Datenme...537LesPaul24.10.05 11:17

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel