record automatisch vullen

[jwaque]

ik heb een formulier met de velden:
Id (autonummer)
naam
deadline (datum)
actie
uitvoer
datumklaar

Nu wil ik een nieuw record aanmaken (in een formulier) wat automatisch de naam en deadline overneemt van het record waar ik was.

nu heb ik dit gevonden http://www.helpmij.nl/forum/showthread.php/667937-Auto-aanvullen-records

als ik dit toepas op het veld naam gaat het goed. als ik het ook probeer op het datumveld dan krijg ik in het datum veld #Name? en een error13 type mismatch

Private Sub datum_AfterUpdate()
Dim cQuote As Date
     cQuote = """"
        Forms!Formacties!datum.DefaultValue = cQuote & Me.datum.Value & cQuote

het gaat ook niet helemaal goed als ik een tweede textveld wil quoten.
graag een beetje hulp. dank.
natuurlijk wil ik het nieuwe record ook in mijn tabel hebben.

 

[OctaFish]

Je kunt in een datumveld geen teksttekens gebruiken, wat je wel doet met cQuote="""". Een datum staat tussen # tekens.

 

[jwaque]

lukt ook niet. vraag me ook af of dit is wat ik wil omdat het record nu wordt gevuld met dat wat ik heb gewijzigd. soms wijzig ik niet alle velden terwijl ik wel zo'n veld gekopieerd wil hebben. is er een eenvoudige manier om een deel van een record te kopieeren in de zelfde tabel.

 

[JeroenMioch]

Toch lijkt me het niet al te moeilijk.

Private Sub knpKopieren_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.GoToRecord , , acNewRec
    With Me.RecordsetClone
    .MoveLast
    Me.Naam = !Naam
    Me.DeadLine = !DeadLine
    End With
    Me.Repaint
End Sub

Net ff getest en het werkt bij bij perfect. Als ik op de knop kopieren druk krijg ik een nieuw record waarbij naam en deadline word overgenomen..

 

[JeroenMioch]

Ik wilde het bestandje meesturen, maar ik heb werkelijk waar geen idee hoe ik iets zip

 

[jwaque]

getest en een beetje aangepast. probleem was dat hij het laatste record kopieerde en niet daar waar ik stond. dit is het eind resultaat.

hartelijk dank.

Private Sub Kopieer_Click()
 
'maak een clone van recordset
With Me.RecordsetClone
'zoek huidig record in recordcloneset
    .FindFirst "ID = " & Forms!FrmActies!ID
'maak een nieuw record
    DoCmd.GoToRecord , , acNewRec
'vul de naam in nieuw record met naam uit clone
    Me.naam = !naam
'vul de datum in nieuw record met datum uit clone+1jaar
    Me.datum = DateAdd("yyyy", 1, FormatDateTime(!datum, vbShortDate))
    Me.actie = !actie
    
End With
'niet nodig? Me.Repaint
'refresh het formulier en tabel
    Me.Refresh
    

End Sub