Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Kein Aktueller Datensatz





Frage

Hallo Ich habe bei einem Feld in meinem Formular folgenden Code hinterlegt! [code] Private Sub Elementname_Click() Dim R As Recordset Dim SQL As String Dim E As Integer Dim W As Double Dim F As Integer Dim S As Integer Dim D As Integer Dim N As Integer E = Me!Element_ID SQL = "SELECT Element_ID,Istwert,Istwert_ID,Min,Max,Kontrolliert,Elementname,Datum,Sollwert,Steigung FROM qryDatum WHERE Element_ID=" & E Set R = CurrentDb.OpenRecordset(SQL) If R.BOF = True Then Exit Sub R.MoveFirst Do If R!Kontrolliert = True Then R.MoveNext ElseIf R!Istwert < R!Min Or R!Istwert > R!Max Then MsgBox "Der am " & R!Datum & " analysierte " & R!Elementname & "-Wert liegt außerhalb des Toleranzbereichs!", vbCritical Else R.MoveNext End If Loop Until R.EOF = True R.MoveFirst Do While R.EOF = False For D = 1 To 7 If R!Istwert > R!Sollwert Then R.MoveNext Else Exit For End If If D = 7 Then MsgBox D & " Werte sind über dem Sollwert!", vbCritical End If Next D R.MoveNext Loop R.MoveFirst Do While R.EOF = False For N = 1 To 7 If R!Istwert < R!Sollwert Then R.MoveNext Else Exit For End If If N = 7 Then MsgBox N & " Werte sind unter dem Sollwert!", vbCritical End If Next N R.MoveNext Loop R.MoveFirst Do While R.EOF = False For F = 1 To 7 W = Nz(DLookup("Istwert", "qrySteigung", "[Steigung]=" & R!Steigung + 1), 0) If W > R!Istwert Then R.MoveNext Else Exit For End If If F = 7 Then MsgBox F & " Werte steigen an!", vbCritical End If Next F R.MoveNext Loop R.MoveFirst Do While R.EOF = False For S = 1 To 7 W = Nz(DLookup("Istwert", "qrySteigung", "[Steigung]=" & R!Steigung + 1), 0) If W < R!Istwert Then R.MoveNext Else Exit For End If If S = 7 Then MsgBox S & " Werte fallen ab!", vbCritical End If Next S R.MoveNext Loop R.close End Sub [/code] Wenn ich nun auf das besagte Feld clicke, bekomme ich diese Fehlermeldung: KEIN AKTUELLER DATENSATZ! Wie kann ich diesen Fehler vermeiden? Danke für eure Unterstützung the..dude

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: