knop spellingcontrol formulier verlaten na openen en koppelen subforms

[loic]

Hoi,

1.Ik ben bezig met het maken van een knop voor spelling controle, maar ik snap het niet zo. Tot nu toe heb ik dit:

Private Sub Command251_Click()
On Error GoTo Sub_comman251_Clck


acCmdSpelling

Exit_Sub Command251_Click:
    Exit Sub

Err_Sub Command251_Click:
    MsgBox Err.Description
    Resume Exit_bewerken_Click

End Sub

2.Ook heb ik een knop die een ander formulier opent, maar ik wil dat het formulier waar de knop op staat gelijk sluit nadat je op de knop klikt. Ik heb nu dit:

Private Sub Command249_Click()
On Error GoTo Err_Command249_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Hulpverleningsplan bewerken SP"
    
    stLinkCriteria = "[Hulpverleningsplannummer]=" & Me![Hulpverleningsplannummer]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command249_Click:
    Exit Sub

Err_Command249_Click:
    MsgBox Err.Description
    Resume Exit_Command249_Click
    
End Sub

3. Als laatste heb ik een rapport gemaakt met ook 3 subrapporten. Nu lukt het me alleen om het rapport te openen met de gekozen record. Hoe geef ik aan dat de subrapport ook maar een record laat zien (deze haal ik uit een query)
Private Sub Command216_Click()
On Error GoTo Err_Command216_Click

 Dim stDocName As String
    Dim stLinkCriteria As String
    
    stDocName = "Report2"
    stLinkCriteria = "[Hulpverleningsplannummer]=" & Me![Hulpverleningsplannummer]
    
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
    
Exit_Command216_Click:
Exit Sub

Err_Command216_Click:
    MsgBox Err.Description
    Resume Exit_Command216_Click
    
End Sub

Dit zijn opgehoopte vragen. Ik ben al een eind gekomen, maar bovenstaatnde kwam ik echt niet uit. Dus hopelijk kunnen jullie me helpen.

 

[Tardis]

Graag 1 vraag per draadje....
Maakt het makkelijker voor andere gebruikers om te zoeken naar eerder geposte vragen.

Vraag 1

Access is geen Word.
Snap eerlijk gezegd absoluut niet waar je het over hebt laat staan wat je bedoeling is.

Vraag 2

DoCmd.Close acForm "naamformulier" toevoegen na deze regel

DoCmd.OpenForm stDocName, , , stLinkCriteria

Vraag 3

Een subrapport zal bij normaal gebruik meerdere gegevens laten zien die bij je hoofdrapport horen.
Je vraagstelling is vrij onduidelijk, los van het waarom.

Tardis

 

[loic]

Hoi tardis,

Bedankt voor je antwoord. het is alleen niet gelukt. Ik heb nu staan:

Private Sub Command249_Click()
On Error GoTo Err_Command249_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Hulpverleningsplan bewerken SP"
    
    stLinkCriteria = "[Hulpverleningsplannummer]=" & Me![Hulpverleningsplannummer]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm "Hulpverleningsplan bekijken SP"

Exit_Command249_Click:
    Exit Sub

Err_Command249_Click:
    MsgBox Err.Description
    Resume Exit_Command249_Click
    
End Sub

Dan krijg ik de foutmelding:

compile error
syntax error

Wat kan ik doen?

Het klopt dat access geen word is, maar access hoort wel in office en de functionaliteit van Word komt ook terug in access. Handig aangezien er memo mogelijkheden zijn etc. Maar misschien wel een goede van je om de vragen apart te stellen. Zal het doen. Dus begin ik met de bovenstaande vraag.

p.s. het is soms erg ingewikkeld om iets uit te leggen als je met je denkproces er midden in zit. Zal mijn best doen om duidelijker te zijn.

 

[Bartuls]

Nog steeds is je vraagstelling niet volledig.

Op welke regel krijg je de syntax error?
Wat is de exacte foutmelding die je krijgt?

 

[loic]

Op deze regel:
DoCmd.Close acForm "Hulpverleningsplan bekijken SP"

 

[Bartuls]

Moet een kommatje tussen.

DoCmd.Close acForm, "Hulpverleningsplan bekijken SP"

 

[loic]

jeuheu! Nu doet hij het goed. Scheelt een hoop.!