Inhoud velden kopiëren

[RSpan]

Hallo

Ik heb de volgende vraag.

Een tabel die d.m.v. een formulier wordt ingevuld bevat o.a. de volgende velden:

Anaamclient, Adres, Pcode en Plaats
En
Geadresseerde, Postadres, PPcode en PPlaats

Nu komt het vaak voor dat de adresgegevens van de geadresseerde hetzelfde zijn als die van de cliënt.
Dat houdt in dat die gegevens dus twee maal moeten worden ingevuld.

Mijn vraag is nu of het mogelijk is d.m.v. een knop op het formulier om de gegevens die ingevoerd zijn in de velden Anaamclient, Adres, Pcode en Plaats te kopiëren naar de velden Geadresseerde, Postadres, PPcode en PPlaats

Dat bespaart weer het nodige aan type werk.:thumb:

Ik hoop dat iemand een oplossing weet

Mvg
René

 

[JeroenMioch]

Als je gegevens binnen hetzelfde formulier wilt kopieren dan is de code zoiets :

Me.[Geadresseerde].Value = Me.[aNaamClient].Value
Me.[Postadres].Value = Me.[adres].Value
Me.[PPcode].Value = Me.[Pcode].Value
Me.[PPlaats].Value = Me.[plaats].Value

 

[tecsman]

Ik heb geen antwoord op de vraag over de kopieer-knop,
maar wel een vraag over de situatie die je beschrijft.

Wat is het verschil tussen een client en een ge-adresseerde?

Ik heb wel een eigen idee, wat het zou kunnen zijn:
kind en ouder bijvoorbeeld of
patient en toezichthouder.

Dit zijn situaties waarin het niet handig is om voor beiden de echte adres-gegevens apart bij te houden.
In dit soort gevallen zou ik een keuze maken uit twee andere mogelijke oplossingen:

1.
een aparte adressen tabel met elk adres een adres-ID
en dan vanuit de personen linken naar een adres-ID
Dat is minder werk dan van elk adres vier velden kopieren

2.
geen aparte adressen voor "geadresseerden"
maar het client-adres voorzien van een 'aanhef-' regel
Bijvoorbeeld
Aan de ouders van ...
of
Aan de gemachtigde van ...

 

[RSpan]

Ik heb geen antwoord op de vraag over de kopieer-knop,
maar wel een vraag over de situatie die je beschrijft.

Wat is het verschil tussen een client en een ge-adresseerde?

Ik heb wel een eigen idee, wat het zou kunnen zijn:
kind en ouder bijvoorbeeld of
patient en toezichthouder.

Dit zijn situaties waarin het niet handig is om voor beiden de echte adres-gegevens apart bij te houden.
In dit soort gevallen zou ik een keuze maken uit twee andere mogelijke oplossingen:

1.
een aparte adressen tabel met elk adres een adres-ID
en dan vanuit de personen linken naar een adres-ID
Dat is minder werk dan van elk adres vier velden kopieren

2.
geen aparte adressen voor "geadresseerden"
maar het client-adres voorzien van een 'aanhef-' regel
Bijvoorbeeld
Aan de ouders van ...
of
Aan de gemachtigde van ...

bedoeling is: eerste adres is het adres van de cliënt en het tweede adres is het postadres.
Soms is dit verschillend en vaak zijn het dezelfde adressen,
vandaar twee adresvelden in één tabel.
Alle post wordt verstuurd naar de adresgegevens in de velden van postadres,
vandaar.
groet
René

 

[RSpan]

Als je gegevens binnen hetzelfde formulier wilt kopieren dan is de code zoiets :

Me.[Geadresseerde].Value = Me.[aNaamClient].Value
Me.[Postadres].Value = Me.[adres].Value
Me.[PPcode].Value = Me.[Pcode].Value
Me.[PPlaats].Value = Me.[plaats].Value

Hallo Jeroen

Een gedeelte werkt maar één regel niet, hierbij krijg ik een foutmelding

Private Sub Knop152_Click()
    On Error GoTo Err_Knop152_Click
    

 Me.[Geadresserde].Value = Me.[AnaamClient].Value
[COLOR="darkred"] Me.[PostAdres].Value = Me.[Adres].Value
[/COLOR] Me.[PPostcode].Value = Me.[Postcode].Value
 Me.[PPlaatsen].Value = Me.[PlaatsenID].Value
 

Exit_Knop152_Click:
Exit Sub

Err_Knop152_Click:
MsgBox "Geannuleerd of geen gegevens om te kopieren", , "PlanZ"
Resume Exit_Knop152_Click
End Sub

de foutmelding zit bij de tweede regel (rood gekleurd), Value is dan blauw gekleurd.
melding:
Compileerfout:
Kan de methode of het gegevenslid niet vinden

De andere velden worden goed gekopieerd.
De benaming nagelopen, deze kloppen

Heb jij enig idee?
Mvg
René

 

[RSpan]

oplossing

Hallo Jeroen

Een gedeelte werkt maar één regel niet, hierbij krijg ik een foutmelding

Private Sub Knop152_Click()
    On Error GoTo Err_Knop152_Click
    

 Me.[Geadresserde].Value = Me.[AnaamClient].Value
[COLOR="darkred"] Me.[PostAdres].Value = Me.[Adres].Value
[/COLOR] Me.[PPostcode].Value = Me.[Postcode].Value
 Me.[PPlaatsen].Value = Me.[PlaatsenID].Value
 

Exit_Knop152_Click:
Exit Sub

Err_Knop152_Click:
MsgBox "Geannuleerd of geen gegevens om te kopieren", , "PlanZ"
Resume Exit_Knop152_Click
End Sub

de foutmelding zit bij de tweede regel (rood gekleurd), Value is dan blauw gekleurd.
melding:
Compileerfout:
Kan de methode of het gegevenslid niet vinden

De andere velden worden goed gekopieerd.
De benaming nagelopen, deze kloppen

Heb jij enig idee?
Mvg
René

Ik ben er uit.:d
Toch een verkerde benaming van de velden
Het werkt nu na behoren.
Dank voor het meedenken:thumb:

mvg
René