Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
PositionsNummern nach Löschen aktualisieren
zurück: Problem mit Prozentrechnung weiter: Mit Suchfelder MEHRERE Textfelder durchsuchen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Stefffano
Dazugelernt


Verfasst am:
26. Sep 2008, 18:02
Rufname:
Wohnort: Chemnitz

PositionsNummern nach Löschen aktualisieren - PositionsNummern nach Löschen aktualisieren

Nach oben
       Version: Office XP (2002)

Hallo,

ich erstelle mit dem HFO eine neue Rechnung, im UFO kann ich Rechnungspositionen eintragen, dabei wird die Rechnungsposition automatisch hochgezählt:
Code:
Private Sub intRechnungsposition_Enter()
    Dim Db As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim DS As Integer
   
    Set Db = CurrentProject.AccessConnection
    Set rs = New ADODB.Recordset
    rs.Open "Abf_letzte_Rech_POS", Db, , adLockOptimistic
    rs.Find "intRechnungsID = " & Nz(Me!intRechnungsID, 0)
        If rs.EOF Then
'            MsgBox "BOF = " & rs.BOF & " EOF = " & rs.EOF
            rs.MovePrevious
            RePos = rs.Fields!Anzahl
'            MsgBox RePos1
            RePos = RePos + 1
            Me!intRechnungsPosition = RePos
        End If
End Sub
Funktioniert auch ganz gut.
Leider werden die PositionsNummern nach dem Löschen einer Rechnungsposition nicht mit aktualisiert, ich habs so probiert über einen Button im HFO:
Code:
Private Sub btnAktRePos_Click()
    Dim Db As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim DS As Variant
    Dim RePos As Integer
    Dim ObjName As Variant
    Dim Obj As Variant
   
    Set Db = CurrentProject.AccessConnection
    Set rs = New ADODB.Recordset
    rs.Open "Abf_letzte_Rech_POS", Db, , adLockOptimistic
    rs.Find "intRechnungsID = " & Nz(Me.intRechnungsID, 0)
    Obj = Forms!Frm_Rechnung_erstellen!Frm_Rechnungsdetail_Ufo
    ObjName = Forms!Frm_Rechnung_erstellen!Frm_Rechnungsdetail_Ufo.Name
    Obj!intRechnungsPosition.SetFocus
'   Fehlerzeilen:
'#####################################
'    DoCmd.GoToRecord , , acFirst            ' Springt im HFO auf den ersten DS
'    DoCmd.GoToRecord acDataForm, Obj, acFirst
                                        ' Fehler: Objekt hat falschen Dtaentyp
    DoCmd.GoToRecord acDataForm, ObjName, acFirst
                           ' Fehler: "Frm_Rechnungsdetail_Ufo" ist nicht offen
    rs.MoveFirst
    RePos = 1
    For DS = 0 To rs.EOF
        Obj!intRechnungsPosition = RePos
        rs.MoveNext
        RePos = RePos + 1         ' rs.Fields!intRechnungsPosition = RePos + 1
        Obj!intRechnungsPosition.SetFocus
        DoCmd.GoToRecord acDataForm, Obj, acNext
    Next DS
End Sub
Kann mir einer helfen?
Danke schonmal
Stefan
JörgG
Access-Team


Verfasst am:
27. Sep 2008, 22:02
Rufname:
Wohnort: b. Dresden

AW: PositionsNummern nach Löschen aktualisieren - AW: PositionsNummern nach Löschen aktualisieren

Nach oben
       Version: Office XP (2002)

Hallo,

probiere mal den:
Code:
Private Sub btnAktRePos_Click()
    Dim i As Integer
   
   'Application.Echo False 'Flimmern unterdrücken
    With Me!Frm_Rechnungsdetail_Ufo.Form
        On Error Resume Next
        With .RecordsetClone
            .MoveFirst
            Do While Not .EOF
                i = i + 1
                .Edit
                !intRechnungsPosition = i
                .Update
                .MoveNext
            Loop
        End With
        .Requery
        !intRechnungsPosition.DefaultValue = i + 1
    End With
    Application.Echo True
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Stefffano
Dazugelernt


Verfasst am:
29. Sep 2008, 11:44
Rufname:
Wohnort: Chemnitz


AW: PositionsNummern nach Löschen aktualisieren - AW: PositionsNummern nach Löschen aktualisieren

Nach oben
       Version: Office XP (2002)

Hallo JörgG,

Zitat:
vielen Dank für Deine Antwort Razz
Bin jetzt noch nicht dazu gekommen, den Code einzubauen, werd mich dann nochmal melden.


danke Jörg, es funktioniert super. Habe den Code jetzt bei dem Ereignis "nach Löschen" im Unterformular eingebettet. Bin begeistert. Razz

Warum muß ich mich aber eigentlich nochmal auf das Form-Objekt beziehen? Diese Konstruktion kenn ich überhaupt nicht und hab sie in den letzten 3 Jahren auch noch nie gebraucht. Question

Schöne Grüße,

Stefan
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 Tabellen & Abfragen: Filtern und aktualisieren in ein Formular 4 gokima 989 18. Apr 2012, 04:49
Joe66-1 Filtern und aktualisieren in ein Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert aktualisieren nach löschen über SQL 14 Gast 4058 30. Apr 2007, 06:41
jens05 Autowert aktualisieren nach löschen über SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen aktualisieren 4 fridgenep 804 24. Sep 2005, 19:35
fridgenep Tabellen aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate löschen per Abfrage 2 DanielW 6779 21. Sep 2005, 15:51
DanielW Duplikate löschen per Abfrage
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular-Abfrage Aktualisieren!? 2 quick30 2096 21. Aug 2005, 14:51
Willi Wipp Formular-Abfrage Aktualisieren!?
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen erweitern und aktualisieren, bzw. zusammenführen 1 Sharon060370 801 16. Aug 2005, 10:34
lothi Tabellen erweitern und aktualisieren, bzw. zusammenführen
Keine neuen Beiträge Access Tabellen & Abfragen: (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen 6 PrinceArthas 794 08. Aug 2005, 00:13
PrinceArthas (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate löschen? 2 famous72 1022 03. Aug 2005, 10:07
amq Duplikate löschen?
Keine neuen Beiträge Access Tabellen & Abfragen: AXP: 2Tabellen, Aktualisieren, Berechnung 3 defan 693 03. Mai 2005, 10:19
Willi Wipp AXP: 2Tabellen, Aktualisieren, Berechnung
Keine neuen Beiträge Access Tabellen & Abfragen: Durch Abfrage die 2 letzten Zeichen löschen? 2 Maik_er 1325 17. Jan 2005, 14:48
Maik_er Durch Abfrage die 2 letzten Zeichen löschen?
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1614 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenbeziehungen löschen ? 2 Gast 612 15. Okt 2004, 11:42
Gast Tabellenbeziehungen löschen ?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks