Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Anfänger,Hilfe bei Fehlermeldung!!!
Autor: Rudi
Datum: 07.04.02 10:12
:Hallo Forenmitglieder, :bin anfänger auf dem Gebiet Access-Programmierung u.VBA.Habe Stunden im Internet zugebracht um den Fehler zu finden, was ich falsch mache - kein Erfolg. Könnt ihr mir helfen, als Experten? :Bekomme immer wieder Fehlermeldung, egal welchen Code ich auch versuche. Habe sogar schon meine Forms verändert-kein Erfolg. Z.Zt. ist folgender Stand: Dokuverwaltung mit 2 UF. Öffnen von Word.Doc klappt. :Soll das Form. aktualisiert werden kommt der Fehler beim Verweis auf akt.DB(Erstellung Recordset). Geht einfach alles schief! :Hier der Code(In der Hoffnung auf Hilfe) :Gruß :Private Sub btnErstellen_Click() im DBPfad As String im Currentdb As Database, dbs As Database im SQL As String im Rst As Recordset im Betreffzeile As String im NeuesDokument As Word.Document im NeueMappe As Excel.Workbook : :' Prozedur beenden, wenn bereits ein Dokument vorhanden ist : If Not IsNull(Me!Dokument) Then : MsgBox "Sie können im aktuellen Datensatz kein neues Dokument erstellen, " & _ : "weil bereits ein Dokument vorhanden ist!", vbCritical + vbOKOnly, "Dokument erstellen" : Exit Sub : End If : :' Sicherstellen, daß eine Dokumentart ausgewählt wurde : If IsNull(Me!Dokumentart) Then : MsgBox "Bitte wählen Sie vorher die gewünschte Dokumentart aus!", _ : vbInformation + vbOKOnly, "Dokument erstellen" : Exit Sub : End If : 'Me!Datum = Now : : DBPfad = HolePfad(CodeDb.Name) :' Neues Objekt auf Basis der gewählten Dokumentart erstellen : Select Case Me!Dokumentart : Case 1 ' Brief : Betreffzeile = _ : InputBox("Bitte geben Sie die Betreffzeile für den Brief ein:", _ : "Neuen Brief schreiben") : If Betreffzeile = "" Then : Me.Undo : Exit Sub : End If : Me!Betreff = Betreffzeile : With Me!Dokument : .Class = "Word.Document.8" ' Den Klassennamen angeben : .OLETypeAllowed = acOLEEmbedded ' Den Typ des Objekts angeben : .SourceDoc = DBPfad & "BRIEFKOPF.DOT" ' Quelldatei im aktuellen Datenbankpfad : .Action = acOLECreateEmbed ' Das verknüpfte Objekt erstellen : : .Verb = acOLEVerbOpen : .Action = acOLEActivate : End With : : Set NeuesDokument = Me.Dokument.Object : : With NeuesDokument : .Bookmarks("Firma").Range.Text = CStr(Forms!Dokumentverwaltung.Firma) : .Bookmarks("Strasse").Range.Text = CStr(Forms!Dokumentverwaltung.Strasse) : .Bookmarks("Ort").Range.Text = CStr(Forms!Dokumentverwaltung.PLZ) & " " & CStr(Forms!Dokumentverwaltung.Ort) : .Bookmarks("Land").Range.Text = CStr(Forms!Dokumentverwaltung.Land) : .Bookmarks("Betreff").Range.Text = Betreffzeile : End With : : Set NeuesDokument = Nothing : Case 2 ' Lieferschein : : LFSCHNr = InputBox("Bitte geben Sie die Nr für den Lieferschein ein:") & _ : Datum = InputBox("Bitte geben Sie das Datum ein:", _ : "Neuen Lieferschein schreiben") :'!FEHLERMELDUNG91' : Set dbs = Currentdb() : SQL = "Select Tabelle2.LFSCHNr, KDCODE.Datum, KDCODE.Stück, KDCODE.StkLstNr, KDCODE.BestellNr, KDCODE.ArtNr, KDCODE.GeräteNr, KDCODE.Preis" & _ :"FROM Tabelle2" & _ :"INNERJOIN KDCODE" & _ :"ON Tabelle2.Kennummer = KDCODE.Tabelle2_ID" & _ :"WHERE ((([Tabelle2].LFSCHNr) >= [LFSCHNr?('*)]) And (([KDCODE].Datum) = [Datum()]))) 'KDCODE'" & _ :"OrderBy = Tabelle2.LFSCHNr DESC;" :'!FEHLERMELDUNG91' :Set Rst = dbs.OpenRecordset(SQL) : : If LFSCHNr = "" And Datum = "" Then : Me.Undo : End If : Me!LFSCHNr = LFSCHNr : Me!Datum = Datum : : With Me!Dokument : .Class = "Word.Document.8" ' Den Klassennamen angeben. : .OLETypeAllowed = acOLEEmbedded ' Den Typ des Objekts angeben. : .SourceDoc = DBPfad & "Lieferschein.DOT" ' Quelldatei im aktuellen Datenbankpfad : .Action = acOLECreateEmbed ' Das verknüpfte Objekt erstellen. : : .Verb = acOLEVerbOpen : .Action = acOLEActivate : End With : Set NeuesDokument = Me.Dokument.Object : : With NeuesDokument : .Bookmarks("Firma").Range.Text = CStr(Forms!Dokumentverwaltung.Firma) : .Bookmarks("Strasse").Range.Text = CStr(Forms!Dokumentverwaltung.Strasse) : .Bookmarks("Ort").Range.Text = CStr(Forms!Dokumentverwaltung.PLZ) & " " & CStr(Forms!Dokumentverwaltung.Ort) : .Bookmarks("Land").Range.Text = CStr(Forms!Dokumentverwaltung.Land) : : End With : : Set NeuesDokument = Nothing : Case 3 ' Rechnung : With Me!Dokument : .Class = "Excel.Sheet.8" ' Den Klassennamen angeben. : .OLETypeAllowed = acOLEEmbedded ' Den Typ des Objekts angeben. : .SourceDoc = DBPfad & "MÖCKRECHNUNG.XLT" ' Quelldatei im aktuellen Datenbankpfad : .Action = acOLECreateEmbed ' Das verknüpfte Objekt erstellen. : : .Verb = acOLEVerbOpen : .Action = acOLEActivate : End With : : Set NeueMappe = Me!Dokument.Object : With NeueMappe.ActiveSheet : : .Range("Firma").Value = CStr(Forms!Dokumentverwaltung.Firma) : .Range("Strasse").Value = CStr(Forms!Dokumentverwaltung.Strasse) : .Range("Ort").Value = CStr(Forms!Dokumentverwaltung.PLZ) & " " & CStr(Forms!Dokumentverwaltung.Ort) : .Range("Land").Value = CStr(Forms!Dokumentverwaltung.Land) : End With : Set NeueMappe = Nothing : : Set NeueMappe = Me!Dokument.Object : With NeueMappe.ActiveSheet : .Range("Betreff").Value = Betreffzeile : .Range("Firma").Value = CStr(Forms!Dokumentverwaltung.Firma) : .Range("Strasse").Value = CStr(Forms!Dokumentverwaltung.Strasse) : .Range("Ort").Value = CStr(Forms!Dokumentverwaltung.PLZ) & " " & CStr(Forms!Dokumetnverwaltung.Ort) : End With : Set NeueMappe = Nothing : : End Select :End Sub :Private Sub Forms_Current() : If Me.NewRecord Then : Me.OptBrief.Locked = False : Me.OptLieferschein.Locked = False : Me.OptRechnung.Locked = False : : Else : Me.OptBrief.Locked = True : Me.OptLieferschein.Locked = True : Me.OptRechnung.Locked = True : : End If : :End Sub :Private Function HolePfad(Pfadname As String) As String im X As Integer : For X = Len(Pfadname) To 1 Step -1 : If Mid(Pfadname, X, 1) = "\" Then : HolePfad = Mid(Pfadname, 1, X) : Exit Function : End If : Next X : HolePfad = "" :End :End Function

Anfänger,Hilfe bei Fehlermeldung!!!

93

Rudi

07.04.02 10:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen