VBA Trimmen, um alle Zellen in eine Access-Tabelle

Ich bin relativ erfahren mit der Objekt-orientierten Programmierung, aber dies ist meine erste mal überhaupt mit der Arbeit in Office mit VBA, und ich bin völlig ratlos durch die syntax. Ich habe getan, einige suchen und Herumspielen mit ihm für die vergangene Stunde oder so, aber die haben schon Probleme eigentlich immer ein makro erfolgreich ausgeführt wird, und tut, was ich brauche.

Ich versuche, eine Schleife über jede Zelle in eine Access-Tabelle und wenden Sie die Trim-Funktion, um den Inhalt der Zelle, und als bonus, ich möchte, um entfernen Sie alle zusätzlichen Leerzeichen in der Zeichenfolge (falls vorhanden). I. e. " Trim this__string " einfach werden würde "Trim this string" (ich habe den Unterstrich, es zu repräsentieren einzelne, mehrere Räume, da StackOverflow nicht zeigen wollen meine mehrere Räume).

Jede code-Beispiel für sowas, oder zumindest etwas, um mich schließen und dann kann ich basteln mit es würde sehr geschätzt werden. Danke!

InformationsquelleAutor JToland | 2012-09-17
  1. 3

    Können Sie entfernen Sie führende und nachfolgende Leerzeichen mit der Trim() Funktion in einer Abfrage.

    UPDATE YourTable
SET text_field = Trim(text_field);

    Wenn Sie innerhalb einer Access-Sitzung, die Sie nutzen könnten Replace() zu ersetzen, die eine Sequenz von zwei Leerzeichen durch ein einzelnes Leerzeichen.

    UPDATE YourTable
SET text_field = Replace(text_field, '  ', ' ');

    Jedoch müssen Sie möglicherweise zu laufen, dass Replace() Abfrage mehr als einmal, um alle zusammenhängenden Leerzeichen, sich auf nur eine.

    Sie können auch einen regulären Ausdruck-basierten Ersatz mit einer benutzerdefinierten Funktion. Ich weiß nicht, ob das die Mühe Wert ist, aber. Und eine Benutzer-definierte Funktion ist auch nur innerhalb einer Access-Anwendung, die session.

    Ich übersehen, die "jede Zelle in einer Tabelle" Aspekt. Das macht diese schwieriger und ich glaube nicht, lösen Sie es mit einem standard-makro oder einer Abfrage. Sie können jedoch mithilfe von VBA-code zu prüfen, der TableDef ist, und zum iterieren über die Felder ... dann rufen Sie Ihren Trim - und/oder Replace Operationen auf die Felder, deren Daten-Typ text oder memo.

    Hier ist eine grobe code-Gliederung zu erkennen, welche Felder einer Tabelle sind text.

    Public Sub FindTextFields(ByVal WhichTable As String)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Set db = CurrentDb
    Set tdf = db.TableDefs(WhichTable)
    For Each fld In tdf.Fields
        If fld.Type = dbText Or fld.Type = dbMemo Then
            Debug.Print "Do something with " & fld.Name
        End If
    Next
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Sub
    • Perfekt, danke für das VBA-Beispiel!
    InformationsquelleAutor HansUp
  2. 2

    Option Compare Database

    Private Sub Command3_Click()
Call findField(Text1.Value)
End Sub


Public Function findField(p_myFieldName)
Dim db As Database, _
    tb As TableDef, _
    fd As Field

 '''''''''Clearing the contents of the table
 DoCmd.RunSQL "delete * from Field_Match_Found"

Set db = CurrentDb
For Each tb In db.TableDefs
    For Each fd In tb.Fields
        If fd.Name = p_myFieldName Then

            strsql = "INSERT INTO Field_Match_Found Values (""" & tb.Name & """, """ & fd.Name & """)"

            DoCmd.RunSQL strsql

        End If
    Next fd
Next tb
Set fd = Nothing
Set tb = Nothing
Set db = Nothing
    InformationsquelleAutor shruti
  3. 0

    If DCount("Account_number", "Field_Match_Found") = 0 Then
    MsgBox ("es wurde Keine übereinstimmung gefunden")
    Sonst
    MsgBox ("Check-Tabelle Field_Match_Found für Ihre Ausgabe")

    ''''''''''making textbox blank for next time
Text1.Value = ""

    End Function

    InformationsquelleAutor shruti
Schreibe einen Kommentar