Artikelnr. bei Eingabe automatisch anlegen u. Bestand zählen

[StefanONE]

Hallo Robert,
Hallo F3K Total,
Habe das mit oFeld wie folgt gelöst:

oFeld = oDrawpage.forms.Eingabe.getByName("Bemerkung")
oFeld = oDrawpage.forms.Eingabe.getByName("Artikelnummer")

Vielen Dank für die Hilfe. Beim nächsten Problem melde ich mich bestimmt Habe schon das nächste aber versuche es erstmal selbst.

Gruß
Stefan

[F3K Total]

Hi,
wenn du schon auf "getbyname" verzichtest, dann gehts auch konsequenter:

Code: Alles auswählen

oform = oDrawpage.forms.Eingabe
oFeldBemerkung = oform.Bemerkung
oFeldArtikelnummer = oform.Artikelnummer

Wieso weist du oFeld erst "Bemerkung" und danach "Artikelnummer" zu?
Gruß R

[StefanONE]

Hallo,
Damit oFeld nicht überschrieben wird das dann mit oFeld1 und oFeld2 gelöst. Es kommen jetzt auch keine Fehlermeldungen mehr aber es funktioniert noch richtig weil nicht dazugezählt wird und Bestände nicht waagerecht in der Zeile sind sondern versetzt. Was muss ich im Code ändern? Hier noch der aktuelle Code sowie Screenshot von der Tabelle:

Sub Main
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.forms.getByName("Eingabe")
oFeld1 = oDrawpage.forms.Eingabe.getByName("Bemerkung")
oFeld2 = oDrawpage.forms.Eingabe.getByName("Artikelnummer")

DIM Artikelnummer AS OBJECT
DIM Bemerkung AS OBJECT
DIM Feldinhalt1 AS STRING
DIM Feldinhalt2 AS STRING
Feldinhalt1 = oFeld1.getCurrentValue()
Feldinhalt2 = oFeld2.getCurrentValue()

DIM oConnection AS OBJECT
oConnection = oForm.activeConnection()

DIM oSQL_Statement AS OBJECT
DIM stSql AS STRING
DIM oResult AS OBJECT
DIM iResult AS INTEGER
oSQL_Statement = oConnection.createStatement()

stSql = "SELECT COUNT(""Artikelnummer"") FROM ""Tabelle"" WHERE ""Artikelnummer"" AND ""Bemerkung"" = '"+Feldinhalt+"'"
oResult = oSQL_Statement.executeQuery(stSql)
WHILE oResult.next
iResult = oResult.getInt(1)
WEND
IF iResult > 0 THEN
oSQL_Statement.executeUpdate("Update ""Tabelle"" SET ""Anzahl"" = ""Anzahl""+1 WHERE ""Artikelnummer"" = '"+Feldinhalt+"'"
ELSE
oSQL_Statement.executeUpdate("INSERT INTO ""Tabelle"" (""Artikelnummer"",""Anzahl"") VALUES ( '"+Feldinhalt+"', 1)"
END IF
End Sub

Tabellescreenshot1.jpg (109.13 KiB) 3199 mal betrachtet

Gruß
Stefan

[StefanONE]

Hallo,
Hat niemand eine Idee?

Gruß
Stefan

[StefanONE]

Hallo,
Habe mein Problem nun mit Access gelöst indem ich die Artikelnummern einzeln eingebe und mit einer Abfrage den Bestand gruppieren und zählen lasse. Dieses Thema kann also geschlossen werden.

Gruß
StefanONE

[pmoegenb]

Dieses Thema kann also geschlossen werden.

Das musst Du selbst tun, denn nur Du hast Zugang zum Thema. Schreibe einfach (Gelöst) dazu.