|
Hallo Zusammen,
Ich programmiere eine Datenbank-oberfläche und habe ein Problem mit dem Filter der Daten.
Ich bekomme bei dem folgenden Code immer den Laufzeitfehler 94 in der 6. Zeile.
tfpnpprint ist aber für jedes Recordset vorhanden.
Private Sub Form_Current()
Dim colVar As String
Dim idn As Long
Me.tfhelp.SetFocus
'On Error GoTo handler:
colVar = Me.tfpnpprint
Me.tfvar = colVar
idn = Me.id
Forms!rcc.Form.RecordSource = "Select * from RiskList where RiskList.[ID] =" & idn
Forms!rcc.Form.pf2.RowSource = "SELECT catt2.famt2, catt2.famt2 FROM catt2 ORDER BY catt2.famt2"
Forms!rcc.Form.pf3.RowSource = "SELECT catt3.famt3, catt3.famt3 FROM catt3 ORDER BY catt3.famt3"
Forms!rcc.Form.Text100 = DLookup("Alias", "[qrySN+GN]", "logon =" & Chr$(39) & Forms!rcc.Form.Text98 & Chr$(39))
If IsNull(Forms!rcc.Form.Text98) Then
Forms!rcc.Form.Text100 = "Not edited"
End If
searchkeyboo = False
'handler:
' If searchkeyboo = True Then
' MsgBox "Searchkey could not be found", vbOKOnly, "No Results"
' End If
' searchkeyboo = False
End Sub
|