title image


Smiley SQL Abfrage per VBA ergibt Laufzeitfehler 13 "Typen unverträglich"
Hallo allerseits,



hab ein Problem mit einer SQL Abfrage per VBA. Wenn ich Sie als Abfrage in Access(2000) aufrufe, dann funktioniert es allerdings.



Sie sieht folgendermassen aus:

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

If Not IsNull(Me!cbohersteller) Then Krit = Krit & " AND (tblwissen.hersteller) = [Formulare]![frmknowledgebase]![cbohersteller]"

If Not IsNull(Me!cboprogrammodergeraet) Then Krit = Krit & " AND (tblwissen.programmodergeraet) = [Formulare]![frmknowledgebase]![cboprogrammodergeraet]"

If Not IsNull(Me!txtcontains) Then

contains = Forms!frmknowledgebase.txtcontains

Krit = Krit & " AND tblwissen.problem Like " * " & contains & " * " "

End If



SQL = "SELECT tblwissen.* FROM tblwissen "

If Krit "" Then

Krit = Mid(Krit, 5)

SQL = SQL & "WHERE " & Krit & " ORDER BY tblwissen.hersteller"



End If



++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



So kompliziert deswegen, da ich in der tabelle tblwissen insbesondere das MEMO-Feld [problem] nach Stichwörtern, die ich in einem Formular in das Textfeld [txtcontains] eingebe, durchsuchen möchte.



Es hakt aber immer an der Zeile: Krit = Krit & " AND tblwissen.problem Like " * " & contains & " * " "



Da bekomme ich immer die im Betreff stehende Fehlermeldung.



Kann mir da jemand einen Tip geben. Bin zu doof..



Danke Euch



Viele Grüße



Florian

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: