Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Verschiedenes
Autoren-Login

 

newsletter
Kontakt
English

 

 

 
  Willkommen Gast. Bitte Einloggen oder Registrieren
   
  ÜbersichtHilfeSuchenEinloggenRegistrieren  
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken
VBA: Eingabe per msgBox bestätigen (Gelesen: 1575 mal)
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
VBA: Eingabe per msgBox bestätigen
04.01.2017 um 11:14:49
 
Hallo zusammen -

wie übernehme ich eine aktuelle Eingabe in eine msgBox, mit der der Wert dann per ja/nein bestätigt oder verworfen werden kann?

Merci!
Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 11:15:05 von Tom123456 »  
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #1 - 04.01.2017 um 13:07:47
 
Moin,

bei geeignetem Ereignis:

Code:
Dim strMeldung as String

   strMeldung = Forms!DeinForm!DeinEingabefeld

   If Msgbox(strMeldung, vbYesNo, "Meldungskopf") = vbYes Then
      ' mach was für Ja gemacht werden soll
   Else
       ' mach was füf Nein gemacht werden soll
   End If

 

Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #2 - 04.01.2017 um 13:58:09
 
Super! Danke, Jürgen, das funktioniert bestens.

Jetzt noch eine Ergänzung bitte:
Bei NEIN soll das aktuelle Feld wieder geleert werden und der Cursor in diesem Feld stehen für eine erneute Eingabe.

Dann passt das!
Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 13:58:41 von Tom123456 »  
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #3 - 04.01.2017 um 14:08:43
 
Code:
...
   Else
      Forms!DeinForm!DeinEingabefeld =""
      Forms!DeinForm!DeinEingabefeld.Select
   End If

 

Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #4 - 04.01.2017 um 14:29:58
 
Hier bekomme ich eine Fehlermeldung in der Zeile Datum.Select

Code:
 
Dim strMeldung As String

   strMeldung = Datum

   If MsgBox("Ist das Datum: " & strMeldung & " korrekt?", vbYesNo, "Datum prüfen...") = vbYes Then
      MsgBox "OK!"
   Else
      Datum =""
      Datum.Select
   End If
 



Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 14:33:04 von Tom123456 »  
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #5 - 04.01.2017 um 14:32:50
 
geht es auch ausführlicher?

hab den Nachtrag gerade gesehen - Datum ist ein für Access reservierter Begriff - benenne das Feld um! Und bei einem Datumsfeld wird = NULL statt "" geleert.
Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 14:34:43 von Juergen_el »  

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #6 - 04.01.2017 um 14:49:31
 
Gibt es denn Möglichkeit ohne das Feld Datum umzubennen?
Die dazugehörige Tabelle ist in meinem Testumfeld nicht sichtbar...

EDIT:
Datum = Null /funktioniert soweit.
Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 14:53:44 von Tom123456 »  
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #7 - 04.01.2017 um 15:23:09
 
das umbenennen kostet dich max. 5 Minuten und erspart dir (wenn auch später und unvermutet) Ärger, wo liegt also das Problem?
Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #8 - 04.01.2017 um 15:29:26
 
Yes, soweit klar, Jürgen.
Das Problem ist, dass ich keinen Zugriff auf diese Tabelle habe. Wird jedenfalls nicht angezeigt...
Zum Seitenanfang
 
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #9 - 04.01.2017 um 15:39:46
 
und wie kommt sie dann als Datenquelle in dein Form? Bist du nicht der Entwickler der db? Ausgeblendete Objekte anzeigen aktiviert?

Fragen über Fragen  Schockiert/Erstaunt
Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #10 - 04.01.2017 um 16:00:31
 
Danke Jürgen! Sie waren ausgeblendet...
Fragen über Fragen... so geht es mir auch...  Zwinkernd

Falls du noch Lust auf eine Erweiterung hast...

Die Meldung ansich soll erst erscheinen, wenn das Datum älter als vier Wochen ist
Vermutlich muss ich eine Abfrage nach <Datum()-28 irgendwo im VBA Code platzieren...

Im Moment sieht der Code so aus:

Code:
Private Sub Feld57_AfterUpdate()
Dim strMeldung As String

   strMeldung = Datum

   If MsgBox("Ist das Datum: " & strMeldung & " korrekt?", vbYesNo, "Datum prüfen...") = vbYes Then
   Else
      Datum = Null
      MsgBox "Bitte Datum erneut eingeben!"
   End If
End Sub

 


Zum Seitenanfang
« Zuletzt geändert: 04.01.2017 um 16:39:46 von Tom123456 »  
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: VBA: Eingabe per msgBox bestätigen
Antwort #11 - 04.01.2017 um 16:53:29
 
Code:
Private Sub Datumsfeld_AfterUpdate()
Dim strMeldung As String

   If Me!Datumsfeld < Date()-28 Then

      strMeldung = Me!Datumsfeld

      If MsgBox("Ist das Datum: " & strMeldung & " korrekt?", vbYesNo, "Datum prüfen...") = vbYes Then
      Else
         Datumsfled = Null
         MsgBox "Bitte Datum erneut eingeben!"
      End If
   End If

End Sub
 



so schwer ist das ja nun nicht ... gewöhn dir "sprechende" Bezeichner an - wenn du irgendwann mal was im Code suchst, hilft dir Feld57 nicht wirklich dabei den Inhalt zu erkennen.
Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Tom123456
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 7
Re: VBA: Eingabe per msgBox bestätigen
Antwort #12 - 09.01.2017 um 11:54:59
 
Bestens!
Danke, Jürgen, für deine Hilfe.
Zum Seitenanfang
 
 
IP gespeichert
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken