Fehler beim Kompilieren
Holger Altenberg
Ich bin ein absoluter Neuling was Access angeht. Ich versuche gerade mit
Hilfe eines Buches (Computer Bild Datenbank ganz einfach) meine erste
Datenbank anzulegen, es handelt sich um eine Videodatenbank.
Nun komme ich langsam zum ende und sollte meine ersten Daten eingeben. Wenn
ich auf die Schaltflächen Bearbeiten drücke springt der Bildschirm in das
Codefenster und gibt mir folgende Fehlermeldung:
- Fehler beim Kompilieren Sub oder Funktion nicht definiert
Wenn ich dann OK drücke wird die erste Zeile gelb mit einem gelben Pfeil
davor und die vorletzte blau unterlegt.
Bei anderen Schalter in anderen Formularen kommen noch die Fehlermeldungen:
- Fehler beim Kompilieren Variable nicht definiert
- Fehler beim Kompilieren Mehrfachdeklaration im aktuellen
Gültigkeitsbereich
- Fehler beim Kompilieren Sprungmarke nicht definiert
Da ich nun überhaupt nicht weiß was ich machen soll (Ich habe ja nur nach
Buchanleitung gearbeitet), habe ich auf dann Hilfeschalter in der
Fehlermeldung gedrückt, daraufhin bekomme ich die Meldung das mir die
Hilfedatei "VEdelLR3.hlp" fehlt. Diese kann ich leider auf der Festplatte
und auf meiner Office 97 CD nicht finden.
Ich habe noch mal alle Codeeingaben genau kontrolliert konnte aber keinen
Fehler finden.
Vielleicht kann mir Irgendwer helfen oder vielleicht hat ja auch Jemand die
Hilfedatei für mich.
Ich würde mich wirklich sehr freuen weil es doch bisher eine menge Arbeit
gemacht hat die Datenbank anzulegen.
CU
--
rog...@gmx.net
Eva Kleinbrahm
Holger Altenberg schrieb:
Hallo Holger,
wenn du das Code-fenster offen hast (und den gelben Balken) , kannst du mit F8
die Einzelschritte in deinem Programm testen. Der blaue zeigt dir wo der Fehler
liegt.
> Wenn
> ich auf die Schaltflächen Bearbeiten drücke springt der Bildschirm in das
> Codefenster und gibt mir folgende Fehlermeldung:
> - Fehler beim Kompilieren Sub oder Funktion nicht definiert
> Wenn ich dann OK drücke wird die erste Zeile gelb mit einem gelben Pfeil
> davor und die vorletzte blau unterlegt.
Rufst du hier eine Sub oder Funktion auf ?
> Bei anderen Schalter in anderen Formularen kommen noch die Fehlermeldungen:
> - Fehler beim Kompilieren Variable nicht definiert
> Überprüfe die Schreibweise deine Variablen!
> - Fehler beim Kompilieren Mehrfachdeklaration im aktuellen
> Gültigkeitsbereich
>
keine Ahnung
> - Fehler beim Kompilieren Sprungmarke nicht definiert
> Da ich nun überhaupt nicht weiß was ich machen soll (Ich habe ja nur nach
> Buchanleitung gearbeitet),
ein Tip : Schaltflächen (Buttons) kannst du mit dem Assistenten am besten
anlegen. Im Entwurf (Formular) auf der Toolleiste Button anklicken
- auf dein Formular ablegen und schon startet der Assistent.
> Ich würde mich wirklich sehr freuen weil es doch bisher eine menge Arbeit
> gemacht hat die Datenbank anzulegen.
>
ich hoffe es hilft dir weiterGruss Eva
> CU
> --
> rog...@gmx.net
Peter Steimann
Holger Altenberg <rog...@gmx.net> schrieb:
> Hallo
> Ich bin ein absoluter Neuling was Access angeht. Ich versuche gerade mit
> Hilfe eines Buches (Computer Bild Datenbank ganz einfach) meine erste
> Datenbank anzulegen, es handelt sich um eine Videodatenbank.
> Nun komme ich langsam zum ende und sollte meine ersten Daten eingeben.
Wenn
> ich auf die Schaltflächen Bearbeiten drücke springt der Bildschirm in das
> Codefenster und gibt mir folgende Fehlermeldung:
> - Fehler beim Kompilieren Sub oder Funktion nicht definiert
> Wenn ich dann OK drücke wird die erste Zeile gelb mit einem gelben Pfeil
> davor und die vorletzte blau unterlegt.
Du rufst ein Makro auf, welches nicht existiert, oder im Code eine Funktion,
welche es nicht gibt. (z.B. fehlendes Modul) Ich tippe auf Schreibfehler.
> Bei anderen Schalter in anderen Formularen kommen noch die
Fehlermeldungen:
> - Fehler beim Kompilieren Variable nicht definiert
Du sprichst eine Variable an, welche Du nicht mit Dim deklariert hast.
Oder Du willst Dich auf ein Feld in der Form beziehen und hast das Me!
vergessen.
Me!Feld1=
> - Fehler beim Kompilieren Mehrfachdeklaration im aktuellen
> Gültigkeitsbereich
Kann es sein, Dass Du ein Modul hast, und es in dem Modul eine Funktion
gibt,
welche genau gleich heisst wie das Modul selbst? Unter A2 ging das noch, A7
akzeptiert dies nicht mehr.
> - Fehler beim Kompilieren Sprungmarke nicht definiert
Vermutlich springst Du da in eine Error-Routine
On Error Goto Err
.......
Err:
Dieses 2. Err: findet er nicht. Vermutlich ein Verschreiber.
> Da ich nun überhaupt nicht weiß was ich machen soll (Ich habe ja nur nach
> Buchanleitung gearbeitet), habe ich auf dann Hilfeschalter in der
> Fehlermeldung gedrückt, daraufhin bekomme ich die Meldung das mir die
> Hilfedatei "VEdelLR3.hlp" fehlt. Diese kann ich leider auf der Festplatte
> und auf meiner Office 97 CD nicht finden.
Da kann ich nicht helfen.
> Ich habe noch mal alle Codeeingaben genau kontrolliert konnte aber keinen
> Fehler finden.
Mit Sicherheit hast Du da 2 oder 3 kleine Fehler drin-.)
> Ich würde mich wirklich sehr freuen weil es doch bisher eine menge Arbeit
> gemacht hat die Datenbank anzulegen.
Nun ja, das sollte ja schnell erledigt sein.
--
Gruss
Peter
----------------------------------------------------------------------------
------------------
Mitglied des APP-Profipools (http://www.accessprofipool.com)
Bitte keine Anfragen oder Forwards an meine Email-Adresse
Zeiterfassungs-Systeme unter http://www.timesoft.ch
2.Access-Entwickler-Konferenz in Nürnberg....
Wer nicht kommt, ist selber schuld!
Infos unter http://members.eunet.at/donkarl/
Holger Altenberg
Danke erst mal für Deine schnelle Antwort!
Wenn ich auf F8 drücke kommt die gleiche Fehlermeldung noch mal.
Die Schaltflächen habe ich mit dem Assistenten angelegt nur die
Ereignissprozedur beim Klick mußte ich selber schreiben. ich habe Sie mal
Kopiert:
Private Sub KategorienBearbeiten_Click() (HIER IST DER GELBE
PFEIL)
On Error GoTo Err_KategorienBearbeiten_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "DialogfensterKategorien"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_KategorienBearbeiten_Click:
Exit Sub
Err_KategorienBearbeiten_Click:
MsgBox Err.Description
Resume
Exit_KategorienBearbeiten_Click (HIER IST ES
BLAU UNTERLEGT)
End Sub
Ich glaube es handelt sich um eine Sub.
Also richtig weiter komme ich immer noch nicht, aber trotzdem Danke
CU
Holger
Karl Gruber
Hast du da wirklich eine Zeilenschaltung drin, dann liegt da der Fehler
> Resume Exit_KategorienBearbeiten_Click (HIER IST ES
Holger Altenberg schrieb:
Holger Altenberg
Was ist eine Zeilenschaltung?
CU Holger
Holger Altenberg
Ich bin mir fast sicher das ich mich nicht verschrieben
habe, aber vielleicht liegt der Fehler ja in diesem "tollen Buch" :-(
Bei dem Fehler mit der Variablen wird mir stLinkCriteria angezeigt.
Der Schalter ist dafür da mich von der Filme-Verwaltung
in die Kassetten-Verwaltung zu bringen Umgekehrt haut das
Problemlos hin. Auch diesen Code habe ich noch mal in
diese Nachricht gestellt. Sehen doch beide gleich aus oder?
Ich glaube ein Modul habe ich nicht, jedenfalls wenn ich im Register
auf Module gehe ist da keines drin
>Private Sub KassettenVerwaltung_Click()
On Error GoTo Err_KassettenVerwaltung_Click
Dim stDocName As String
Dim stDocCriteria As String
DoCmd.Close
stDocName = "Filme"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_KassettenVerwaltung_Click:
Exit Sub
Err_KassettenVerwaltung_Click:
MsgBox Err.Description
Resume
Exit_KassettenVerwaltung_Click
End Sub<
>Private Sub Filmeverwaltung_Click()
On Error GoTo Err_Filmeverwaltung_Click
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
stDocName = "FormularFilme"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Filmeverwaltung_Click:
Exit Sub
Err_Filmeverwaltung_Click:
MsgBox Err.Description
Resume Exit_Filmeverwaltung_Click
End Sub<
Hier ist die Sache mit der Sprungmarke, soll ich da das Err weglassen
auch dieses steht genau so in meinem tollen Buch.
>Private Sub Hinzufuegen_Click()
Dim AlteRestlaufzeit
Dim NeueRestlaufzeit
Dim Datensatzposition
On Error GoTo Err_Hinzufuegen_Click<
Ich denke ich sollte villeicht alles noch einmal versuchen
oder der Computer Bild mal sagen das Ihr Buch nicht so
toll ist.
Vielen Dank für Deine Hilfe
CU
Holger
Peter Steimann
Wenn das Ding nicht zu fross ist, zipp es mal und mails an mich.
Ergebnis post ich dann hier.
Gruss
Peter
Holger Altenberg <rog...@gmx.net> schrieb:
Roman Havlik
Holger Altenberg schrieb in im Newsbeitrag:
> >Private Sub KassettenVerwaltung_Click()
> On Error GoTo Err_KassettenVerwaltung_Click
> Dim stDocName As String
> Dim stDocCriteria As String
> DoCmd.Close
> stDocName = "Filme"
> DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_KassettenVerwaltung_Click:
> Exit Sub
>
> Err_KassettenVerwaltung_Click:
> MsgBox Err.Description
> Resume
> Exit_KassettenVerwaltung_Click
>
> End Sub<
Ich denke, da ist schon mal was faul. Du öffnest ein Form mit einem
Kriterium welches in der Variablen "stLinkCriteria" abgespeichert sein soll.
Beim Dimensionieren hast aber den Variablennamen "stDocCriteria". Eines der
beiden solltest mal auf das andere Ändern (also das beide gleich sind *g*)
>
>
> >Private Sub Filmeverwaltung_Click()
> On Error GoTo Err_Filmeverwaltung_Click
>
> Dim stDocName As String
> Dim stLinkCriteria As String
>
> DoCmd.Close
> stDocName = "FormularFilme"
> DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_Filmeverwaltung_Click:
> Exit Sub
>
> Err_Filmeverwaltung_Click:
> MsgBox Err.Description
> Resume Exit_Filmeverwaltung_Click
>
> End Sub<
>
>
> >Private Sub Hinzufuegen_Click()
> Dim AlteRestlaufzeit
> Dim NeueRestlaufzeit
> Dim Datensatzposition
> On Error GoTo Err_Hinzufuegen_Click<
>
> Ich denke ich sollte villeicht alles noch einmal versuchen
> oder der Computer Bild mal sagen das Ihr Buch nicht so
> toll ist.
Das kann ohne weiters so sein. Denn wenn Du das 1:1 abgetippt hast, dann
dürften die den Code nicht testen, sondern aus dem Gedächtnis in eine
Textverarbeitung hämmern...;-))) (für einen Druckfehler ist der Unterschied
zwischen Link und Doc einfach zu groß
--
--
--
Gruß aus Wien
Roman
~~~~~~~~~~~~~~~~~~~
E-Mail: rha...@teleweb.at
~~~~~~~~~~~~~~~~~~~
Holger Altenberg
Vielen Dank für den Tip.
Hat was gebracht
CU
Holger
Guido Studer
Holger Altenberg schrieb in Nachricht <7pka39$p70$1...@news.nikoma.de>...
>Hallo Roman!
>Vielen Dank für den Tip.
>Hat was gebracht
Sali Holger!
Ja, dieser Fehler ist nun behoben (Namenskonflikt) und das hat auch dazu
geführt, dass nun die Fehlerbehandlung ("On Error") nicht mehr ausgeführt
wird und es deshalb darin nicht nocheinmal zum anderen Fehler kommt, welcher
Dir Peter Gruber weiter oben beschrieben hat (Stichwort "Zeilenumbruch"); Du
musst das "Resume" und das "Exit_KategorienBearbeiten_Click" in dieselbe
Zeile schreiben.
Hoffe, es hilft!
Gruss
Guido Studer, Basel
Holger Altenberg
Mit der Fehlerbehandlungsroutine komme ich noch nicht wirklich klar, muß ich
da irgendwas mit DoCmd. zufügen.
Ansonsten habe ich in dem Original alle Deine "Reparaturen" noch mal
nachgeahmt, hat auch alles ganz gut hingehauen, leider kann ich in den
Dialogfenstern nicht schreiben, bei Deiner Version klappt das.
Ich könnte ja nun einfach Deine nehmen, aber ich will ja alles verstehen.
Ich hoffe ich nerve mit meinen Lappalien nicht. Jeder fängt mal klein an
:-))
Danke auch an alle anderen für Ihre Tips. Ich freue mich über jeden, da das
auch mein einstieg in die NG ist und ich ganz überrascht bin wie viele nette
Leute da draußen sind.
CU
Holgerine *g*
Holger Altenberg
Holger Altenberg
Holger Altenberg
Holger Altenberg
Holger Altenberg
Peter Steimann
Karl Gruber
du hast geschrieben:
Err_KategorienBearbeiten_Click:
MsgBox Err.Description
Resume
Exit_KategorienBearbeiten_Click
Richtig müßte es aber heißen
Err_KategorienBearbeiten_Click:
MsgBox Err.Description
Resume Exit_KategorienBearbeiten_Click
Vielleicht hilft das
Gruß aus NÖ
Karl
Holger Altenberg schrieb:
Sascha Wostmann
> Ich bin mir fast sicher das ich mich nicht verschrieben
> habe, aber vielleicht liegt der Fehler ja in diesem "tollen Buch" :-(
entweder oder. Auf jeden Fall sind mir folgende Dinge aufgefallen:
> >Private Sub KassettenVerwaltung_Click()
> On Error GoTo Err_KassettenVerwaltung_Click
> Dim stDocName As String
> Dim stDocCriteria As String
> DoCmd.Close
> stDocName = "Filme"
> DoCmd.OpenForm stDocName, , , stLinkCriteria
in der Deklaration (Dim-Zeile) steht "stDocCriteria", hier
"stLinkCriteria". Das muß gleich lauten. Aber da die Variable ohnehin
nicht belegt wird, kannst Du sie auch gleich weglassen, also diese
Zeile so schreiben:
DoCmd.OpenForm stDocName
und auch die Dim-Zeile mit stXXXCriteria weglassen.
> Exit_KassettenVerwaltung_Click:
> Exit Sub
>
> Err_KassettenVerwaltung_Click:
> MsgBox Err.Description
> Resume
> Exit_KassettenVerwaltung_Click
das "Resume" und "Exit_KassettenVerwaltung_Click" muß in dieselbe
Zeile, also:
Resume Exit_KassettenVerwaltung_Click
>
> End Sub<
>
>
> >Private Sub Filmeverwaltung_Click()
> On Error GoTo Err_Filmeverwaltung_Click
>
> Dim stDocName As String
> Dim stLinkCriteria As String
>
> DoCmd.Close
> stDocName = "FormularFilme"
> DoCmd.OpenForm stDocName, , , stLinkCriteria
hier ist's richtig (stLinkCriteria)
> Exit_Filmeverwaltung_Click:
> Exit Sub
>
> Err_Filmeverwaltung_Click:
> MsgBox Err.Description
> Resume Exit_Filmeverwaltung_Click
auch das ist hier richtig.
> End Sub<
>
> Hier ist die Sache mit der Sprungmarke, soll ich da das Err weglassen
> auch dieses steht genau so in meinem tollen Buch.
>
> >Private Sub Hinzufuegen_Click()
> Dim AlteRestlaufzeit
> Dim NeueRestlaufzeit
> Dim Datensatzposition
> On Error GoTo Err_Hinzufuegen_Click<
es muß in derselben Sub eine Zeile geben mit
Err_Hinzufuegen_Click:
Das ist das Ziel dieser Sprungmarke. Wenn da ein Tippfehler drin ist,
hast Du verloren. Beachte auch den Doppelpunkt am Ende der Zeile.
> Ich denke ich sollte villeicht alles noch einmal versuchen
> oder der Computer Bild mal sagen das Ihr Buch nicht so
> toll ist.
nix für Ungut, aber das hätte ich schon beim Kauf nicht erwartet. War
da zumindest eine CD oder Diskette mit der kompletten DB dabei? Was
hast Du denn dafür bezahlt?
Holger Altenberg
Danke für Deine Hilfe ich werde mich gleich mal darüber
her machen, ich hatte mir das wohl zu einfach vorgestellt.
Das Buch war zugegebenermaßen nicht sooo teuer "12,90 DM",
aber trotzdem, eine CD war natürlich auch nicht dabei und
wahrscheinlich werde ich wohl nie erfahren wie die tolle
Datenbank aussieht.
Aber trotzdem Danke für die Mühe!
cu Holger