Kann man diesen Code einkürzen ?
Private Sub Form_Current()
If Me!USK = "18" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk18.png"
Else
If Me!USK = "0" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk0.png"
Else
If Me!USK = "6" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk6.png"
Else
If Me!USK = "12" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk12.png"
Else
If Me!USK = "16" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk16.png"
Else
If Me!USK = "nicht getestet" Then
Bild0.Picture = "D:\Spiele\Verwaltung\USK\usk.png"
End If
End If
End If
End If
End If
End If
End Sub
mein Problem ist das das ein ausschnitt ist und ich diesen Code auch mit Bilderzuordnung habe und das umfasst 5000 Bilder aber nach circa 1800 Bilder ist schluss in VBA da ruft er diese Anweisung nicht mehr auf da dann zu lang
|