Hallo Access Gemeinschaft,
Habe wieder ein Problem.
Habe zwei String's, diese sollen das Formula beim Öffnen filtern.
DoCmd.OpenForm "Info_frm", , , "Info_Geb = 'geb' And Info_Klassennr = 'Klas'"
Debug.Print geb
Debug.Print Klas
die String's werden mir im Direktfenster richtig angezeigt.
was mache ich falsch?
Gruß Achim
Hallo,
wo kommen die Texte her, sind das Formularfelder ?
Oder sind das wirklich die reinen Texte 'geb' und 'Klas' ?
PS:
Derartige Codeschnippsel sind wenig hilfreich. Man sollte immer den kompletten Code zeigen. Und bitte immer die Codetags des Forums verwenden.
Hallo Klaus,
hier der gesamte Code.
Private Sub Anrufer_Name_DblClick(Cancel As Integer)
Dim Stoerung_ID As Integer
Dim Stoer_ID As Integer
Dim geb As String
Dim Klas As String
Stoer_ID = Split(OpenArgs, vbTab)(0)
Klas = Split(OpenArgs, vbTab)(1)
geb = Split(OpenArgs, vbTab)(2)
On Error GoTo err_proc
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "update Stoerungen_tbl" _
& " set Stoerungen_tbl.Anrufer_ID = " & Me!Anrufer_ID & "" _
& " , Anrufer_Zeit = Now() " _
& " where Stoerungen_tbl.Stoerungen_ID = " & Stoer_ID
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
end_proc:
DoCmd.Close acForm, "Anrufer_frm"
DoCmd.OpenForm "Info_frm", , , "Info_Geb = 'geb' And Info_Klassennr = 'Klas'"
Debug.Print geb
Debug.Print Klas
Exit Sub
err_proc:
MsgBox Err.Description, , Err.Number
Resume end_proc
End Sub
Hallo,
Du willst doch nicht die Texte geb und Klas filtern, sondern deren Inhalte. Das sind ja Variable.
DoCmd.OpenForm "Info_frm", , , "Info_Geb = '" & geb & "' And Info_Klassennr = '" & Klas & "'"
Das ist ein Beispiel, wie wichtig es ist den kompletten Code zu zeigen. Dann wird nämlich gleich klar, dass das Variable sind mit Textinhalt und keine reinen Texte wie es im Code zu sehen ist.
Nachtrag:
Hätte ich zugegebenermaßen auch gleich durch das Debug.Print erkennen können. :D
vielen dank Klaus,
ich habe die programierng in access nicht gelernt.
für die hilfe bin ich sehr dank bar.
funktoniert so wie ich es wollte.
Danke Achim