Access 2003 Makros in VBA konvertieren möglich?

[bambi1408]

Hallo Community

Bei meiner Internetrecherche habe ich leider nicht herausfinden können, ob es bei Access 2003 möglich ist, ein Makro in VBA-Code zu wandeln. Sollte das möglich sein, kann mir jemand erklären wie?

Vielen Dank und Gruss
Nicole

[MzKlMu]

Hallo,
bei Access2003 war das noch wunderbar einfach.

Menü > Extras > Makro > Makro zu VBA konvertieren.

Vorher eine Makro markieren.

[bambi1408]

Danke für die schnelle Antwort....kannst du mir auch sagen, wie das bei Access 2007 läuft? Ich muss mit verschiedenen Versionen arbeiten.

[MzKlMu]

Hallo,
nein, kann ich nicht. Ich habe kein neueres Access.

[MaggieMay]

Hi,

in A2007 müsste das noch genauso gehen - hast du noch nicht nachgeschaut?

[bambi1408]

In A2007 finde ich halt die Schaltfläche Extras bzw Menü schon gar nicht, das ist ja anders aufgebaut wie das 2003.

[Josef P.]

Hallo!

In Access 2016:
Makro im Entwurf öffnen --> Ribbon-Tab "Entwurf" --> "Makros in Visual Basic konvertieren"

mfg
Josef

[Lachtaube]

Schau Dir das Bildchen im Anhang an - der Mauszeiger steht über Makros konvertieren.

[bambi1408]

Oh Man...manchmal ist man echt blind :-(

Vielen Dank für die vielen Antworten und die Hilfe.

LG Nicole

[bambi1408]

Wenn ich dies aber nun ausführe, dann schreibt er mir "Kein aktueller Datensatz". Woran könnte das liegen?

[MzKlMu]

Hallo,

Woran könnte das liegen?

wie soll man etwas beurteilen das man nicht sieht?

Zeige also bitte den VBA Code und erkläre den Kontext in dieser angewendet wird.

[bambi1408]

Ich habe eine DB aus A2.0 vor einiger Zeit von einem netten Menschen in A2003 konvertieren lassen. Nun habe ich in der DB Filter mit Makros drin, die eine Adressdatenbank jeweils mit dem Anfangsbuchstaben filtern. Also wenn ich auf einen Knopf drücke wo B drauf steht, dann springt er zu dem ersten Namen der mit B anfängt. In der jetzigen Version mit dem Makro spinnt es halt manchmal, so das er mir bei Klick auf "B" nur ein leeres Formular anzeigt, wenn ich dann ein bisschen durch die Buchstaben zappe und wieder auf B gehe, dann nimmt er es dann meistens. Deswegen meine Überlegung das in VBA zu konvertieren.

Hier mal der Code

Code [Auswählen] Erweitern

Function A_Z_Schaltflächen__Filter()
On Error GoTo A_Z_Schaltflächen__Filter_Err

    With CodeContextObject
        ' Verknüpft mit den Schaltflächen "A" bis "Z" und "Alle" im Formular "Adressen".
        If (.[Firmen Filter] = 1) Then
            ' Filter für Firmennamen, die mit  A, À, Á, Â, Ã, oder Ä beginnen.
            DoCmd.ApplyFilter "", "[Name] Like ""[123456789AÀÁÂÃÄ]*"""
        End If
        If (.[Firmen Filter] = 2) Then
            ' B
            DoCmd.ApplyFilter "", "[Name] Like ""B*"""
        End If
        If (.[Firmen Filter] = 3) Then
            ' C oder Ç
            DoCmd.ApplyFilter "", "[Name] Like ""[CÇ]*"""
        End If
        If (.[Firmen Filter] = 4) Then
            ' D
            DoCmd.ApplyFilter "", "[Name] Like ""D*"""
        End If
        If (.[Firmen Filter] = 5) Then
            ' E, È, É, Ê oder Ë
            DoCmd.ApplyFilter "", "[Name] Like ""[EÈÉÊË]*"""
        End If
        If (.[Firmen Filter] = 6) Then
            ' F
            DoCmd.ApplyFilter "", "[Name] Like ""F*"""
        End If
        If (.[Firmen Filter] = 7) Then
            ' G
            DoCmd.ApplyFilter "", "[Name] Like ""G*"""
        End If
        If (.[Firmen Filter] = 8) Then
            ' H
            DoCmd.ApplyFilter "", "[Name] Like ""H*"""
        End If
        If (.[Firmen Filter] = 9) Then
            ' I, Ì, Í, Î oder Ï
            DoCmd.ApplyFilter "", "[Name] Like ""[IÌÍÎÏ]*"""
        End If
        If (.[Firmen Filter] = 10) Then
            ' J
            DoCmd.ApplyFilter "", "[Name] Like ""J*"""
        End If
        If (.[Firmen Filter] = 11) Then
            ' K
            DoCmd.ApplyFilter "", "[Name] Like ""K*"""
        End If
        If (.[Firmen Filter] = 12) Then
            ' L
            DoCmd.ApplyFilter "", "[Name] Like ""L*"""
        End If
        If (.[Firmen Filter] = 13) Then
            ' M
            DoCmd.ApplyFilter "", "[Name] Like ""M*"""
        End If
        If (.[Firmen Filter] = 14) Then
            ' N, oder Ñ
            DoCmd.ApplyFilter "", "[Name] Like ""[NÑ]*"""
        End If
        If (.[Firmen Filter] = 15) Then
            ' O, Ò, Ó, Ô, Õ oder Ö
            DoCmd.ApplyFilter "", "[Name] Like ""[OÒÓÔÕÖ]*"""
        End If
        If (.[Firmen Filter] = 16) Then
            ' P
            DoCmd.ApplyFilter "", "[Name] Like ""P*"""
        End If
        If (.[Firmen Filter] = 17) Then
            ' Q
            DoCmd.ApplyFilter "", "[Name] Like ""Q*"""
        End If
        If (.[Firmen Filter] = 18) Then
            ' R
            DoCmd.ApplyFilter "", "[Name] Like ""R*"""
        End If
        If (.[Firmen Filter] = 19) Then
            ' S oder Š (S hacek)
            DoCmd.ApplyFilter "", "[Name] Like ""[SŠ]*"""
        End If
        If (.[Firmen Filter] = 20) Then
            ' T
            DoCmd.ApplyFilter "", "[Name] Like ""T*"""
        End If
        If (.[Firmen Filter] = 21) Then
            ' U, Ù, Ú, Û oder Ü
            DoCmd.ApplyFilter "", "[Name] Like ""[UÙÚÛÜ]*"""
        End If
        If (.[Firmen Filter] = 22) Then
            ' V
            DoCmd.ApplyFilter "", "[Name] Like ""V*"""
        End If
        If (.[Firmen Filter] = 23) Then
            ' W
            DoCmd.ApplyFilter "", "[Name] Like ""W*"""
        End If
        If (.[Firmen Filter] = 24) Then
            ' X
            DoCmd.ApplyFilter "", "[Name] Like ""X*"""
        End If
        If (.[Firmen Filter] = 25) Then
            ' Y, Ý oder  ÿ
            DoCmd.ApplyFilter "", "[Name] Like ""[YÝÿ]*"""
        End If
        If (.[Firmen Filter] = 26) Then
            ' Z, Æ, Ø oder  Å
            DoCmd.ApplyFilter "", "[Name] Like ""[ZÆØÅ]*"""
        End If
        If (.[Firmen Filter] = 27) Then
            ' Zeigt alle Datensätze an.
            DoCmd.ShowAllRecords
        End If
    End With


A_Z_Schaltflächen__Filter_Exit:
    Exit Function

A_Z_Schaltflächen__Filter_Err:
    MsgBox Error$
    Resume A_Z_Schaltflächen__Filter_Exit

End Function


[bambi1408]

Ich weiss auch gar nicht, ob das ganze überhaupt so realisierbar ist....

[MaggieMay]

Hi,

Ich weiss auch gar nicht, ob das ganze überhaupt so realisierbar ist....

dazu müsste man wiederum wissen, was "das Ganze" für dich bedeutet.

Beschreibe dein Problem bzw. die ganze Thematik doch bitte noch etwas ausführlicher.

[bambi1408]

Guten Morgen

Kann mir mal eben jemand erklären wie ich ein Bild hier einfüge?
Dann ist das Ganze vielleicht etwas einfacher zu erklären.

Danke und sorry, hab das in der Hilfe nicht gefunden :-(

Gruss Nicole