Private Sub Titel_Exit(Cancel As Integer)
  If Titel.Text <> "" Then
    If Asc(Left(Titel.Text, 1)) >= 97 And Asc(Left(Titel.Text, 1)) <= 122 Then
      x = Len(Titel.Text)
      Puffer = Right(Titel.Text, x - 1)
      Front = UCase(Left(Titel.Text, 1))
      Titel.Text = Front + Puffer
    End If
  End If
End Sub

2 Antworten zu dieser Frage

1. Antwort von nach einer Stunde 0 hilfreich

   Re: Access VBA Fehler bei Vista

   Hallo Huberlix, Folgender Code ändert den Anfangsbuchstaben in Groß, bei
   verlassen des Titelfeldes.
   kennt Access-Vba kein Proper? Unter XP lief alles supi. Nun hab ich Vista und der Debugger
   markiert "Left"
   Da fehlt ein Verweis. Probiers mal so:
   Vba.Left Außerdem bekomme ich beim starten der Datenbank die
   Fehlermeldung,
   - dass der Verweis auf srchui.dll fehlt
   Dann wird das wohl so sein. Jetzt kannste dir die dll irgendwoher besorgen, nach kurzem Googlen sagt mir mein Bauch, sie wird dir bei Vista im Gegensatz zu Xp nix nützen.
   Ich sehe da auch keinen Bezug zum left-Problem. - dass die Datei Schreibgeschützt ist (nie von mir geschützt
   worden)
   K.A. Kannste den Schutz nicht aufheben?
   
   Gruß
   Reinhard
   

   • Antwort von nach 23 Stunden 0 hilfreich

     Re^2: Access VBA Fehler bei Vista

     kennt Access-Vba kein Proper?
     keine Ahnung. Kenn ich nicht.
     Mittlerweile läufts. KVista lässt ein nicht schreibgeschütztes öffnen scheinbar nur bei "sicheren Ordnern" zu. Hab im Sicherheitscenter den Speicherort als sicher hinzugefügt, jetzt öffnets normal.
     
     Und jetzt kann ich auch den Haken für den fehlenden Verweis auf den Suchassistenten entfernen. Und siehe da, alles läuft wieder ohne Probleme.
     
     Versteh zwar nicht, was das eine mit dem anderen zu tun hat, aber is ja auch egal.
     
     Gruß