Avatar billede puppetmaster Nybegynder
27. marts 2002 - 11:17 Der er 5 kommentarer og
1 løsning

sammenhængende formularer...

Dette ? er henvendt til de af jer der har fulgt en del med i mine spørgsmål...

På hovedformularen (Patienter) kan man vælge en patient, klikke på en knap (Screening) og åbne en filtreret formular (Screening) for den valgte patient. Problemet er, at for de patienter der ikke har nogen screening tilknyttet endnu, "følger" cpr nummeret fra hovedformularen IKKE med! Hvordan kan jeg nemmest komme omkring dette?

Private Sub FilterChildForm()

    If Me.NewRecord Then
        Forms![Screening].DataEntry = True
    Else
        Forms![Screening].Filter = "[CPR] = " & """" & Me![PNR] & """"
        Forms![Screening].FilterOn = True
    End If

End Sub
27. marts 2002 - 11:30 #1
Hmm, prøv dette:

    If Me.NewRecord Then
        Forms![Screening].CPR.Defaultvalue = Me!PRN
        Forms![Screening].DataEntry = True
    Else
        Forms![Screening].Filter = "[CPR] = " & """" & Me![PNR] & """"
        Forms![Screening].FilterOn = True
    End If
27. marts 2002 - 11:30 #2
Kommer lige i tanke om, at defaultvalue skal have en lidt speciel syntaks:

    If Me.NewRecord Then
        Forms![Screening].CPR.Defaultvalue = "'" & Me!PRN & "'"
        Forms![Screening].DataEntry = True
    Else
        Forms![Screening].Filter = "[CPR] = " & """" & Me![PNR] & """"
        Forms![Screening].FilterOn = True
    End If
Avatar billede puppetmaster Nybegynder
27. marts 2002 - 11:38 #3
Jeg ved sgu ikke rigtigt.....det er ligesom om den skriver det kort (MEGET KORT! ca. 1/10 sek.) i feltet på Screening-formularen, men væk igen er det
Avatar billede puppetmaster Nybegynder
27. marts 2002 - 11:42 #4
En lille modifikation af ovenstående:

    If Me.NewRecord Then
        Forms![Screening].CPR.DefaultValue = """" & Me![PNR] & """"
        Forms![Screening].DataEntry = True
    Else
        Forms![Screening].CPR.DefaultValue = """" & Me![PNR] & """"
        Forms![Screening].Filter = "[CPR] = " & """" & Me![PNR] & """"
        Forms![Screening].FilterOn = True
    End If

Og det virker!
Tak!
27. marts 2002 - 11:44 #5
Fint, jeg var ellers i gang med en større alternativ løsning :o)
Avatar billede puppetmaster Nybegynder
27. marts 2002 - 11:59 #6
:)
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