Wat is de code voor dit programma?

Status
Niet open voor verdere reacties.
L

Lancaster

Nieuwe gebruiker
Lid geworden
21 aug 2007
Berichten
2
Hallo, ik ben nog niet zo bekent met VBA, maar mijn vraag is:
Wat is de code als je een typvenster wil maken met een enter knop en een tekstveld waarin je kan zien wat je getypt hebt, maar er gebeurt pas wat als je een aantal woorden die ik heb aangegeven intypt, dan krijg je een tekst op het scherm te zien, en anders zoiets als ERROR. Ik wil de woorden kunnen aanpassen en aanmaken, en de zinnen aan de woorden kunnen koppelen. Aangezien ik niet zo goed in VBA ben, mijn vraag: Wat is de code hiervan? En kan je dan ook aangeven wat ik moet veranderen voor het commando (bv: dat er TEST staat en ik het verander in :walk) en wat ik moet veranderen om de zin (bv de zin van :walk, te maken tot: message) Hartelijk dank alvast, mijn vraag; Wat is de code hiervan?
 
Code: 
Private Sub Text10_KeyPress(KeyAscii As Integer)
    'Errorhandler wordt genegeerd.
    Dim arr()     As String
    Dim intX      As Integer
    Dim intTeller As Integer
    Const cActieWoord = "error" 'case insensitive
    
    If KeyAscii = 8 Then 'Ignore backspace
        Exit Sub
    End If
    
    arr = Split(LCase(Nz(Me.Text10.Text)))
    intX = UBound(arr, 1)
    For intTeller = 0 To intX
        If arr(intTeller) = cActieWoord Then
            MsgBox "Het actie woord is gevonden!", vbExclamation
            Exit For
        End If
    Next intTeller
    
End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
    'Errorhandler is nu ook een goed woord.
    Const cActieWoord = "error" 'case insensitive
    
    If KeyAscii = 8 Then 'Ignore backspace
        Exit Sub
    End If
    
    If InStr(1, LCase(Me.text11.Text), cActieWoord) > 0 Then
        MsgBox "Het actie woord is gevonden!", vbExclamation
    End If
End Sub
 
Laatst bewerkt door een moderator:
Testen Mislukt

Bedankt Guus, alleen als ik hem Test (via F5) dan zie ik niks alleen een venster van de macro's die ik al af heb :S weet jij wat dit is en hoe het te verhelpen?
 
Post je database of een subset ervan. Ik heb geen idee wat je doet of ziet.
 
Lancaster zei:
Bedankt Guus, alleen als ik hem Test (via F5) dan zie ik niks alleen een venster van de macro's die ik al af heb :S weet jij wat dit is en hoe het te verhelpen?
Klik om te vergroten...
Dat komt omdat je sub of function een parameter verwacht.
Als je die weghaalt dan kan je gewoon je public sub of function met F5 runnen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan