Avatar billede kjar75 Nybegynder
07. januar 2003 - 10:15 Der er 8 kommentarer og
1 løsning

"Filter" i formular

Jeg har lavet en kundeformular (debitor.form), som nu er så stor at jeg er blevet nødsaget til at lave en ekstra formular (debitor2.form) (+ekstra tabel)

Debitor.form viser 1 kunde af gangen pr. side hvilket er ønsket !! Har lavet en kommandoknap i denne form, som åbner debitor2.form med følgende kode

Private Sub DEBITOR2_Click()
On Error GoTo Err_DEBITOR2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "DEBITOR_SORTERET2"
   
    stLinkCriteria = "[Konto]=" & Me![Konto]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_DEBITOR2_Click:
    Exit Sub

Err_DEBITOR2_Click:
    MsgBox Err.Description
    Resume Exit_DEBITOR2_Click
   
End Sub

Dvs. debitor2.form åbner den kunde = side man har valgt fra debitor.form med filter dvs. kun den valgte kunde !!

Når debitor2.form nu er åben er det således kun data for den valgte kunde som vises, MEN... Hvis jeg trykke "Page down" kommer der en ny tom side (ny post) hvilket IKKE er meningen. Hvordan undgår jeg, at man ikke kan vælge Ny post i debitor2.form - således man KUN kan se data fra den valgte kunde ???

Mvh kjar75
Avatar billede renehinsch Praktikant
07. januar 2003 - 10:21 #1
På form egenskaber sættes 'tillad tilføjelser' til nej
07. januar 2003 - 10:21 #2
På Debitor2 skal du sætte egenskaben "Tillad tilføjelser" til NEJ
07. januar 2003 - 10:21 #3
hmm :o)

Du bør evt også sætte "Tillad Sletning" til Nej
Avatar billede kjar75 Nybegynder
07. januar 2003 - 10:47 #4
thomasjepsen> Lige for at være helt sikker... Når jeg sætter egenskaben "Tillad Tilføjelser" til NEJ - så kan man da stadig indsætte data i selve debitor2.form - men ej ny side (ny post)??

Er det sådan det skal forståes ??
07. januar 2003 - 10:50 #5
"Tillad tilføjelser" betyder bare, at du ikke kan oprette en helt ny post i denne formular.
Du kan godt oprette posten i Debitor1 og derefter åbne Debitor2 og tilføje 'videre' (for da er posten oprettet)
07. januar 2003 - 10:52 #6
Hvis du opretter posterne vha Debitor1, skal du gemme posten inden du åbner Debitor2. Dette gøres ved at indsætte én linie kode på din knap:

Private Sub DEBITOR2_Click()
On Error GoTo Err_DEBITOR2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "DEBITOR_SORTERET2"

    docmd.runcommand accmdsaverecord
   
    stLinkCriteria = "[Konto]=" & Me![Konto]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_DEBITOR2_Click:
    Exit Sub

Err_DEBITOR2_Click:
    MsgBox Err.Description
    Resume Exit_DEBITOR2_Click
   
End Sub
Avatar billede kjar75 Nybegynder
07. januar 2003 - 10:52 #7
thomas> Tak for svaret - var lidt for hurtig med ponits

Du får næste gang :-))
07. januar 2003 - 10:54 #8
Det er helt fint....Rene var jo hurtigst med svaret :o)

Rene-> Jeg så slet ikke, at det var dig! Godt nytår :o)
Avatar billede renehinsch Praktikant
07. januar 2003 - 11:00 #9
Thomas-> Tak og i lige måde :)
kjar75 -> tak for points - trods alt *GG*
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester