Vraag & Antwoord

Anders (software)

herhalen vorige invoer in access formulier

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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