Thema Datum  Von Nutzer Rating
Antwort
Rot Programmiercodes lesen Access VBA
 03.05.2017 10:06:23 Yasin
NotSolved
03.05.2017 13:01:53 Gast74279
*****
NotSolved
03.05.2017 13:14:57 Gast74279
NotSolved
03.05.2017 13:56:35 Gast23359
NotSolved
03.05.2017 13:57:52 Yasin Güngör
NotSolved

Ansicht des Beitrags:
Von:
Yasin		 Datum:
03.05.2017 10:06:23		 Views:
1028		 Rating:
     
Antwort:
  Ja
Thema:
Programmiercodes lesen Access VBA

Hallo es geht darum das ich eine wichtige Prüfung über vba in access morgen machen werde. Mein Problem ist das ich dieses Programmiercodes lesen und dann die jeweiligen Schritte in der Tabelle aufschreiben nicht ganz verstehe. Ich benötige dringend eure Hilfe. Danke im Voraus. Hier das Beispiel:

In das Feld txta wird nach unten angeführten Beispielen eingegeben. Wie sieht die Ausgabe nach Klick auf btx im Feld txtb aus? Betrachten sie jedes Beispiel isoliert, und nehmen sie an, dass das Formular vor jedem Beispiel neu geladen wurde. Schreiben sie die Zeichen in die dafür vorgesehenen Ausgabefelder. Im Falle eines Leerzeichens lassen sie das Kästchen frei.

 

a)     967                

 

b)     trda    

 

c)     7e 4b (Leerzeichen zwischen e und 4)

 

d)     t!2-

 

e)     User gibt nichts ein und klickt sofort auf btx

 

f)      User drückt STRG + RETURN im Feld txta und klickt anschließend auf btx

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


c

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Option Compare Database

 

Dim abc() As String

 

Private Sub btx_Click()

 

On Error GoTo sp

 

Dim i, j, k As Long

Dim h, s As String

 

k = Len(txta)

 

ReDim abc(1 To k) As String

 

For i = 1 To k

    abc(i) = Mid(txta, i, 1)

Next i

 

For i = 1 To k

    For j = 1 To k - 1

            If abc(j + 1) < abc(j) Then

                h = abc(j)

                abc(j) = abc(j + 1)

                abc(j + 1) = h

            End If

    Next j

Next i

 

s = ""

 

For i = 1 To k

    s = s + abc(i)

Next i

 

txtb = s

 

 

 

Exit Sub

 

sp:

 

txtb = "abc"

 

 

 

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Programmiercodes lesen Access VBA
 03.05.2017 10:06:23 Yasin
NotSolved
03.05.2017 13:01:53 Gast74279
*****
NotSolved
03.05.2017 13:14:57 Gast74279
NotSolved
03.05.2017 13:56:35 Gast23359
NotSolved
03.05.2017 13:57:52 Yasin Güngör
NotSolved