Har brug for flere ens tekst bokse i min formular, der ved dobbelt klik heri, kan åbne andre formularer
Hej alle ja det kræver nok lidt forklaring.Jeg har brug for en formular der indeholder flere tekstbokse med samme format samt inputmaske.
I tekstboksen skal tastes et unikt formular nummer, der refererer til den formular der er brugt til at beskrive den hændelse der er arbejdet med i den specifikke sag.
Funktionen virker i en helt tredie formular. Her kan man dobbelt klikke i tekst feltet, efter man har udfyldt det unikke formular nummer, hvorefter databasen automatisk åbner den formular, så man hurtigt kan sætte sig ind i den sag der her er beskrevet.
Giver det mening??
Editor koden for tekst boksen ser således ud:
Private Sub Ref_til_GS_rapport_DblClick(Cancel As Integer)
If Len(Me![Ref til GS rapport] & "") = 0 Then
'Put MsgBox here if you want.
DoCmd.Beep
Else
DoCmd.OpenForm "GS Rapport", , , _
"[Reference nummer] = """ & Me![Ref til GS rapport] & """", _
, , "FindRef"
End If
End Sub
Jeg har brug for flere af disse tekstbokse der kan åbne hver deres unikke formular.
Den første tekstboks hedder:
Ref til GS rapport
Den næste har jeg forsøgt at kalde:
Ref til GS rapport 1
Og indsætte denne editor koce:
Private Sub Ref_til_GS_rapport1_DblClick(Cancel As Integer)
If Len(Me![Ref til GS rapport1] & "") = 0 Then
'Put MsgBox here if you want.
DoCmd.Beep
Else
DoCmd.OpenForm "GS Rapport", , , _
"[Reference nummer] = """ & Me![Ref til GS rapport] & """", _
, , "FindRef"
End If
Resultater er at uanset hvor mange tekstbokse jeg laver, så åbner den hele tiden den samme formular (det samme GS nummer jeg indtastede i den første tekstboks), selvom jeg skriver et andet (GS)nummer i den næste tekstboks.
GS nummeret er et nummer vi bruger her i huset til at navngive de rapporter vi skriver om de hændelse vi arbejder med. GS nummeret laver formularen automatisk og er unikt for hver intern rapport/formular vi opretter (fik glimrende hjælp til dette herinde, for et par måneder siden!!).
Hvis det er ren volapyk skyldes det sikkert min begynder status, så i må endelig spørge.
På forhånd tak for hjælpen til jer allesammen!!
Mvh
Joachim