Hallo an alle.
Irgendwie stehe ich auf dem Schlauch.
CB = Angebot_Durchsuchen
Textfeld = txt_Angebot
Situation:
Wenn txt_Angebot leen dann
Wenn txt_Angebot nicht leer dann vorher Abfrage
Nur wie kombiniere ich das jetzt?
Wenn ich es so mache kommt Mehrfachdeklarationsfehler:
Versuch 2:
Lösung:
Wenn txt_Angebot jetzt Wert hat kommt die Msgbox.
Ja bestätigen kommt OpenFilename.
Klick ich dann aber Abbrechen setzt er ja txt_Angebot auf leer.
Hier müsste der alte wert dann bestehen bleiben.
Irgendwie stehe ich auf dem Schlauch.
CB = Angebot_Durchsuchen
Textfeld = txt_Angebot
Situation:
Wenn txt_Angebot leen dann
Code:
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Angebot (*.pdf),*.pdf")
txt_Angebot = fileToOpen
If txt_Angebot = False Then
txt_Angebot = ""
End If
Wenn txt_Angebot nicht leer dann vorher Abfrage
Code:
If MsgBox("Es wurde bereits ein Angebot gespeichert!" & Chr(13) & Chr(13) & "Wenn dieses geändert wird, wird die alte Datei gelöscht und neu erstellt." & Chr(13) & Chr(13) & "Soll die Änderung durchgeführt werden?", vbYesNo + vbQuestion, _
"Daten ändern?") = vbYes Then
Nur wie kombiniere ich das jetzt?
Wenn ich es so mache kommt Mehrfachdeklarationsfehler:
Code:
Private Sub Angebot_Durchsuchen_Click()
If txt_Angebot <> "" Then
If MsgBox("Es wurde bereits ein Angebot gespeichert!" & Chr(13) & Chr(13) & "Wenn dieses geändert wird, wird die alte Datei gelöscht und neu erstellt." & Chr(13) & Chr(13) & "Soll die Änderung durchgeführt werden?", vbYesNo + vbQuestion, _
"Daten ändern?") = vbYes Then
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Angebot (*.pdf),*.pdf")
txt_Angebot = fileToOpen
If txt_Angebot = False Then
txt_Angebot = ""
End If
Else
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Angebot (*.pdf),*.pdf")
txt_Angebot = fileToOpen
If txt_Angebot = False Then
txt_Angebot = ""
End If
End If
End Sub
Versuch 2:
Lösung:
Code:
Private Sub Angebot_Durchsuchen_Click()
If txt_Angebot <> "" Then
If MsgBox("Es wurde bereits ein Angebot gespeichert!" & Chr(13) & Chr(13) & "Wenn dieses geändert wird, wird die alte Datei gelöscht und neu erstellt." & Chr(13) & Chr(13) & "Soll die Änderung durchgeführt werden?", vbYesNo + vbQuestion, _
"Daten ändern?") = vbYes Then
else
Exit Sub
End If
End If
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Angebot (*.pdf),*.pdf")
txt_Angebot = fileToOpen
If txt_Angebot = False Then
txt_Angebot = ""
End If
End Sub
Wenn txt_Angebot jetzt Wert hat kommt die Msgbox.
Ja bestätigen kommt OpenFilename.
Klick ich dann aber Abbrechen setzt er ja txt_Angebot auf leer.
Hier müsste der alte wert dann bestehen bleiben.