Access, verder klikken = formulier openen

[Soldaatje]

Hallo,

heb een formulier gemaakt met namen, ik wil nadat ik bijv. een naam heb geselecteerd, op de pagina van deze naam komen, met zijn/ar gegevens.
Welke code moet/kan ik gebruiken voor het knopje om dit te laten gebeuren?

Zie bijlage:

 

[WimenBeer]

Zie even mijn reactie hier.
Is een vergelijkbaar probleem met de juiste oplossing

Succes
Wim

 

[Friend]

Hallo,

heb een formulier gemaakt met namen, ik wil nadat ik bijv. een naam heb geselecteerd, op de pagina van deze naam komen, met zijn/ar gegevens.
Welke code moet/kan ik gebruiken voor het knopje om dit te laten gebeuren?

Zie bijlage:
Bekijk bijlage 60189

Hallo soldaatje,
Ik neem aan dat je een formulier hebt aangemaakt met bv op alfabetische volgorde de namen van de personen. Dat je hierop een opdrachtknop wil plaatsen om vervolgens bij het klikken hierop een ander formulier wilt openen waarin bv alle of meedere gegevens van deze persoon vermeldt staan.

Zorg dat je op je eerste formulier een uniek veld vermeldt naast het naam veld en wat je hier nog meer op plaats welke ook op je tweede meer uitgebreide formulier voorkomt. Dit kan bv je unieke autonummering zijn of in een personeeldbestand personeelsnummer, sofinummer etc

Kies bij de opdrachtknop voor gebeurtenisprocedure :
vermeldt de volgende code erin (uiteraard knopnr aanpassen alsmede de velden veranderen in je eigen veld namen)

Private Sub Knop23_Click()
On Error GoTo Err_Knop23_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Personeelleden"
    
    stLinkCriteria = "[sofinummer]=" & "'" & Me![sofinummer] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop23_Click:
    Exit Sub

Err_Knop23_Click:
    MsgBox Err.Description
    Resume Exit_Knop23_Click
    
End Sub

Voeg op je uitgebreide formulierontwerp nog even een opdrachtknop toe met de functie bij het klikken formulier sluiten en je komt vanzelf weer terug in je alfabetische lijst

Je kan natuurlijk ook gewoon


- opdrachtknop aanmaken in ontwerpformulier
- kiezen voor formulier bewerking
- formulier openen
- het betreffende formulier selecteren uit de keuze lijst
- selecteren : formulier openen en specifieke gegevens zoeken
- je unieke veld koppelen in het (bv) formulier alfabetische volgorde met je (bv) formulier alle gegevens
- volgende
- figuurtje kiezen
- naam voor de knop
- voltooien

en klaar is kees

Succes hoor graag

Friend

Beter vandaag gemaakt dan tot morgen gewacht :thumb:

 

[Soldaatje]

Private Sub cmdGaVerder_Click()
On Error GoTo Err_cmdGaVerder_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "keuzemedewerker"
    
    stLinkCriteria = "[Geboorte datum]=" & "'" & Me![Naam medewerker] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdGaVerder_Click:
    Exit Sub

Err_cmdGaVerder_Click:
    MsgBox Err.Description
    Resume Exit_cmdGaVerder_Click
    
End Sub

wat doe ik fout? Er staat zodra ik op "verder" klik nadat ik een naam heb geselecteerd: 'Kan het veld Naam medewerker niet vinden waarnaar wordt verwezen in de expressie'