Erster Buchstabe aus einem Feld

[carman0103]

Hallo,

ich hab ein Problem. Ich habe ein Formular mit Kontakten. Ich habe eine Funktion eingebaut, die mir zum entsprechenden Kontakt ein Foto der Person anzeigt. Dazu habe ich drei Felder eingebaut.

in Feld 1 ist der Dateiname des Fotos enthalten (wird automatisch aus Vor- und Zuname und der Dateiendung zusammengesetzt)
in Feld 2 ist der Pfad gespeichert in dem das Foto liegt. (also etwa C:\kontakte\) (Dieser Pfad ist als Standardwert gesetz)
in Feld 3 kommt der Anfangsbuchstabe des Nachnamens, weil ich die Kontaktfotos alphabetisch in entsprechende Ordner abgelegt habe (also liegt das Foto von Müller im Ordner C:\kontakte\M\ (diesen Wert muss ich von Hand eintragen - was mich etwas nervt)

Wie kann ich erreichen, dass ich in Feld 3 automatisch den ersten Buchstaben des Nachnamens angezeigt bekommen, ohne dass ich ihn eingeben muss?

Vielen Dank im Voraus

[DF6GL]

Hallo,


warum überhaupt anzeigen?


Im Steuerelementinhalt von Feld3:

=Left([Nachname];1)

[carman0103]

Dann meldet Access der Ausdruck wäre syntaktisch falsch....

[DF6GL]

Ja, sorry, war ein Tippfehler drin. Habe den Ausdruck korrigiert.

[carman0103]

da bekomme ich nur ein leeres Feld.....

[DF6GL]

Hallo,

ja mei, 

steht denn in "Nachname" etwas drin?

Gibt es das Feld "Nachname" überhaupt?

nochaml die Frage:

warum überhaupt anzeigen?

WIE bearbeitest Du die Daten überhaupt (weiter)?

[carman0103]

ja das Feld gibt es und es steht auch was drin. das ganze dient nur zur anzeige des bildes im formular

[DF6GL]

WAS GENAU steht jetzt im Steuerelement-Inhalt von Feld3?

WIE bearbeitest Du die Daten weiter (CODE??) ?


Bei WELCHEM  Ereignis (mit welcher Ereignisprozedur--> CODE? ) passiert das dann?

[carman0103]

im steuerelement-inhalt steht: =Left([Nachname];1)


das ist der code hinter dem bild.....

Private Sub BildAktualisieren1()
    On Error GoTo BildAktualisieren1_Err
    Dim strpfad As String
    strpfad = Nz(Me!Pfad & Me!Vorschau, "")
    If Dir(strpfad) = "" Then
        strpfad = ""
    End If
BildAktualisieren1_Exit:
    Me!picvorschaubild.Picture = strpfad
    Exit Sub
BildAktualisieren1_Err:
    MsgBox "Das konnte nicht geladen werden." & vbCrLf & "Fehler-Nr: " & Err.Number & vbCrLf & "Fehler-Beschreibung: " & Err.Description
    strpfad = ""
    Resume BildAktualisieren1_Exit
End Sub

[DF6GL]

Hallo,




Angebot:


lad die DB mal hier hoch, damit man den Ablauf übersehen kann, sonst machen wir diese Frage-Antwortspielchen noch eine ganze Weile weiter... 

[carman0103]

mit dem Feld Vornamen geht es. aber beim nachnamen passiert nix..... ne erklärung dafür?

[database]

Hallo,

tja, an der Stelle die Frage von DF6GL zur Wiederholung

Gibt es das Feld "Nachname" überhaupt?

...und wenn ja ist der Feldname so geschrieben wie er lauten soll?

Weil:
Wenn das Feld existiert und es auch verlässlich was drinsteht dann bringt   '=Left([Nachname];1)'   mit halsbrecherischer Sicherheit das erste Zeichen des Eintrags!

Greets
Peter

[carman0103]

Hallo,

also ich hab mal ein wenig rumprobiert. hab jetzt in feld die "left"-Funktion integriert und das geht jetzt. aber trotztdem vielen dank für eure hilfe. der tipp mit der "left"-funktion war schon mal spitze.

[database]

Hi,

der tipp mit der "left"-funktion war schon mal spitze

jaaaaaaaa - den gab's auch schon seit Posting #2 von DF6GL - aber schön, dass er jetzt doch noch hilfreich war 

LG

Peter

[carman0103]

da kannste mal sehen.....