Naar volgende record in subformulier

Status
Niet open voor verdere reacties.
B

bruni

Gebruiker
Lid geworden
6 jan 2011
Berichten
8
voorbeeld.JPGGoedemorgen,

ik heb een navigatie formulier gemaakt met een tabblad en daarop staan meerdere records.
Nu wil ik automatisch emailen en moet het programma automatisch naar de volgende record gaan in het geval de record niet geselecteerd is of dat de opdracht verstuurd is.
Op één of andere manier krijg ik elke keer de melding:

"Fout 2046 tijdens uitvoering, De opdracht of actie RecordGaNaarVolgende is momenteel niet beschikbaar."

Ik heb al overal gezocht, maar kan de oplossing maar niet vinden. Het heeft waarschijnlijk te maken met verwijzingen naar het formulier, maar dat weet ik niet zeker.
Ik heb geprobeerd om de database te uploaden, maar dat is helaas niet gelukt. Mocht je deze nodig hebben voor de oplossing, laat het me dan even weten en dan stuur ik hem door. Ik heb wel een printscreen van het formulier toegevoegd.

Alvast bedankt,

André

Code: 
If Me.Selecteer = False Then

Forms!Navigatieformulier!NavigatieSubformulier.Form!Selecteer.SetFocus
DoCmd.RunCommand acCmdRecordsGoToNext

'DoCmd.GoToRecord , , acNext (deze werkt ook niet)

r = r - 1
End If
 
De db erbij zou wel handig zijn, omdat je dan beter kan zien wat er moet gebeuren en dus niet gebeurt. Persoonlijk zou ik dit soort handelingen dus nooit automatiseren, maar dat is mijn opvatting, waar jij niks aan hebt :). Daarom heb ik ook geen kant-en-klaar antwoord klaarliggen, want het is voor mij ook onbekend terrein. Als je de db comprimeert, en zipt, zou het uploaden normaal gesproken wel moeten lukken.
 
het uploaden gaat niet, krijg elke keer een foutmelding.
Is het mogelijk dat ik naar je opstuur?

gr,
André
 
Tuurlijk; stuur maar een mail dan kijk ik er wel even naar.
 
Laatst bewerkt:
Je procedure is nogal omslachtig in elkaar gezet, met veel herhalende code. Bovendien kun je veel beter met een recordset werken en die bijwerken. Krijg je zoiets:
Code: 
Dim FileName As String
Dim FileName1 As String, myFile As String
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    r = rst.RecordCount
    With rst
        .MoveFirst
        Do While Not .EOF
            If rst!Selecteer = True Then
                FileName = Application.CurrentProject.Path & "\Offerte " & Me.Offertenummer & ".pdf"
                FileName1 = Application.CurrentProject.Path & "\Plantlijst " & Me.Offertenummer & ".pdf"
                Select Case Me.Offerte_type.Value
                    Case 1
                        DoCmd.OutputTo acReport, "Offerte", acFormatPDF, FileName, False
                        If Me.Inclusief_plantlijst = True Then DoCmd.OutputTo acReport, "Plantlijst", acFormatPDF, FileName1, False
                    Case 2
                        DoCmd.OutputTo acReport, "Offerte_op_groep_niveau", acFormatPDF, FileName, False
                        If Me.Inclusief_plantlijst = True Then DoCmd.OutputTo acReport, "Plantlijst", acFormatPDF, FileName1, False
                    Case 3
                        DoCmd.OutputTo acReport, "Offerte_zonder_details", acFormatPDF, FileName, False
                        If Me.Inclusief_plantlijst = True Then DoCmd.OutputTo acReport, "Plantlijst", acFormatPDF, FileName1, False
                End Select
                With CreateObject("Outlook.Application").CreateItem(0)
                    .Recipients.Add Me.email_adres
                    .Attachments.Add FileName
                    If Not Dir(FileName1) = "" Then .Attachments.Add FileName1
                    .body = Me.Aanhef & " " & Me.Naam & "," & Chr(10) & Chr(10)
                    .Subject = "Offerte " & Me.Offertenummer
                    .Send
                End With
                Me.Print_datum = Now()
                On Error Resume Next
                Kill (FileName)
                Kill (FileName1)
                .Edit
                !Selecteer = False
                .Update
                r = r - 1
            End If
            .MoveNext
        Loop
    End With
    Me.Requery
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan