Ah, also wenn Du in einem Modul eine Function oder Sub als Private definierst, k�nnen nur Functions und Subs im selben Modul darauf zugreifen. Probier mal die Functions als Public zu deklarieren. M�sste gehen.
> -----Urspr�ngliche Nachricht----- > Von: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Auftrag von Olaf J. Haupt > Gesendet: Dienstag, 12. April 2005 17:14 > An: [email protected] > Betreff: Re: AW: [Coffeehouse] Access Modul -> Formular > > > Der Debugger �ffnet sich und sagt: "sub oder function nicht definiert". > Die SQL Befehle k�nnen Inserts oder Updates sein. > > > At 16:46 12.04.2005, you wrote: > >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 > > _______________________________________________ > 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
