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

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 Sub
aber 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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit DB Abfrage und Abfangroutinen919SacreD14.09.03 17:09
Re: Problem mit DB Abfrage und Abfangroutinen651firefighter9715.09.03 08:50

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