MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.05.2004, 05:33   #1
H.Elmer
MOF User
MOF User
Standard Fehlermeldung bei Listenfeld - "nicht in Liste"

Hallo,

ich versuche in einem Formular die Fehlermeldung von Access 2000 zu beseitigen, aber es gelingt mir nicht.
Im Listenfeld "Beratername" sollen nur die Berater lt. Liste ausgewählt werden. Bei fehlerhafter Eingabe will ich meine kurze Meldung bringen und danach die vorige Eingabe in diesem Feld löschen (nach OK) - mein Wunsch.
Jetzt kommt zwar nach dem Behandeln des FehlerNr. 20 meine Meldung, aber danach eben auch noch die Meldung von AC, dass diese Eingabe kein Element der Liste ist. Die ist der Teil im Modul:

Private Sub Beratername_NotInList(NewData As String, Response As Integer)
On Error GoTo Beratername_NotInList_Err

Dim Mldg, Stil, Titel, Antwort, Text1

Mldg = "Der ausgewählte Berater ist noch nicht erfasst, möchten Sie fortfahren ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "kein Berater erfasst" ' Titel definieren.

Beratername_NotInList_Err:
If Err.Number = 20 Then 'Der Fehler 20 - nicht in Liste
Resume Next
End If

If Err.Number <> 0 Then
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
End If
Resume Beratername_NotInList_Exit

Beratername_NotInList_Exit:
Exit Sub

End Sub

Habe ich hier noch irgend einen Fehler ??
Dies ist doch eigentlich eine alltägliche Angelegenheit.
(Wo finde ich einen Link zu allen Fehlernummern in AC 2000???)

Vielen Dank

Harald
H.Elmer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2004, 06:12   #2
TommyK
MOF Meister
MOF Meister
Standard

Hallo Harald,

es müßte so etwa lauten:

Code:

Private Sub Beratername_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
     MsgBox "Der ausgewählte Berater ist noch nicht erfasst." & vbNewLine & "Sie können nur einen User aus der Liste auswählen", vbOKOnly + vbExclamation, "Kein Berater erfasst"
End Sub

__________________

Gruss TommyK

TKSoft-Online | Beispiele im MOF Code-Archiv
Meine Software:Windows 10 Pro 64Bit, Windows 7 Ultimate 64Bit, Office 2007 Pro SP2, Office 2010 Pro, Office 2013 Pro, Office 2016 Pro, Office 2019 Pro, VB6 Pro SP6, VS2017
TommyK ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2004, 06:15   #3
reinir
MOF Koryphäe
MOF Koryphäe
Standard

Code:

Private Sub Beratername_NotInList(NewData As String, Response As Integer)
On Error GoTo Beratername_NotInList_Err
 
Dim Mldg, Stil, Titel, Antwort, Text1
 
Mldg = "Der ausgewählte Berater ist noch nicht erfasst, möchten Sie fortfahren ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "kein Berater erfasst" ' Titel definieren.
 
Beratername_NotInList_Err:
If Err.Number = 20 Then 'Der Fehler 20 - nicht in Liste
    Err.Number = 0
    Resume Next
End If
 
If Err.Number <> 0 Then
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
End If
Resume Beratername_NotInList_Exit
 
Beratername_NotInList_Exit:
Exit Sub
 
End Sub
Code eingefügt mit dem MOF Code Converter

EDIT
Tommys Lösung is natürlich eleganter - zu früh noch dazu
reinir ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2004, 08:17   #4
Arne Dieckmann
MOF Guru
MOF Guru
Standard

Übrigens handelt es sich hier wohl um ein Kombinationsfeld (Combobox). Ein Listenfeld hat meiner Meinung nach kein "Nicht in Liste"-Ereignis und ist von der Bedienung her doch etwas anders als eine Combobox.


Zu den Fehlernummern findest Du hier etwas: http://www.ms-office-forum.net/forum...threadid=40950

__________________

Gru&szlig;, Arne<br><br><u>Links</u>: <a *****"http://www.donkarl.com/FAQ/FAQStart.htm">FAQ</a> • <a *****"http://www.ardiman.de/datenbanken/grundlagen.html">Grundlagen</a> • <a *****"http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/index.htm">Relationale Datenbanken</a> • <a *****"http://www.lebans.com/">Stephen Lebans</a> • <a *****"https://dbwiki.net">DBWiki</a> <br><u>Tools</u>: <a *****"http://www.ardiman.de/datenbanken/tabtoweb.html">TabToWeb</a> • <a *****"http://www.sqlinform.com/">SQL-Formatter</a> • <a *****"/forum/vbseiten.php?page=7">Code Converter</a> • <a *****"https://regex101.com/">RegEx testen</a><br><u>System</u>: Win7 Pro 64bit, Office 20xx, div. MS-SQL Server 20xx, <a *****"http://www.firefox-browser.de/">Firefox</a><br><span style="color:#B22222">Bitte keine Fragen per Mail/PN</span> und als Neuling diese Anleitung (Code-Tags, Anhänge etc.) lesen.

Geändert von Arne Dieckmann (11.05.2004 um 08:38 Uhr).
Arne Dieckmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2004, 11:03   #5
H.Elmer
Threadstarter Threadstarter
MOF User
MOF User
Standard

Vielen Dank !

- der Tip von TommyK funktioniert großartig
- auch das Modul zu den Fehlermeldungen ist toll, warum kann MS diese nicht veröffentlichen!

Danke Harald
H.Elmer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:15 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.