✔ Tabellenfeld nicht vorhanden vorher abfangen

[dignsag]

Hallo,

ich habe eine VBA Form wo ich durch eine Kombobox eine Tabelle anhand des Namens auswählen kann. Nach dem Wählen führt das Programm eine SQL Abfrage über diese aus! Nun habe ich das Problem wenn die SQL Abfrage wegen der verschiedenen Feldnamen nicht für diese Tabelle funktioniert spuckt mir der Debugger nen Fehler aus.

Wie kann ich vorher abfangen ob das gewünschte Feld in der gewählten Tabelle ist?

Ideen für eine Prozedur die das prüft oder so?

Gruß

Dignsag

 

[wincnc]

Hallo
Du kannst den Fehler durch eine Error Anweisung abfangen.

Beispiel:

Private Sub DeineSub()
On Error GoTo Fehler


' Deine Code bzw. SQL Abfrage

Exit Sub

Fehler:
  MsgBox Err.Description, vbExclamation, "Fehler"
  Exit Sub
  
End Sub

 

[dignsag]

Supi, danke nach sowas hab ich gesucht!

Allerdings hab ich jetzt das Problem das alles was nach Fehler kommt immer ausgeführt wird und nicht nur dann wenn das On Error ausgelöst wird! Aber ich will das ja nur wenn ein Fehler auftritt!

 

[Nirraven]

Hallo
Du kannst den Fehler durch eine Error Anweisung abfangen.

Beispiel:

Private Sub DeineSub()
On Error GoTo Fehler


' Deine Code bzw. SQL Abfrage

Exit Sub

Fehler:
  MsgBox Err.Description, vbExclamation, "Fehler"
  Exit Sub
  
End Sub

Deswegen stehen die beiden drin, um das zu verhindern

 

[dignsag]

Hoppala :suspekt:,

hätte man ja auch selbst drauf kommen können. ^^

Thx und Bye