[Coffeehouse] Access Modul -> Formular

[Olaf J. Haupt]

Hallo,

ich bin echt ein Access Non-Checker. Aber muss da was gebacken kriegen. Ich habe ein Modul, das mit einem Klick auf einen Button in einem Formular aufgerufen werden soll. Eigentlich wohl ganz einfach, ich kriege den Aufruf aber nicht hin.

Das hier steht als ereignisprozedur hienter dem Button ("Update from Mail") im Formular ("websql")
Option Compare Database

Private Sub Update_from_Mail_Click()
websql
End Sub

und das hier ist das Modul "update-from-mail":

Option Compare Database
Option Explicit


Private Sub websql()
Dim fs As Object
Dim f As Object
Dim TextZeile As String


On Error GoTo err:
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.OpenTextFile("c:\WEBSQL.txt", 1)
 
   Do While f.AtEndOfStream <> True
       TextZeile = f.ReadLine
       If TextZeile <> "" Then
           SQLAusf�hren (TextZeile)
       End If
   Loop
 
   f.Close
Exit Sub


err:
MsgBox err.Description


End Sub



Private Sub SQLAusf�hren(TextZeile As String)
On Error GoTo err:
    CurrentDb.Execute (TextZeile)
Exit Sub


err:
MsgBox err.Description & Chr(13) & "SQL-Statement: " & TextZeile

End Sub

Was ist nicht richtig? Kann mir da einer helfen oder ist das schwierig �ber die Entfernung?
Danke schon mal,
ciao Olaf _______________________________________________ Coffeehouse Mailingliste, Postings senden an: Coffeehouse@glengamoi.com An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse