|
| |
VB & Datenbanken| Problem mit DB Abfrage und Abfangroutinen | |  | | Autor: SacreD | | Datum: 14.09.03 17:09 |
| Hi ! Ich habe da so ein Problem :
also ... ich habe eine Datenbank ,in access, in der Artikel mit bezeichnung und preis gespeichert werden, jetzt habe
ich ein formular gemacht in dem man das alles schoen eingeben kann ... jetzt will ich aber, das wenn man eine artikel nummer eingibt, die schon vergeben ist folgende msgbox auftaucht :
wahl = MsgBox("Sorry, diese Nummer " & rs!ArtNr & " ist bereits belegt mit dem" & _
"Artikel :" & vbCr & rs!Art_Bez & vbCr & "Zum Preis von : " & rs!St_Preis & _
"€", vbAbortRetryIgnore + vbExclamation)dann haette ich noch gerne das wenn abort gerueckt wird, das formular geschlossen wird und die eingabe geloescht wird, und bei retry das feld geloescht und gefocused wird und bei ignore soll noch eine msg box kommen die dann sagt diesen fehler koennen sie nicht ignoren und dann das selbe tut wie bei retry ... das habe ich mir so vorgestellt :
If wahl = vbAbort Then
DoCmd.DeleteObject (ja welches denn ?)
DoCmd.Close
End If
If wahl = vbRetry Then
Form_Artikel.SetFocus
ArtNr.SetFocus
ArtNr = ""
End If
If wahl = vbIgnore Then
MsgBox "Diesen Fehler können Sie nicht ignorieren !!", vbCritical + _
vbExclamation
Form_Artikel.SetFocus
Form_Artikel.ArtNr.SetFocus
Form_Artikel.ArtNr = ""
End If so... das ganze wollte ich dann im Private Sub ArtNr_AfterUpdate() machen und zwar so ungefaehr :
Private Sub ArtNr_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strArtNr As String
Dim wahl As String
strArtNr = ArtNr
Set db = CurrentDb()
strSQL = "Select * From Artikel where Artikel.ArtNr = " & Str(strArtNr)
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
wahl = MsgBox("Sorry, diese Nummer " & rs!ArtNr & " ist bereits belegt mit dem" & _
"Artikel :" & vbCr & rs!Art_Bez & vbCr & "Zum Preis von : " & rs!St_Preis & _
"€", vbAbortRetryIgnore + vbExclamation)
If wahl = vbAbort Then
DoCmd.DeleteObject (welches denn nun)
DoCmd.Close
End If
If wahl = vbRetry Then
Form_Artikel.SetFocus
ArtNr.SetFocus
ArtNr = ""
End If
If wahl = vbIgnore Then
MsgBox "Diesen Fehler können Sie nicht ignorieren !!", vbCritical + _
vbExclamation
Form_Artikel.SetFocus
Form_Artikel.ArtNr.SetFocus
Form_Artikel.ArtNr = ""
End If
End Subaber mir faellt keine idee ein, wie das hinkriege , dass die box nur kommt wenn eine schon vergebene artnr eingegeben wird ... bitte helft mir mal !!!
ich kriegs echt nicht raus und muesste damit am besten heute schon fertig sein ....
waere echt super wenn ihr mir helfen koennt, ich habe naehmlich eigentlich nicht den goessten plan von programmieren ...
danke schonmal im vorraus !
ps.
ihr koennt euch auch per icq melden : 66011240
ps2.
ach ja und das feld artnr darf keinen nullwert enthalten | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
| |
|
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
|
|
Sie sind aktuell nicht angemeldet.
