Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

herhalen vorige invoer in access formulier

johan kruize
5 antwoorden
  • Ik heb een zogenaamd doorlopend formulier gemaakt zodat ik in de footer totalen kan laten meelopen. Het is een invoerformulier van deklaratiegegevens waarbij salarisnummer, maand en jaar een aantal keren achter elkaar gelijk zijn. Weet iemand hoe ik eenvoudig de ingevoerde waarde van het daarvoor ingevoerde record kan herhalen ??
  • vorige record selecteren in formulier.
    menu:
    bewerken => copieren
    dan
    bewerken => toevoegen via plakken


    Anders zal je iets met VBA moeten maken denk ik.

    Wim
  • [b:3dc1a1301e][size=18:3dc1a1301e]dit boven aan bij je code[/size:3dc1a1301e][/b:3dc1a1301e]

    Public pubcheck As Boolean
    Public pubprojectnr As String
    Public pubmatomsch As String
    Public pubdiameter As String
    Public pubcharge As String

    [b:3dc1a1301e][size=18:3dc1a1301e]zoiets in het formulier bij Form_AfterUpdate()[/size:3dc1a1301e][/b:3dc1a1301e]

    Dim antwoord2 As String
    antwoord2 = MsgBox("Gegevens meenemen naar volgens record?", vbYesNo)
    If antwoord2 = vbYes Then
    If Me.[materiaal omschrijving 2] <> "" Then
    pubmatomsch = Me.[materiaal omschrijving 2]
    End If
    If Me.[diameter 2] <> "" Then
    pubdiameter = Me.[diameter 2]
    End If
    If Me.chargenummer_2 <> "" Then
    pubcharge = Me.chargenummer_2
    End If
    If Me.indexnr2 <> "" Then
    Pubindexnr = Me.indexnr2
    End If

    [b:3dc1a1301e][size=18:3dc1a1301e]en dit bij Form_BeforeInsert[/size:3dc1a1301e][/b:3dc1a1301e]

    If pubcheck = True Then
    If pubmatomsch <> "" Then
    Me.[materiaal omschrijving 1] = pubmatomsch
    End If
    If pubdiameter <> "" Then
    Me.[diameter 1] = pubdiameter
    End If
    If pubcharge <> "" Then
    Me.chargenummer_1 = pubcharge
    End If[size=18:3dc1a1301e][/size:3dc1a1301e]

    Dit alles als voorbeeld … wel de loops sluiten …
  • Bedankt voor je reactie polinski, hij werkt helaas niet. Ik denk dat je methode wel werkt als het formulier weer opnieuw opgeboeuwd wordt, het betreft hier echter een zogenaamd doorlopend formulier. Dus op het formulier staan een aantal records als regels onder elkaar (waarbij de onderste een sterretje heeft) als je inde onderste begint in te voeren krijgt deze een regelnummer en wordt direct een nieuwe regel toegevoegd (met dus een sterretje ervoor)

    Als je nog meer ideeen hebt hoor ik ze graag

    wim ook bedankt maar ik zoek toch iets meer geautomatiseerd
  • nou bij werkt het wel… wat gaat er dan mis.

    Evt. mag je me de tabel en formulier e-mailen ….

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.