Office: (Office 2016) Buchungsprobleme

Horst14 · 27. Juli 2020

Aus der Abfrage muss der raus
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das macht ja auch Sinn... sorry soweit habe ich nicht gedacht....

Die Abfrage hat vorher folgendes ergeben:
Coin BTC 13,09163... Bitwala
Coin ADA 20000 Bitpanda
Coin BTC -7,5 Ladger

Und jetzt:
Coin BTC 41,91363456... Bitwala
Coin ADA 20000 Bitpanda
Coin BTC 7,5 Ladger

Mich wundert etwas die starke differenz auf dem Bitwala wallet aber das werde ich säter ausführlich testen.
Hast du auch eine Idee, warum er mir bei dem Coin Kurs nur 2 Dezimalstellen anzeigt und nicht 4?
So wie er es eigentlich auch in der Abfrage macht?
Das kann doch nur noch eine Falsche Einstellung in den Eigenschaften sein? Aber ich finde es nicht.

Beaker s.a. · 27. Juli 2020

Hallo Horst,
Woran es liegt kann ich dir nicht sagen, aber wenn du die Formatierung in der Abfrage
des Kombis explizit vornimmst klappt's
Code:

SELECT
CK.coin_kurs_ID,
Format(CK.kurs,"#,###.0000 ") AS Kurse,
CK.kurs_datum AS Datum,
CK.fk_coin_ID
FROM tbl_coins_wallets AS CW
INNER JOIN tbl_coins_kurse AS CK
ON CW.cwID = CK.fk_coin_ID
WHERE CK.fk_coin_ID=[Forms]![frm_transaktionen]![cbo_fk_coin_ID]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Horst14 · 27. Juli 2020

Hi, ich habe die Abfrage geändert und das Ergebnis ist das selbe :-/
Habe ich vielleicht noch einen Fehler die sich gegenseitig beißen?

Beaker s.a. · 27. Juli 2020

Hi, ich habe die Abfrage geändert und das Ergebnis ist das selbe :-/
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo bist du denn eigentlich?
Ich habe nur das Kombi "cbo_fk_coin_kurs_ID" gefunden, wo der Coin-Kurs
angezeigt wird (i.Ü. mit 4 NK-Stellen auch in deinem letzten Upload).

Horst14 · 27. Juli 2020

Ja genau cbo_fk_coin_kurs_ID das meine ich aber bei mir werden da nur 2 Dezimalstellen angezeigt.
Was steht bei dir als Format? komisch das es bei dir geht und bei mir nicht.

