Fehler beim Standartdialog zum Speichern von Daten

[sretz83]

Hallo,

ich hab in meinem Projekt einen Button um die Daten zu Speichern. Dabei soll der Standartdialog geöffnet werden. In diesem soll jedoch bereits ein vorgeschlagender Speichername stehen.

Dieser setzt sich aus verschiedenen Variablen zusammen.
Leider bekomme ich jedesmal die Fehlermeldung, dass auf den Wert der Eigenschaft "_Test_Getr.TDR" nicht zugegriffen werden kann.

"_Test_Getr.TDR" ist der zusammengesetztes Name.

Code:

Sub cmd_save_EventClick()
Dim This : Set This = cmd_save

If (FileNameGet ("NAVIGATOR", "FileWrite", DataReadPath & RootPropGet( txt_kommentar1.Text & "_Test_Getr_" & ".TDR")) = "IDOk") Then
  If FilEx(FileDlgName) Then  'File exists
    Call MsgBoxDisp("File " & FileDlgName & " exists. Overwrite?","MB_YESNO")
    If  (MsgState = "IDYes") Then
        If (FileDlgPartial= True) Then 'Use selected channels
          Call DataFileSaveSel(FileDlgName, FileDlgFilter, DataCheckChnls )
        Else
          Call DataFileSave(FileDlgName, FileDlgFilter )
        End If
    Else 'Dialog was canceled
      Call MsgBoxDisp ("Data saving was canceled")
    End If
  Else   'File does not exist
    If (FileDlgPartial= True) Then 'Use selected channels
      Call DataFileSaveSel(FileDlgName, FileDlgFilter, DataCheckChnls )
    Else
      Call DataFileSave(FileDlgName, FileDlgFilter )
    End If
  End If
Else 'Dialog was canceled
  Call MsgBoxDisp ("Data saving was canceled")
End If

End Sub

Hat jemand eine Idee an was das liegen könnte?

Grüße
Sretz83

[sretz83]

(16.03.2010 16:49)sretz83 schrieb:  Hallo,

ich hab in meinem Projekt einen Button um die Daten zu Speichern. Dabei soll der Standartdialog geöffnet werden. In diesem soll jedoch bereits ein vorgeschlagender Speichername stehen.

Dieser setzt sich aus verschiedenen Variablen zusammen.
Leider bekomme ich jedesmal die Fehlermeldung, dass auf den Wert der Eigenschaft "_Test_Getr.TDR" nicht zugegriffen werden kann.

"_Test_Getr.TDR" ist der zusammengesetztes Name.

Code:

Sub cmd_save_EventClick()
Dim This : Set This = cmd_save

If (FileNameGet ("NAVIGATOR", "FileWrite", DataReadPath & RootPropGet( txt_kommentar1.Text & "_Test_Getr_" & ".TDR")) = "IDOk") Then
  If FilEx(FileDlgName) Then  'File exists
    Call MsgBoxDisp("File " & FileDlgName & " exists. Overwrite?","MB_YESNO")
    If  (MsgState = "IDYes") Then
        If (FileDlgPartial= True) Then 'Use selected channels
          Call DataFileSaveSel(FileDlgName, FileDlgFilter, DataCheckChnls )
        Else
          Call DataFileSave(FileDlgName, FileDlgFilter )
        End If
    Else 'Dialog was canceled
      Call MsgBoxDisp ("Data saving was canceled")
    End If
  Else   'File does not exist
    If (FileDlgPartial= True) Then 'Use selected channels
      Call DataFileSaveSel(FileDlgName, FileDlgFilter, DataCheckChnls )
    Else
      Call DataFileSave(FileDlgName, FileDlgFilter )
    End If
  End If
Else 'Dialog was canceled
  Call MsgBoxDisp ("Data saving was canceled")
End If

End Sub

Hat jemand eine Idee an was das liegen könnte?

Grüße
Sretz83

Hab das Problem gefunden!
Mit RootPropGet() konnte er nichts anfange. Hab diesen Teil einfach weggelassen und die Variablen in Klammern geschrieben. Jetzt klappts.

Code:

If (FileNameGet ("NAVIGATOR", "FileWrite", DataReadPath & (txt_kommentar1.Text & "_Test_Getr_" & ".") & DataExtension) = "IDOk") Then

Grüße
sretz83

[Bruno]

Hi Sretz83,
danke, dass Du die Lösung angehängt hast!
Gruß
Bruno