Werte aus Tabelle lesen

Computer: Software & Programmierung Microsoft Access
#1

Hallo an alle,

ich habe ein Problem beim auslesen von Werten einer Tabelle. Ich habe in der Spalte Tabelle.Wert Messwerte stehen, die mit einem Semikolon getrennt sind. Also: 1.2;3.4;4.6; usw… Hat jemand eine Ahnung wie ich die Werte mit einem Recordset auslesen kann, dass ich auf jeden einzelnen Wert zugreifen kann?

Vielen Dank für eure Bemühungen.

Oliver

#2

Holla.

Hat jemand eine Ahnung wie ich die Werte mit einem Recordset
auslesen kann, dass ich auf jeden einzelnen Wert zugreifen kann?

Public Sub MachEtOtze()
Dim lpm\_int\_SatzLäng As Integer
Dim lpm\_int\_SemiPosi As Integer
Dim lpm\_int\_ReinWert As Integer
Dim lpm\_rst\_ReinSatz As DAO.Recordset
Dim lpm\_rst\_RausSatz As DAO.Recordset
Dim lpm\_str\_ReinSatz As String
CurrentDb.Execute "CREATE TABLE humbatäterä (einezahl INTEGER);"
Set lpm\_rst\_ReinSatz = CurrentDB.OpenRecordset("_DeineTabelle_",dbOpenDynaset)
Set lpm\_rst\_RausSatz=CurrentDB.OpenRecordset
("Humbatäterä",dbOpenDynaset)
With lpm\_rst\_ReinSatz
 If (Not .EOF) Then
 .MoveFirst
 End If
 While (Not .EOF)
 lpm\_str\_ReinSatz=!_DeinFeldName_
 While Len(lpm\_str\_ReinSatz)0
 lpm\_int\_SemiPosi=InStr(lpm\_str\_ReinSatz, \_
 ";", \_
 vbBinaryCompare)
 lpm\_int\_ReinWert=Val(Left(lpm\_str\_ReinSatz,lpm\_int\_SemiPosi-1))
 lpm\_rst\_RausSatz.AddNew
 lpm\_rst\_RausSatz!einezahl=lpm\_int\_ReinWert
 lpm\_rst\_RausSatz.Update
 lpm\_str\_ReinSatz=Mid$(lpm\_str\_ReinSatz,lpm\_int\_SemiPosi+1)
 Wend
 .MoveNext
 Wend
 .Close
 lpm\_rst\_RausSatz.Close
End With
Set lpm\_rst\_ReinSatz=Nothing
Set lpm\_rst\_RausSatz=Nothing
End Sub

Muddu natürlich die Tabelle humbatäterä jedesmal vorher löschen. Für DeineTabelle und DeinFeld setzest Du Deine Bezeichner ein … und den Bezeichner „Wert“ würde ich mir auch dringend abgewöhnen. Nenn ihn Messwert oder Erflückerungswert oder was weiß der Henker.

Gruß Eillicht zu Vensre

#3

Hallo und vielen Dank für die schnelle Antwort, aber leider bringt er mir beim Ausführen noch den Fehler 13, alsoTypen unverträglich. Stelle:

lpm_int_SemiPosi = InStr(lpm_str_ReinSatz, _
„;“, _
vbBinaryCompare)

Da schreit er mich noch voll, dass dies wohl nicht geht. Bin für jede Antwort dankbar.

Gruß Oliver

#4

Fehler 13 geklärt aber neuer Fehler entdeckt
Hallo,

ich habe jetzt ein Problem mit der VAL Funktion. Die liefert mir immer nur die erste Stelle der Zahl, quasi bis zum Punkt. Wisst Ihr Rat.

Oliver

#5

Werte aus Tabelle lesen gelöst
Hallo nochmal,

ich habs gelöst. Vielen Dank.