'Beep' unter Access VBA

Hallo zusammen,

ich weiß dass man unter VBA in Access einen Beep erzeugen kann mit „Beep“.

Ich würde gerne diesen erzeugen lassen, wenn ein bestimmtes Feld geändert wird.

Nun habe ich dies probiert, hab es in mehreren „Ereignis-Funktionen“ probiert, aber es „beept“ einfach nicht:

  • Nach Aktualisierung
  • Bei Änderung
  • Bei Geändert

Aber es kommt einfach nichts…

Weiß hier jemand eine Lösung?

Gruß
Jugendsani

Hallo,

ich weiß dass man unter VBA in Access einen Beep erzeugen kann
mit „Beep“.

richtig

Aber es kommt einfach nichts… Weiß hier jemand eine Lösung?

Lautsprecher / Sound einschalten !? :smile:
Im Betriebssystem einen Systemsound definieren…

Grüße aus Rostock
Wolfgang
(Netwolf)

Hi :wink:

Ja alles getan, war auch schon immer so.

Funktioniert auch ohne Probleme, wenn ich das ganze auf einen Commando-Button lege.

Wenn es aber darum geht, dass er etwas ausführen soll, wenn das Feld aktualisiert wird, geht keine einzige Ausführung, die ich in den Code schreibe. Egal ob Beep oder MsgBox.

Gruß

Hallo,

hast Du auch die Ereignisprozedur für das Afterupdate-Ereignis des Feldes richtig angelegt?

(In der Ereignis-Eigenschaft des Feldes muß
[Ereignisprozedur]
stehen…)

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Hi,

auch das steht drin, natürlich im Hintergrund mit dem richtigen Code.

ich geh davon aus, dass „beep“ reicht.

Aber es will einfach nciht gehen.

Hallo,

setz einen Haltepunkt an das „Beep“ und prüf, ob die Prozedur überhaupt aufgerufen wird. Wenn nicht, machst Du noch etwas falsch, oder die DB könnte „im Eimer“ sein.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Also ich hab das ganze jetzt einfach mal mit ner MsgBox probiert.

Wenn ich das Feld direkt ändere, also anklicke und im PopUp-Menü meine Änderung auswähle kommt auch schön meine MessageBox.

Wenn nun aber das Feld mittels CommandoButton geändert wird, kommt keine MsgBox.

Da liegt das Problem.

Danke übrigens für die Geduld :wink:

Hallo,

ja, Geduld braucht man…

Du sprichst in Rätseln…

Poste einfach mal den gesamten diesbezüglichen Code und beschreib genau(!) was Du (mit der Tastatur und Maus) denn nun anstellst.

"Wenn ich das Feld direkt ändere, also anklicke und im PopUp-Menü meine Änderung auswähle " ----> ???

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Okay,

ich gebe zu, ein wenig doof ausgedrückt.

Also ich habe in meiner Tabelle das Feld „Status“ angelegt. Dieses Feld arbeitet mit dem Auswahlassistenten. Somit ist das Feld „Status“ auf meinem Formular ein Kombinationsfeld. Wenn ich nun hier eine Auswahl aus den Vorschlägen (das meinte ich mit PopUp) wähle, funktioniert die Msg-Box ohne Probleme. Wenn ich nun aber das Feld mittels Commando-Button ändere, ändert sich zwar der Feldinhalt, aber es kommt keine MsgBox.

Private Sub LstStatus_Dirty(Cancel As Integer)
MsgBox („Test!“)
End Sub

Private Sub Umschaltfläche32_Click()
Me!LstStatus = „J“
End Sub

Okay,

ich gebe zu, ein wenig doof ausgedrückt.

Also ich habe in meiner Tabelle das Feld „Status“ angelegt.
Dieses Feld arbeitet mit dem Auswahlassistenten.

sollte man in der Tabelle nicht benutzen…

Somit ist das
Feld „Status“ auf meinem Formular ein Kombinationsfeld. Wenn
ich nun hier eine Auswahl aus den Vorschlägen (das meinte ich
mit PopUp) wähle, funktioniert die Msg-Box ohne Probleme. Wenn
ich nun aber das Feld mittels Commando-Button ändere, ändert
sich zwar der Feldinhalt, aber es kommt keine MsgBox.

Private Sub LstStatus_Dirty(Cancel As Integer)
MsgBox („Test!“)
End Sub

Private Sub Umschaltfläche32_Click()
Me!LstStatus = „J“
End Sub

das sind auch falsche Ereignisse…

Das Ereignis „Dirty“ wird auch nicht ausgelöst, wenn die Value-Eigenschaft des Kombifeldes gesetzt wird.

Was GENAU soll denn WANN (bei welchen Vorgängen) passieren?

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Sobald im Kombinationsfeld eine Änderung vollzogen wird (was durch CommandoButton passiert) soll eine MsgBox kommen.

Mehr eigentlich auch nicht.

Hallo,

habe Probleme, den Sinn des Buttons zu begreifen, aber wie auch immmer:

Sub btnButton_Click()
Me!Kombifeld.Setfocus
Me!Kombifeld.Text=„Irgendwas“
End Sub

Sub Kombifeld_Afterupdate()
Beep
End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!