records kopieren op form

• 

  chris

  20-02-2005 14:54

  Hoi allemaal

  ik heb het volgende probleem

  in een formulier {gebaseerd op een tabel} heb ik een record geselecteerd

  nu wil ik een kopie van die record hebben. Maar niet alle velden mogen worden gekopieerd i.v.m dubbele waarden van art.nummers

  ik ben bezig met

  DoCmd.DoMenuItem .acform.aceditmenu,8,,acmenuver70

  DoCmd.DoMenuItem .acform.aceditmenu,2,,acmenuver70

  DoCmd.DoMenuItem .acform.aceditmenu,5,,acmenuver70

  maar dan wordt er een kopie van alle velden gemaakten dat kan niet i.v.m dubbele waarden van art.nummers

  ook ben ik bezig geweest met de volgende code:

  Private Sub kopie_Click()

  DoCmd.GoToRecord , , acNewRec

  Artikelnummer.SetFocus

  With Me.RecordsetClone

  .MoveLast

  Me.Omschrijving = !Omschrijving

  Me.Verkoopprijs = !Verkoopprijs

  Me.Korte_omschrijving = !Korteomschrijving

  Me.Keuzelijst_met_invoervak34 = !GROEP

  End With

  End Sub

  maar dan wordt alleen de laatste record gekopieerd en dat is niet de bedoeling

  het record op het formulier moet worden gekopieerd

  ikben al bezig geweest met moveprevious maar dat werkt niet

  wie weet de oplossing??

  chris
• 

  Eric B

  20-02-2005 15:27

  In dit voorbeeld kopieer ik een tweetal velden te weten klantnr en klantnaam. Op deze manier kan je een gedeelte van je record kopieren. Zorg er wel voor dat je eerst het record bewaard…zodat je access de gelegenheid geeft fouten af te handelen. Daarna pas de zaak gaan kopieren

  Option Compare Database

  Option Explicit

  Dim klnum as Long

  Dim klnm as string

  Private Sub kopie_Click()

  on error goto Kopie_Err

  If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 'Eerst bewaren

  StartKopie 'Start kopieren van het record

  Kopie_Err_Exit :

  Exit sub

  Kopie_Err :

  resume Kopie_Err_Exit

  End Sub

  Private Sub StartKopie()

  if not isnull(me.klantnr) then

  klnum = me.klantnr

  else

  klnum=0

  end if

  if not isnull(me.klantnaam) then

  klnm = me.klantnaam

  else

  klnm=“”

  end if

  'etc………………..

  End Sub

  Private Sub Plakken_Click()

  me.klantnr = klnum

  me.klantnaam = klnm

  'etc………………..

  end sub
• 

  chris

  01-03-2005 17:39

  we gaan er mee aan de slag

  bedankt