PDA

Vollständige Version anzeigen : Mit dem Editor angegebenes Feld anzeigen


Gast
07.05.2004, 06:57
Wie lautet der Code wenn ich beim Click den Inhalt Me!Muster anzeigen möchte. Call Shell("NOTEPAD.EXE", Me!Muster) ´klappt nicht




Private Sub eMailTextzeigen_Click()
On Error GoTo Err_eMailTextzeigen_Click


Call Shell("NOTEPAD.EXE", 1)

Exit_eMailTextzeigen_Click:
Exit Sub

Err_eMailTextzeigen_Click:
MsgBox Err.Description
Resume Exit_eMailTextzeigen_Click

End Sub

Gruß und Danke

Arne Dieckmann
07.05.2004, 07:28
Was erwartest Du bzw. was ist der Sinn des Vorhabens? Notepad.Exe ist dafür da, um Dateien anzuzeigen. Du müsstest erst den Inhalt von Me!Muster in einer Datei ablegen und anschliessend den Editor mit der neuen Datei öffnen, aber ob das sinnvoll ist, sei dahingestellt.

piano
07.05.2004, 07:48
Hallo
Am einfachsten mit dem Zwischenschritt einer Command-Datei:
Private Sub eMailTextzeigen_Click()
On Error GoTo Err_eMailTextzeigen_Click
Dim eCall
Dim datei
datei = "C:\temp\ccmd.cmd"
Open datei For Output As #1
Print #1, "NOTEPAD.EXE " & Me.Muster
Close #1

eCall = Shell("C:\temp\ccmd.cmd", 1)

Exit_eMailTextzeigen_Click:
Exit Sub

Err_eMailTextzeigen_Click:
MsgBox Err.Description
Resume Exit_eMailTextzeigen_Click

End Sub