Kann es sein, dass ich in der Datenbank gennerell was vermorkst habe :-( Ich kann plätzlich nichts mehr hinzubuchen und wenn ich "sell" auswähle findet er die Coins auf dem Ladger nicht.

Syntaxfehler (fehlender Operator) in Abfrageausdruck walletID = AND coinID=1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kommt bei dir auch dieser Fehler?

Beaker s.a. · 28. Juli 2020

Hallo Horst,
Auch wenn ich mich wiederhole, aber du musst endlich lernen solche Fehler
selber zu finden.
Da ist ein Logikfehler drin; - ein Ziel-Wallet gibt es nur bei einer Umbuchung.
Also muss das DLookup auf den Kurs mit in den If-Zweig für die Zielbuchung
Code:

' Ziel eintragen
If Me.cbo_fk_trans_art_ID.Column(2) = True Then

' KursID abfragen
IDKurs = DLookup("coin_kurs_ID", "abf_wallets_kurse", "walletID =" & .cbo_fk_wallet_ID_Ziel & " AND coinID =" & .cbo_fk_coin_ID.Column(3))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Horst14 · 29. Juli 2020

Hi danke für deine Hilfe.

Auch wenn ich mich wiederhole, aber du musst endlich lernen solche Fehler
selber zu finden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist insoweit nicht schlimm, da du recht hast nur mir fehlt da scheinbar etwas die korrekte Herangehensweise. ☹

Bzw. in dem fall hat mir glaube mehr das Verständnis gefehlt, da ich an dieser stelle nichts geändert habe und es vorher augenscheinlich funktioniert hatte.
Die Fehler Meldung ist nun weg. Danke dafür.

Das Problem mit den 4 Dezimalstellen habe ich weiterhin aber konnte es insofern lösen, da ich festgestellt habe, wenn ich in der Abfrage abf_bestand_kurs
Mit Kurse: Format(CK.kurs;"#.###,0000 ") arbeite funktioniert die anzeige und somit werde ich als Datensatzherkunft auf eine Abfrage zurückgreifen und nicht das Select direkt schreiben.

ich habe das Resultat nach der Änderung getestet. Das Kaufen funktioniert super.
Wenn ich etwas verkaufe wähle ich den Kurs aus, zu dem ich gekauft habe wo ich z.b 1.5 Coins habe und wenn ich 1 verkaufe habe ich anschließend 2,5.

Den Fehler konnte ich beheben, indem ich den *iFaktor in der Ziel Insert eintragen habe. (vorher stand es bei Buchen)

ist das korrekt?
Oder habe ich mir somit einen 2. Fehler eingebaut?
Desweiteren ist mir aufgefallen, dass wenn ich z.b einen kauf auf meinen Ladger machen möchte sehe ich das bereits z.b 14,5 Coins habe was auch soweit passt
Code:

=Nz(Wenn([cbo_fk_coin_ID] Ist Null Oder [cbo_fk_wallet_ID_Quelle]=0;0;DomWert("Bestand";"abf_bestand";"cwID = " & [cbo_fk_coin_ID]));0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und wenn ich etwas vom Ladger verkaufen möchte steht da 1
Code:

=Wenn([cbo_fk_trans_art_ID]=1;[Bestand2];Nz([cbo_fk_coin_kurs_ID].[Column](3);0))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich in die Abfragen rein schaue abf_bestand_kurs und abf_bestand sehe ich auch, dass in abf_bestand_kurs die buchungen fehlen.

Ist dies auch nur ein Logic Fehler?

Der Code sieht wie folgt aus:
Code:

Option Compare Database
Option Explicit
Dim ID As Long

Private Sub btn_coin_guthaben_Click()
DoCmd.OpenForm "frm_coinanzeigen"
End Sub

' Buchen
Private Sub btn_buchen_Click()
On Error GoTo ErrHandler
Dim sSQL As String
Dim lgTransArt As Long
Dim IDKurs As Long
Dim iFaktor As Integer

With Me
If fncCheckDateneingabe(Me) = False Then
MsgBox "Daten - Eingabefehler!"
Exit Sub
End If

If fncEnoughCoins(Me) = False Then
Me.txt_anteil = 0
Me.txt_anteil.SetFocus
Exit Sub
End If

' Buchen
If .cbo_fk_trans_art_ID.Column(2) = False Then
iFaktor = .cbo_fk_trans_art_ID.Column(3)
Else
'Umbuchung, d.h. in der Quelle wird abgezogen
iFaktor = -1
End If

sSQL = "INSERT INTO tbl_transaktionen (" _
& "fk_trans_art_ID, fk_coin_kurs_ID, " _
& "anteil, gebuehren, " _
& "trans_datum, buchungsID, " _
& "haltefrist, trans_beschreibung) " _
& "VALUES (" _
& cSql(.cbo_fk_trans_art_ID, vbLong) & ", " & cSql(.cbo_fk_coin_kurs_ID, vbLong) & ", " _
& cSql(.txt_anteil, vbDouble) & ", " & cSql(.txt_gebuehren, vbCurrency) & ", " _
& cSql(.txt_trans_datum, vbDate) & ", " & cSql(.txt_buchID, vbLong) & ", " _
& cSql(.txt_haltefrist, vbLong) & ", " & cSql(.txt_trans_beschr, vbString) & ")"
'SqlDebug sSQL
CurrentDb.Execute sSQL, dbFailOnError
'Me.Form_frm_transaktionen.Form.Requery

' Ziel eintragen
If Me.cbo_fk_trans_art_ID.Column(2) = True Then

' KursID abfragen
IDKurs = DLookup("coin_kurs_ID", "abf_wallets_kurse", "walletID =" & .cbo_fk_wallet_ID_Ziel & " AND coinID =" & .cbo_fk_coin_ID.Column(3))

sSQL = "INSERT INTO tbl_transaktionen (" _
& "fk_trans_art_ID, fk_coin_kurs_ID, " _
& "anteil, gebuehren, " _
& "trans_datum, buchungsID, " _
& "haltefrist, trans_beschreibung) " _
& "VALUES (" _
& cSql(.cbo_fk_trans_art_ID, vbLong) & ", " & cSql(IDKurs, vbLong) & ", " _
& cSql(.txt_anteil * iFaktor, vbCurrency) & ", " & cSql(.txt_gebuehren, vbCurrency) & ", " _
& cSql(.txt_trans_datum, vbDate) & ", " & cSql(.txt_buchID, vbLong) & ", " _
& cSql(.txt_haltefrist, vbLong) & ", " & cSql(.txt_trans_beschr, vbString) & ")"

'SqlDebug sSQL
CurrentDb.Execute sSQL
End If

' Clear
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.Tag
Case "V"
Me(ctl.name) = Null
Case "Z"
Me(ctl.name) = 0
Case "D"
Me(ctl.name) = ""
Case "T"
Me(ctl.name) = "keine"
End Select
Next ctl
End With
Me.txt_verkaufspreis.Visible = False
Me.cbo_fk_wallet_ID_Ziel.Visible = False
Me.Dummy.SetFocus

ExitErrHandler:
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitErrHandler
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist es die If anweisung die nicht ganz passt?
Code:

If .cbo_fk_trans_art_ID.Column(2) = False Then
iFaktor = .cbo_fk_trans_art_ID.Column(3)
Else
'Umbuchung, d.h. in der Quelle wird abgezogen
iFaktor = -1
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie müsste ich vorgehen um diesen Fehler jetzt zu beheben?
Ist es etwas offensichtliches?

Danke für deine Geduld und deine Top Hilfe!

Horst14 · 30. Juli 2020

Den Fehler konnte ich beheben, indem ich den *iFaktor in der Ziel Insert eintragen habe. (vorher stand es bei Buchen)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fehlanzeige wenn ich auf kaufen gehe sehe ich das bei meinem Bestand der wert mehr geworden ist aber wenn ich auf Verkaufen gehe wurde es abgezogen...
Ich habe es wieder zurück geändert.

Liegt es nur an den beiden Abfragen:

Ist es die Abfrage von Aktueller bestand beim kauf
Code:

=Nz(Wenn([cbo_fk_coin_ID] Ist Null Oder [cbo_fk_wallet_ID_Quelle]=0;0;DomWert("Bestand";"abf_bestand";"cwID = " & [cbo_fk_coin_ID]));0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und Aktueller Bestand Verkauf?
Code:

=Wenn([cbo_fk_trans_art_ID]=1;[Bestand2];Nz([cbo_fk_coin_kurs_ID].[Column](3);0))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beaker s.a. · 30. Juli 2020

Hallo Horst,
Du bist schon echt ein Problemfall. Ich verstehe das nicht, - wie oft habe ich
dich jetzt auf den Einzelschrittmodus hingewiesen?
Ich komm' da ja schon selber kaum noch klar. Also das mit der Bestimmung
des Faktors ist viel einfacher. Nachdem ich mit die tbl_trans_arten noch mal
angesehen habe, habe ich gesehen, dass da ja auch schon der Faktor=-1
ist. Da braucht es das erste If gar nicht, ein einfaches
Code:

iFaktor = .cbo_fk_trans_art_ID.Column(3)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

reicht also völlig aus. Bei Kauf und Umbuchung wird dabei abgezogen, beim
Einkauf addiert. In der ersten Abfrage muss daher der "anteil" unbedingt mit
"iFaktor" multipliziert werden wie gezeigt. Für die zweite Buchung spielt
der Faktor keine Rolle, da die Anteile im Form eh mit positivem Vorzeichen
eingegeben werden.

Bestandsanzeige; - wenn du deine "abf_bestand" auf des Wesentliche
reduzieren würdest
Code:

SELECT
CW.walletID,
CW.coinID,
Sum(T.anteil) AS Bestand
FROM tbl_coins_wallets AS CW
INNER JOIN (tbl_coins_kurse AS TK
INNER JOIN tbl_transaktionen AS T
ON TK.coin_kurs_ID = T.fk_coin_kurs_ID)
ON CW.cwID = TK.fk_coin_ID
GROUP BY CW.walletID, CW.coinID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

reicht für die Bestandsanzeige im Form
Code:

=DomWert("[WBestand]";"[abf_bestand]";"walletID=" & [].[cbo_fk_wallet_ID_Quelle] & " AND coinID=" & [].[cbo_fk_coin_ID])
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und auch noch mal, - entschlacke deine Abfragen (auch die der Kombis). Da
sind überall nicht benötigte Tabelle drin.

gruss ekkehard

Horst14 · 31. Juli 2020

Hi,

wie oft habe ich dich jetzt auf den Einzelschrittmodus hingewiesen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das habe ich gemacht, früher hatte er immer Public Sub setRebooking() als Makro angezeigt aber seit dem ich diese gelöscht habe aus mdl_settings da ich die gegenbuchung mit in frm_transaktion geschrieben habe
findet er kein Makro mehr und macht nichts mehr.

Und somit komme ich nicht weiter :-/

Die If habe ich entfernt und habe die abf_bestand abgeändert und den code im Formular eingegeben. anschließend stand #Fehler wenn ich ein Wallet ausgewählt habe.
Wenn ich auf den code im Formular klicke steht etwas mit Zirkelbeziehung... Was genau hat WBestand zu sagen?

Auf der suche nach dem Fehler habe ich noch festgestellt, dass ich in der abfrage abf_kurz noch Bestand: anteil*faktor stehen hatte... das hat zu der falschen und auch verwirrenden anzeige bei der Buchung geführt.
Somit war die Anzeige falsch und ich konnte es nicht genau einordnen. Ich habe auch alle Bsp Datensätze gelöscht und somit konnte ich das schnell erkennen.
Ich werde mal noch weiter Testen.

Falls du eine Antwort hast, warum das mit dem Einzelschrittmodus nicht mehr geht und warum der Code im Formular nicht geht:
Code:

=DomWert("[WBestand]";"[abf_bestand]";"walletID=" & [].[cbo_fk_wallet_ID_Quelle] & " AND coinID=" & [].[cbo_fk_coin_ID])
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

las es mich wissen. Warum steht da eigentlich WBestand?

Beaker s.a. · 31. Juli 2020

Hallo Horst,
Weil das Feld im Form schon "Bestand" heisst habe ich das berechnete Feld
in der Abfrage zu "W(allet)Bestand" umbenannt.
Deine Rebooking-Prozedur kannst du doch völlig vergessen (löschen). Wird
doch durch die diskutierte Prozedur (Buchen) alles abgedeckt.
Deine Prozeduren zur Einstellung der RowSources halte ich auch für überflüssig,
- zumindest sind die damit erzeugten Abfragen aufbebläht. Ich habe das bei
meinen Test schon teilweise geändert.
gruss ekkehard

Horst14 · 2. August 2020

Hi Ekkehard,

Weil das Feld im Form schon "Bestand" heisst habe ich das berechnete Feld
in der Abfrage zu "W(allet)Bestand" umbenannt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ok stimmt ja das macht Sinn
Aber dennoch funktioniert der Code nicht. Es erscheint #Name? Also die Abfrage geht aber wenn ich mit: Code:

=DomWert("[WBestand]";"[abf_bestand]";"walletID=" & [].[cbo_fk_wallet_ID_Quelle] & " AND coinID=" & [].[cbo_fk_coin_ID]) die Anzahl ausgeben will erscheint der Fehler.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Deine Rebooking-Prozedur kannst du doch völlig vergessen (löschen). Wird
doch durch die diskutierte Prozedur (Buchen) alles abgedeckt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich sagte ja, diese habe ich gelöscht und seitdem findet Access auch kein Makro mehr (was ja kalr ist) somit kann ich den Einzelschrittmodus vergessen.

Deine Prozeduren zur Einstellung der RowSources halte ich auch für überflüssig,
- zumindest sind die damit erzeugten Abfragen aufbebläht. Ich habe das bei
meinen Test schon teilweise geändert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Könntest du mir die Änderungen zur Verfügung stellen?

Kann man auch zb. Diese Abfrage schlanker machen?
Code:

SELECT Sum([anteil]*[kurs]) AS Summevoncoin_preis, TA.trans_art, C.coin_name
FROM tbl_trans_arten AS TA INNER JOIN (tbl_coins AS C INNER JOIN (tbl_coins_wallets AS CW INNER JOIN (tbl_coins_kurse AS CK INNER JOIN tbl_transaktionen AS T ON CK.coin_kurs_ID = T.fk_coin_kurs_ID) ON CW.cwID = CK.fk_coin_ID) ON C.coin_ID = CW.coinID) ON TA.trans_art_ID = T.fk_trans_art_ID
GROUP BY TA.trans_art, C.coin_name
HAVING (((TA.trans_art)="Buy Coins"));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und wenn ja Wie?

Horst14 · 11. August 2020

Hi Ekkehard,

hast du mich vergessen oder willst du mir die Änderungen nicht zur verfügung stellen?*rolleyes.gif*

Beaker s.a. · 13. August 2020

Hallo Horst,
Entschuldige bitte, aber die letzten 14 Tage bin ich zu nichts gekommen.
Diese Woche bin ich im Urlaub, und da erlaubt meine Frau nur ganz kurze
Zeiten am PC. Die Woche vorher und auch die nächste bin ich mit einem
eigenen Projekt beschäftigt. Ich habe dich aber nicht vergessen und versuche
mein Bestes, deine DB noch mal anzuschauen und die Änderungen, die ich
mir vorstelle einzubauen.
gruss ekkehard

Horst14 · 13. August 2020

Hi Ekkerhard

Diese Woche bin ich im Urlaub, und da erlaubt meine Frau nur ganz kurze
Zeiten am PC --> Ja das kann ich verstehen. Genieße die Zeit und erhole dich.

Mir ist auch noch aufgefallen, dass ich die Option ich bekomme Geld gesendet nicht eingebaut habe. Da werde ich mich jetzt erstmal dran setzen und schauen wie ich die am einfachsten integriert bekomme.

Ich wünsche dir ein schön Urlaub.