Problem mit Listenfeld

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

ich habe ein Listenfeld in dem mehrere Formeln stehen die jede zur Berechnung eines Preises dient.

Jetzt soll nur noch 1 Formel zur zur Auswahl sein. Damit man diese nicht ständig anklicken muss möchte, ich das sie gerne immer ausgewählt ist. Wie ein Standardwert.
Mein bisheriger Code sieht wie folgt aus. Kann ich Ihn weiter verwenden oder muss ich komplett umdenken?

Private Sub Befehl22_Click()
Dim Preis As Single

If ((IsNull(Formel)) Or _
(Formel = 0)) Then
MsgBox „Bitte erst die Produktspezifikationen auswählen!“
Formel.SetFocus
Exit Sub
End If
If (IsNull(Menge)) Then
Preis = 0
Else: Preis = Menge.Column(2)
End If
Select Case Formel.Column(1)
Case „a+0“
Gesamtpreis = Preis + 0
End Select

Hoffe ich habe mich nicht zu unverständlich ausgedrückt.
Vielen Dank im Vorraus.

Grüße
Benni

#2

Hallo Benni!

Was steht in dem Listenfeld in der 1.Spalte (Formel.Column(0)) ? Oder ist die 2. Spalte (Formel.Column(1)) die gebundene Spalte?
Gruß EP

#3

Hallo,

Jetzt soll nur noch 1 Formel zur zur Auswahl sein.

ok, dann lösche doch einfach die restlichen Formeln!?

Damit man diese nicht ständig anklicken muss möchte, ich das sie
gerne immer ausgewählt ist.

ok, dann sortiere deine Liste so, dass deine „Wunschformel“ die Erste ist.

Wie ein Standardwert.

alternativ kannst du auch den setzen

Mein bisheriger Code sieht wie folgt aus. Kann ich Ihn weiter
verwenden oder muss ich komplett umdenken?

Private Sub Befehl22_Click()
Dim Preis As Single

If ((IsNull(Formel)) Or _
(Formel = 0)) Then
MsgBox „Bitte erst die Produktspezifikationen auswählen!“
Formel.SetFocus
Exit Sub
End If
If (IsNull(Menge)) Then
Preis = 0
Else: Preis = Menge.Column(2)
End If
Select Case Formel.Column(1)
Case „a+0“
Gesamtpreis = Preis + 0
End Select

wenn’s denn so sein soll. Man könnte z.B. die Berechnung auch beim Verlassen des Listenfeldes auslösen, so spart man sich das Klicken auf eine Taste.

Grüße aus Raben Steinfeld (bei Schwerin)
Wolfgang
(Netwolf)

#4

Hallo EP,

Was steht in dem Listenfeld in der 1.Spalte (Formel.Column(0))
? Oder ist die 2. Spalte (Formel.Column(1)) die gebundene
Spalte?

Ja die 2. ist die gebundene. In der ersten ist für mich eine Notitz.(Für den Anwender unwichtig und nicht sichtbar)

Danke

Grüße Benni

#5

Hallo Wolfgang,

Private Sub Befehl22_Click()
Dim Preis As Single

If ((IsNull(Formel)) Or _
(Formel = 0)) Then
MsgBox „Bitte erst die Produktspezifikationen auswählen!“
Formel.SetFocus
Exit Sub
End If
If (IsNull(Menge)) Then
Preis = 0
Else: Preis = Menge.Column(2)
End If
Select Case Formel.Column(1)
Case „a+0“
Gesamtpreis = Preis + 0
End Select

wenn’s denn so sein soll. Man könnte z.B. die Berechnung auch
beim Verlassen des Listenfeldes auslösen, so spart man sich
das Klicken auf eine Taste.

Genau das wars nach was ich gesucht hab, wie binde ich denn das in meinen obrigen Code ein?

Vielen Dank im Vorraus für deine Antwort!

Grüße Benni

#6

Hallo Benni,

Genau das wars nach was ich gesucht hab, wie binde ich denn
das in meinen obrigen Code ein?

umgekehrt, den Code bindest du ein beim Ereignis: Fokusverlusst des Listenfeldes.

Grüße aus Raben Steinfeld (bei Schwerin)
Wolfgang
(Netwolf)

#7

Hallo Wolfgang,

umgekehrt, den Code bindest du ein beim Ereignis:
Fokusverlusst des Listenfeldes.

Ja, das geht.Vielen Dank!
Aber, kann ich das so legen das der Inhalt(eine Formel a+b) Listenfeld IMMER ausgewählt ist?(Habe ich mit Stadardwert versucht, aber ging nicht) Ich würde dann den Code mit „Fokusverlust“ auf ein Kombifeld legen sodass dann dies der Auslöser für die Berechnung ist.

Vielen Dank im Vorraus!

Grüße Benni

#8

Hallo Benni,

Aber, kann ich das so legen das der Inhalt(eine Formel a+b)
Listenfeld IMMER ausgewählt ist?

hmm, der erste Wert ist immer ausgewählt!

(Habe ich mit Stadardwert versucht, aber ging nicht)

was hast du versucht? hier mal ne Anleitung: http://office.microsoft.com/de-de/access/HP051886691…
und hier noch ein Tip aus dem Archiv von wer-weiss-was:
/t/access-2000-standardwert/631196

Ich würde dann den Code mit „Fokusverlust“ auf ein Kombifeld legen
sodass dann dies der Auslöser für die Berechnung ist.

das ist ja kein Problem, das kannst du machen.

Grüße aus Raben Steinfeld (bei Schwerin)
Wolfgang
(Netwolf)

#9

Hallo Wolfgang,

was hast du versucht? hier mal ne Anleitung:
http://office.microsoft.com/de-de/access/HP051886691…
und hier noch ein Tip aus dem Archiv von wer-weiss-was:
/t/access-2000-standardwert/631196

Hat geklappt, super vielen Dank für die Hinweise.
Hatte einen Fehler in der Anweisung für den Standardwert:frowning:
Schreiben sollte gelernt sein:smile:

das ist ja kein Problem, das kannst du machen.

Hat auch ohne Probleme geklappt.

Vielen Dank für deine Hilfe!!

Grüße Benni