Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fehlerindex 3008? Bitte um Hilfe
zurück: Felder mit Kombiliste füllen weiter: Unterformular filtern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Steveb
Gast


Verfasst am:
04. Aug 2008, 08:07
Rufname:


Fehlerindex 3008? Bitte um Hilfe - Fehlerindex 3008? Bitte um Hilfe

Nach oben
       Version: Office XP (2002)

Guten Morgen,

nun hab ich wiedermal ein mir unerklärliches Problem. Und zwar bekomme ich bei folgendem Code eine Fehlermeldung:
Code:
Private Sub weiter_Click()
'On Error GoTo start_Err
'   "Print_Case_Index" get case_name
    Const repname1 = "Ändern Wirksamkeit"
    Dim case_name As String
    Dim rs1 As DAO.Recordset  'DAO. hinzugefuegt by Willi Wipp!
    Dim db1 As DAO.Database
    Dim rs2 As DAO.Recordset
    Dim db2 As DAO.Database
    Dim rs3 As DAO.Recordset
    Dim db3 As DAO.Database
    Dim ber1 As Form
   
    Set db1 = Application.CurrentDb
    Set rs1 = db1.OpenRecordset("Print_Case_Index", dbOpenDynaset, _
                                dbInconsistent)
    If rs1.RecordCount <> 0 Then
        rs1.MoveFirst
        Do
            If rs1.Fields("PC_Entry").Value = Environ("Username") Then
                case_name = rs1.Fields("Index").Value
            End If
            rs1.MoveNext
        Loop Until rs1.EOF = True
    End If
    rs1.Close
    Set rs1 = Nothing
    Set db1 = Nothing
    Set db2 = Application.CurrentDb
    Set rs2 = db2.OpenRecordset("Login_Program", dbOpenDynaset, dbConsistent)
    Set db3 = Application.CurrentDb
    Set rs3 = db3.OpenRecordset("Benutzereingaben", dbOpenDynaset, _
                                dbConsistent)
' "Benutzereingaben" check authority
    If rs3.RecordCount <> 0 And rs2.RecordCount <> 0 Then
        rs3.MoveFirst
        rs2.MoveFirst
        Do
            If rs2.Fields("PC_Entry") = Environ("Username") Then
                Do
                    If rs3.Fields("Username") = rs2.Fields("Username") Then
                        If rs3.Fields("Wirksamkeit").Value = True Then
                            DoCmd.Echo False
                            DoCmd.Close acForm, repname1, acSaveNo
                            DoCmd.OpenForm repname1, acViewDesign
                            Set ber1 = Application.Forms(repname1)
                            ber1.RecordSource = case_name
                            DoCmd.Close acForm, repname1, acSaveYes
                            'vvv=== Fehlermarkierung #########################
                            DoCmd.OpenForm repname1, acNormal, "", "", _
                                           acEdit, acNormal
                            '^^^=== Fehlermarkierung #########################
                            DoCmd.Close acForm, "Ändern zusätzliche Verteiler"
                            Set ber1 = Nothing
                            DoCmd.Echo True
                            rs1.Close
                            Set rs1 = Nothing
                            Set db1 = Nothing
                            rs1.Close
                            Set rs1 = Nothing
                            Set db1 = Nothing
                            Exit Sub
                        End If
                    End If
                    rs3.MoveNext
                Loop Until rs3.EOF = True
            End If
            rs2.MoveNext
        Loop Until rs2.EOF = True
    End If
    rs2.Close
    Set rs2 = Nothing
    Set db2 = Nothing
    rs3.Close
    Set rs3 = Nothing
    Set db3 = Nothing
start_Exit:
    Exit Sub
start_Err:
    MsgBox Error$
    Resume start_Exit
End Sub
Die Formulare und Tabellen sind alle vorhanden. Der Code wird durch einen Button ausgelöst. Aber ich bekomme folgenden Fehler.
Zitat:
Fehlermeldung:' Fehlerindex 3008'
Die Tabelle 'Print_Case_1' ist bereits exklusiv durch einen anderen Benutzer geöffnet oder wurde über die Benutzeroberfläche geöffnet und kann aus dem Programm heraus nicht verändert werden.
Die Tabelle ist auf jeden Fall nicht von einem Benutzer geöffnet!!!!

Aber was kann da noch falsch sein. Bitte um Hilfe????
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: Laufzeitfehler 3008 41 Gast 1427 24. Feb 2013, 15:56
derArb Laufzeitfehler 3008
Keine neuen Beiträge Access Hilfe: Warum Laufzeitfehler 3008 2 GuidoR 1697 10. Feb 2007, 21:09
GuidoR Warum Laufzeitfehler 3008
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen