CheckBox Image Prüfen

V

valeripf

Erfahrenes Mitglied
Kann mir helfe

es geht folgedes

1)wenn CheckBox kein haken drin bei OK bei daten is Tabellen übetragen
2)wenn CheckBox haken drin ist aber kein Images drin dann (MsgBox "Bitte Cover eingeben!")
3) wenn CheckBox haken drin ist Images drin dann bei OK daten is Tabellen übetragen

ich habe so probiert aber geht nicht

Code: 
If CheckBox1.Value <> "" And imgImage1.Tag = "" Then
        MsgBox "Bitte Cover eingeben!"
    Exit Sub
    End If
 
MS Word? MS Excel? MS Access?

Egal welches Program. das Tag-Attribut kann der User nicht setzen.

Angemommen es handelt sich um ein Image-Control in MS Access:
Visual Basic: 
'Anstelle von
imgImage.Tag = ''
^besser so prüfen
isNull(imgImage.PictureData)
 
Visual Basic: 
Private Sub CommandButton1_Click()
    If CheckBox1.Value And Not IsNull(Image1.Picture) Then
        MsgBox "Bitte Cover eingeben!"
    Else
        'Hier kommt der Code hin wenn alles in Ordnung ist
    End If
End Sub

Hier wird aber nicht geprüft ob zwar ein Bild vorhanden ist aber der Haken nicht gesetzt ist.
Ich meine mich aber zu erinnern das du diese Möglichkeit in einem anderen Beitrag ausgeschlossen hast!?
 
ich bau wieder bisschen neu um

ich hab jetzt so probiert aber geht nicht

Code: 
'Range ("O" & lFreie) Cover Bild Einfügen
             If CheckBox1.Value And Not IsNull(imgImage1.Picture) Then
                MsgBox "Bitte Cover eingeben!"
                Exit Sub
                With ActiveSheet
                    If Trim(imgImage1.Tag) = "" Then
                        .Cells(lFreie, 14).Value = "Kein Bild"
                    Else
                    .Hyperlinks.Add Anchor:=.Cells(lFreie, 14), _
                        Address:=imgImage1.Tag, _
                        ScreenTip:=imgImage1.Tag, _
                        TextToDisplay:="Klick mich"
                    End If
                End With
            Else
            End If

Versuch1 : Ohne Hacken und Ohene Bild Es überttragt ins Tabelle aber die die ist leeer Soll zeigen "Kein Bild"
Versuch 2: mit Hacken und Ohene Bild Das ist OK Kommt "Meldug Bitte Cover eingeben!"
Versuch3: mit Hacken und mit Bild Blockier immer noch Meldug "Meldug Bitte Cover eingeben!"
 
Er hat anstatt (stat) auf Erweitert (Erweter) auf Antwort geklickt (Antwort gedruckt).

So würde ich ihn verstehen.

Visual Basic: 
If CheckBox1.Value = False And Image1.Picture Is Nothing Then
    'Hier der Code wenn die CheckBox nicht markiert ist und kein Bild vorhanden ist
    MsgBox "Keine Checkbox und kein Bild"
ElseIf CheckBox1.Value = True And Image1.Picture Is Nothing Then
    'Hier der Code wenn die CheckBox markiert ist und kein Bild vorhanden ist
    MsgBox "Checkbox aber kein Bild"
ElseIf CheckBox1.Value = True And Not Image1.Picture Is Nothing Then
    'Hier der Code wenn die CheckBox markiert ist und ein Bild vorhanden ist
    MsgBox "Checkbox und Bild"
ElseIf CheckBox1.Value = False And Not Image1.Picture Is Nothing Then
    'Hier der Code wenn die CheckBox nicht markiert ist und ein Bild vorhanden ist
    MsgBox "Keine Checkbox aber ein Bild"
End If

So ein anderes Beispiel. Hier werden alle Möglichkeiten in einem eigenen IF-Block abgearbeitet.

Zur Kontrolle wird immer eine Meldung ausgegeben wo zu sehen ist was markiert ist und was nicht bzw. ob ein Bild vorhanden ist oder nicht.
 
Zuletzt bearbeitet:
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück