3 nemme spørgsmål

2:
Du højreklikker på din form og vælger menu editor.

3:
MsgBox ("Din Tekst"), vbOKOnly, "Din title på din msgbox"

Den første kan jeg ikke lige gennemskue......

vbOkOnly giver en knap med ok og ikke andet
vbOkCancel giver 2 knapper, en ok og en cancel hvor man kan ligge en rutine ind hvis man trykker ok......

Der er flere forskellige knapper man kan få på......
Hvis det er til fejlmeddelsen så brug den der hedder

vbCritical........

i spg 1 tror jeg du skal chekke om filen eksistere først.....

og så lave din rutine ud fra det....

2 sec...kigger lige på den

http://www.a1vbcode.com/snippet.asp?ID=1014

prøv at kigge på det der om det er noget du kan få noget ud af, kigger lige vidre

Tubber du er bare manden!

:-)
Jeg kan bruge alt hvad du har sendt!

Takker mange gange!

Nu skal jeg bare lige ha det til at passe på mit program
Her er hele koden på knappen.

Private Sub hentomset_Click()
Open App.Path & "\" & resultatdato.Text & ".txt" For Input As #1
Input #1, Temp$
Input #1, Temp1$
Close #1

ind1.Text = Temp$
ind2.Text = Temp1$
End Sub
Og her er hvad Tubber fandt:
Private Sub cmdOpen_Click()
Dim strTemp As String, strRead As String

    On Error Resume Next

    dlgOpen.ShowOpen

'Although the commondialog control
'can check if a file exists here is
'an alternative to the commondialog

    FileLen (dlgOpen.FileName)
       
    If Err.Number <> 0 Then
        MsgBox "File does not exist"
        Exit Sub
    End If
       
    Open dlgOpen.FileName For Input As #1
               
    Do While Not EOF(1)
           
        Input #1, strRead
           
        If strTemp = "" Then 'First entry don't
                              'include vbCrLf
            strTemp = strRead
        Else
            strTemp = strTemp & vbCrLf & strRead
        End If
       
    Loop

    txtFile.Text = strTemp
       
    Close #1

End Sub

Dim fileExst as String

fileExst = Dir((App.Path & "\" & resultatdato.Text & ".txt"), 0)
If fileExst = "" Then
    MsgBox ("Filen eksistere ikke!"), vbCritical, "Advarsel"
    Exit Sub
Else:
    'Her skal din rutine der åbner filen være
End Sub

Det skulle være svar på nummer 1

Til andre der vil bruge koden så mangler der lige End If inden End Sub
End If
End Sub

Den samlede kode er:

Dim fileExst As String

fileExst = Dir((App.Path & "\" & resultatdato.Text & ".txt"), 0)
If fileExst = "" Then
    MsgBox ("Filen eksistere ikke!"), vbCritical, "Advarsel"
    Exit Sub
Else:
Open App.Path & "\" & resultatdato.Text & ".txt" For Input As #1
Input #1, Temp$
Input #1, Temp1$
Close #1

ind1.Text = Temp$
ind2.Text = Temp1$
End If
End Sub

Mange gange tak til Tubber for det fine arbejde!

T2C

Så lidt og takker point :O)