| |
Fragen & Antworten rund um sev-KomponentenAdditem(CStr(NZ(oRs("zub_id"),0))) | | | Autor: crosstravel | Datum: 01.08.17 10:38 |
| Hallo Dieter,
ich komme beim Erstellen eines Dispositionsprogrammes mit sevDataGrid3 ständig
auf einen fehler, bei welchem ich nicht weiterkomme. Ich bin sicher, er hat nichts
mit dem Grid zu tun; vielmehr mache ich wohl etwas falsch. Vielleicht kannst Du mir
aber einen Rat zur problemlösung geben.
Das Programm stürzt regelmässig bei "With .AddItem(CStr(NZ(oRs("zub_id"), 0)))" mit
dem Fehler 3265 ab. Ich habe kontrolliert; alle Datenfelder sind vorhanden. Das Feld
"zub-id" ist der Record-Key von tblZuteilungfahrzeug und enthält den Wert 1.
Danke für Dein Feedback und Gruss
Rainer
' ----------------------------------------------
' Stammdaten aller Busse lesen
' ----------------------------------------------
sSQL = "SELECT * FROM tblKfz ORDER BY kfz_bus "
With sevGrid1
.LockUpdate True
.Clear
If Not oConn Is Nothing Then
If dbFetchRecord(oConn, oRs, sSQL) Then
Set oRsPlan = dbOpenRecordset(oConn, "SELECT * FROM" & _
"tblZuteilungFahrzeug WHERE (zub_beginn < " & dbSQLFunc( _
"FormatDate", m_DateTo) & " AND zub_ende >= " & dbSQLFunc( _
"FormatDate", m_DateFrom) & ") ORDER BY zub_kfz, zub_beginn", , _
adLockReadOnly)
Do
With .AddItem(CStr(NZ(oRs("zub_id"), 0)))
' ----------------------------------------- Busdaten in das Grid
.FixColText(2) = NZ(oRs("kfz_bus"), "")
.FixColText(3) = NZ(oRs("kfz_fahrzeugtyp"), "")
.FixColText(4) = FormatNumber(NZ(oRs("kfz_sitze"), 0), 0, , , _
vbTrue) | |
| 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 |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|