Was passiert denn? Fehlermeldung? Gar nichts? Vielleicht mal mit docmd.runsql(Textzeile) statt "CurrentDb.Execute (TextZeile)" probieren. Und was f�r SQL wird ausgef�hrt? Select ... oder INSERT/UPDATE/DELETE?
-----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Auftrag von Olaf J. Haupt Gesendet: Dienstag, 12. April 2005 15:28 An: [email protected] Betreff: [Coffeehouse] Access Modul -> Formular 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: [email protected] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse _______________________________________________ Coffeehouse Mailingliste, Postings senden an: [email protected] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse
