vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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

Fragen & Antworten rund um sev-Komponenten
sevDataGrid2 Eingabeprüfung 
Autor: AndiSW
Datum: 11.11.04 16:33

Hallo zusammen,

nutze das sevDataGrid2 im Recordset-Modus.

Möchte im Ereignis ErrorAddNew die notwendigen Eingabeprüfungen erledigen. Dazu ist auf DB-Ebene(Access 2002) ein eindeutiger Schlüssel über 2 Spalten vergeben. Gebe ich also hier zweimal das gleiche ein, kann ich den Fehler abfangen und eine eigene "verständliche" MsgBox bringen.

Leider bleibt der Cursor durch den Abbruch des AddNew-Ereignis anschließend in der letzten editierbaren Spalte der Datenzeile stehen, was natürlich logisch ist, weil von dort das BeforeAddNew-Ereignis abgefeuert wird.
Wie kriege ich den Cursor allerdings in eine andere von mir festgelegt Spalte? Denn ich möchte den User natürlich dorthin schicken, wo der Fehler passiert ist, und das kann, wie in meinem Fall, die vorletzte Spalte gewesen sein.

Habe schon versucht, das ganze direkt nach Verlassen der betreffenden Zellen zu prüfen, habe allerdings dort den Effekt, dass ich MsgBoxes stets zweimal wegklicken muss, wie bereits vor wenigen Tagen gepostet.

Wer weiss weiter?

hier mein Code:

Private Sub Grid1_ErrorAddNew(ByVal nError As Long, _
ByVal sDescription As String)

' Fehler beim Speichern der neuen Datenzeile

'Access Fehlermeldungen abfangen

If nError = 3314 Then
MsgBox "Bitte zuerst alle Pflichtfelder ausfüllen.", vbExclamation, "Warnhinweis"

ElseIf nError = 3022 Then

MsgBox "Für diesen Kunden ist für die angegebene Menge bereits ein Preis hinterlegt." & vbNewLine & "Bitte ändern Sie entweder den Kundennamen oder die Menge.", vbExclamation, "Warnhinweis"

Else

MsgBox "Fehler beim Hinzufügen der neuen Datenzeile" & vbCrLf & CStr(nError) & " " & sDescription, vbCritical, "Warnhinweis"

End If


End Sub

Gruss
Andreas
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
sevDataGrid2 Eingabeprüfung1.170AndiSW11.11.04 16:33
Re: sevDataGrid2 Eingabeprüfung600ModeratorDieter11.11.04 19:25
Re: sevDataGrid2 Eingabeprüfung524AndiSW12.11.04 11:00
Re: sevDataGrid2 Eingabeprüfung647ModeratorDieter12.11.04 14:04
Re: sevDataGrid2 Eingabeprüfung739ModeratorDieter12.11.04 14:06
Re: sevDataGrid2 Eingabeprüfung682AndiSW12.11.04 20:54

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