---

Grüsse aus dem Chat !

Code:

---

Public Sub searchInAllTable(Suchbegriff As Variant)
    Dim db                              As DAO.Database
    Dim td                              As DAO.TableDef
    Dim fd                              As DAO.Field
    Dim rs                              As DAO.Recordset
    Dim sSql                            As String
    Set db = DBEngine(0)(0)
    On Error Resume Next
    For Each td In db.TableDefs
        For Each fd In td.Fields
        sSql = ("Select * from " & td.Name & " where " & fd.Name & " = " & Suchbegriff)
        Set rs = db.OpenRecordset(sSql)
            Do Until rs.EOF
                Debug.Print rs.Fields(0)
                rs.MoveNext
            Loop
            rs.MoveFirst
        Next fd
    Next td
    Set fd = Nothing
    Set rs = Nothing
    Set td = Nothing
    Set db = Nothing
End Sub

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP