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