Office: (Office 2016) Buchungsprobleme

Horst14 · 21. Juli 2020

Ist vielleicht ein Tippfehler den ich nicht finde mein Problem ?

Code:

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

If Me.cbo_fk_trans_art_ID.Column(2) = True Then
setRebooking Me
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 21. Juli 2020

Code:

.cbo_fk_trans_art_ID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... und gleichartige sind in einem Standardmodul unbekannt, wenn dort nicht die Referenz auf das Parentobjekt mitgeteilt wurde.
Also: Steuerelemente des Formulars sind im Formular selber (in der Formularklasse) bekannt, aber nicht irgendwo anders, außer man übergibt vorher die Referenz auf dieses Formular.
Oder auch: Die Anfügeabfrage wäre im Formularcode besser aufgehoben.

Horst14 · 21. Juli 2020

Hi, danke für deine Antwort.

Oder auch: Die Anfügeabfrage wäre im Formularcode besser aufgehoben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe das so verstanden, dass ich die Public Sub setRebooking() nicht in dem Modul mdl_settings schreiben darf sondern mit in Form_frm_transaktion, da ich ich die Werte sonst übergeben muss.

Ich habe somit die Sub ans ende des Codes in Form_frm_transaktion geschrieben. Somit wird die Sub aufgerufen und sollte doch die Werte kennen aber da erscheint die Meldung:

Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anstatt den Funktionsaufruf den Code direkt in das if zu schreiben hat auch nicht funktioniert. Da fehlt ihm das End Sub nur das steht doch da...

Code:

Private Sub btn_buchen_Click()
On Error GoTo ErrHandler

Public Sub setRebooking()
On Error GoTo ErrHandler
Dim sSQL As String
Dim lgTransArt As Long
Dim IDKurs As Long

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
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

If Me.cbo_fk_trans_art_ID.Column(2) = True Then
'setRebooking Me
' Transaktionsart der Gegenbuchung festlegen
lgTransArt = _
DLookup("trans_art_ID", _
"tbl_trans_arten", _
"ist_umbuchung = True And faktor " & .cbo_fk_trans_art_ID.Column(3))

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

' Ziel eintragen
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, 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) = Now 'muss in Me.txt_trans_datum geändert werden wenn alles passt
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.

Beaker s.a. · 21. Juli 2020

Hallo Horst,
Da fehlt ein End If, vermutlich vor ' KursID abfragen
gruss ekkehard

Horst14 · 21. Juli 2020

Hi Ekkehard,

Das End if steht unter:

Code:

'SqlDebug sSQL
CurrentDb.Execute sSQL
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nach etwas abstand von alle ist es mir aufgefallen...
Ich habe
Code:

Public Sub setRebooking()
On Error GoTo ErrHandler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auskommentiert jetzt geht es. er hat für das Sub ein End Sub erwartet....

JEtzt funktioniert der Kauf und der Verkauf aber bei der Umbuchung kommt weiterhin der Fehler unzuverlässige verwendung von Null

Debug sagt:
Code:

INSERT INTO tbl_transaktionen (fk_trans_art_ID, fk_coin_kurs_ID, anteil, gebuehren, trans_datum, buchungsID, haltefrist, trans_beschreibung) VALUES ( 3, 124, 1, 10, #2020-08-03 10:10:00#, 500068, 0, 'keine')
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was passt ihm jetzt nicht?

ebs17 · 22. Juli 2020

Die Abfrage aus "Debug sagt:" funktioniert problemfrei, wenn man Formular und Codes außer Verwendung lässt und den SQL-Text für sich als Abfrage ausführt.

Ansonsten kann ich nicht Dein einziges Formular fehlerfrei öffnen. Probierst Du selber an Deiner Demo? Es ist mühsam (zu mühsam), bis zum eigentlichen Problem vorzudringen. So stellt man sich das nicht vor.
Mit fehlerhaftem Formular lässt sich die Abfrage nicht zur Ausführung bringen.

Beaker s.a. · 22. Juli 2020

Hallo Horst,
Also Fehlersuche musst du noch lernen.
Im Einzelschrittmodus wird klar, dass der Fehler in dieser Zeile ausgelöst wird
Code:

lgTransArt = _
DLookup("trans_art_ID", _
"tbl_trans_arten", _
"ist_umbuchung = True And faktor " & .cbo_fk_trans_art_ID.Column(3))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies dann mit der Methode "CriteriaDebug" der SQLDebugPrint-Klasse analysiert
hättest du festgestellt, das da kein DS zurück gegeben wird, wodurch die Variable
den Wert NULL bekommt, den ein LongIteger aber nicht aufnehmen kann.
Für den Fehler muss ich mich aber entschuldigen; - die Zeile ist wohl noch von mir.
Das Kriterium muss natürlich auf ist_umbuchung = False lauten
Code:

lgTransArt = _
DLookup("trans_art_ID", _
"tbl_trans_arten", _
"ist_umbuchung = False And faktor " & .cbo_fk_trans_art_ID.Column(3))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Horst14 · 22. Juli 2020

\@Ebs

Probierst Du selber an Deiner Demo?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja ich mache es mit der Demo die ich hier hoch geladen haben.

@Beaker s.a.

Für den Fehler muss ich mich aber entschuldigen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum das? Fehler passieren alles gut :-). An dieser stelle nochmal vielen Dank für deinen guten Support.

Ja jetzt klappt die Umbuchung. Meine Coins die ich sende werden auch auf dem Zielwallet angezeigt jedoch mit einem - davor.
Ich kann jedoch den Grund dafür nicht erkennen.

Beaker s.a. · 22. Juli 2020

Hallo Horst,
Dann musst du die Buchung in tbl_transaktionen schon mit dem Faktor multiplizieren,
und nicht erst in der Bestands-Abfrage.
gruss ekkehard

Horst14 · 23. Juli 2020

verstehe ich das jetzt richtig, das ich in der tbl_transaktion ein neues Feld anlege und bei jeder Buchung den Anteil* den Faktor separat ablegen muss? Das ist doch dann aber nicht mehr die 3. Normalform... bzw Daten konsistenz...

Beaker s.a. · 23. Juli 2020

Hallo Horst,
Nein, nicht separat, das Feld "anteil" (das Feld "verkaufspreis" vermutlich
auch) beim INSERT mit dem Faktor malnehmen.
Die Bestandsabfrage summiert dann ohne Faktor einfach das Feld "anteil".
Ich hab' die Prozedur "btn_buchen_Click()" mal etwas umgeschrieben
(verkürzt dargestellt)
Code:

Private Sub btn_buchen_Click()
On Error GoTo ErrHandler
.
Dim iFaktor As Integer
.
' Buchen
If .cbo_fk_trans_art_ID.Column(2) = False Then
'normale Buchung, Faktor wird durch das Kombi bestimmt
iFaktor = .cbo_fk_trans_art_ID.Column(3)
Else
'Umbuchung, d.h. in der Quelle wird abgezogen
iFaktor = -1
End If
'buchen der Quelle
sSQL = "INSERT INTO tbl_transaktionen (" _
& "fk_trans_art_ID, fk_coin_kurs_ID, " _
.
& cSql(.txt_anteil * iFaktor, vbDouble) & ", " & cSql(.txt_gebuehren, vbCurrency) & ", " _
.
'buchen des Ziels
If Me.cbo_fk_trans_art_ID.Column(2) = True Then
'wiederum bei Umbuchung
'... ergibt sich der Faktor autom., muss ja + 1 sein, also Anteil in die Tabelle, wie er da steht, heisst am INSERT für das Ziel ändert sich nichts
.
& cSql(.txt_anteil, vbCurrency) & ", " & cSql(.txt_gebuehren, vbCurrency) & ", " _
.
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

I.Ü. musst du mal an deinen Abfragen und am Code arbeiten; - da werden
Wallets angezeigt im Kombi wenn noch gar nicht klar ist welchen Coin ich
handeln will bzw. Wallets bei denen der Bestand 0 ist, das Ziel-Wallet bei
Umbuchungen wird nicht sofort nach Auswahl der trans_art eingeblendet.

gruss ekkehard

Horst14 · 23. Juli 2020

Ich habe den code angepasst.
Ich hoffe es ist kein Fehler von mir :-/

Die Buchung funktioniert zwar noch aber es wird weiterhin ins Minus gebucht.

Code:

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 * iFaktor, 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

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

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

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, 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.

musst du mal an deinen Abfragen und am Code arbeiten; - da werden
Wallets angezeigt im Kombi wenn noch gar nicht klar ist welchen Coin ich
handeln will
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja ich weiß, dass da noch etwas Arbeit wartet... Aber ich muss alles nach und nach machen sonst baue ich mir mehr Fehler ein und blicke nichts mehr durch :-D. Ein Problem ist auch noch, dass ich beim Coin Kurs nur 2 Dezimalstellen angezeigt bekomme obwohl es 4 seien sollten.

Beaker s.a. · 25. Juli 2020

es wird weiterhin ins Minus gebucht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo?
In der Quelle ist das doch richtig (Abgang), und bei mir hat es das auch getan, - Ziel dann positiv (Zugang).

Horst14 · 26. Juli 2020

Hi,

Wo?
In der Quelle ist das doch richtig (Abgang), und bei mir hat es das auch getan, - Ziel dann positiv (Zugang).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der tabelle transaktion wir es auch auch 2 mal gebucht (Abgang und Zugang)
Aber die Anzeige ist negativ bzw. wenn ich schauen möchte was sich auf dem Wallet befindet was nur geht wenn ich sage Buy Coins --> Wallet Ladger
Wird mir der Aktuelle Bestand NEgativ angezeigt obwohl diser Positiv sein müsste. ggf habe ich mich falsch ausgedrückt als ich geschrieben habe

es wird weiterhin ins Minus gebucht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei 2 Bilder

Beaker s.a. · 26. Juli 2020

Hallo Horst,
Ist ja logisch, wenn du in der Bestandsabfrage wieder mit dem Faktor multiplizierst.
Aus der Abfrage muss der raus

Die Bestandsabfrage summiert dann ohne Faktor einfach das Feld "anteil".
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard