søge funktion

hej train, det kan sagtens laves, men det skal køre fra en formular enten som fortløbende eller enkeltkolonne, kunne du give lidt flere oplysninger, så vil jeg se om jeg kan hjælpe dig

det lydder super tak.

Jeg vil gerne have en ny formular hvor jeg har en textboks hvor CPR kan angives - resultatet af hvad der findes i tabellen (går ud fra det er et SELECT statement der skal bruges) skal dette listes i et datagrid eller lignende. Der er kun 1 CPR nr i tabellen , da det er PKey. så der skal kun være en kolonne der bliver vist.

Håber jeg fik formuleret dette forståligt

Prøve med denne:

Opret en form navngiv formen frmfindcpr

Indsæt en ubunden tekstbox på formen og navngiv tekstboksen txtfindcpr

Indsæt en kommandoknap på formen navngiv den cmd_findcpr

Skriv nedenstående kode ved OnClick event på knappen:

Dim sCPR as String
sCPR = Me!txtfindcpr
DoCmd.OpenForm "NavnPåDinFormHvorDataEr",,,"NavnPåDitCprNrFeltITabellen = '" & sCPR & "'"

Koden vil så åbne din registereingsform og vise den post der matcher det CPR nr du har indtastet i txtfindcpr, det er vist også det man kalder et et serverfilter

Hvis du har en fortløbende form kan koden også bruges på samme måde, du skal blot placere txtfindcpr og knappen øverst i formen, eller for den sags skyld i en enkeltkolonne form

Vis cpr er angive som datatypen tal og ikke tekst skal koden de sådan ud:

Dim sCPR as String
sCPR = Me!txtfindcpr
DoCmd.OpenForm "NavnPåDinFormHvorDataEr",,,"NavnPåDitCprNrFeltITabellen = " & sCPR

jeg er ved at prøve det af tak - lige et spørgsmål:

NavnPåDinFormHvorDataEr

er det en subform jeg skal oprette på min Form ?

Nej, det er blot navnet på den form der indeholder dine data fra tabellen, hvis den form der skal vise resultatet af din søgning ligger som en subform skal det skrues lidt anderledes sammen

Man behøver ikke subforms, man mange bruger det, det kan drille hvis man ikke har arbejdet med sub,og mainforms før

super - det ser ud til at virke - det eneste problem lige nu er så den også åbner "Find And Replace" vindue samtidig med den åbner resultatet af min søgning - kan dette ungås ?

Hmm det lyder mystisk, find an replace er jo den indbygget søgefunktion (kikkert), prøv at poste den kode du har skrevet

Private Sub cmd_findcpr_Click()
Dim sCPR As String
sCPR = Me!txtfindcpr
DoCmd.OpenForm "person2", , , "person.CPR = '" & sCPR & "'"

'alt herunder er autogenereret
On Error GoTo Err_cmd_findcpr_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_cmd_findcpr_Click:
    Exit Sub

Err_cmd_findcpr_Click:
    MsgBox Err.Description
    Resume Exit_cmd_findcpr_Click
   
End Sub

Fjern alt autogeneret kode så tror jeg det virker :o)

Denne kode, DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70, aktivere netop kikkerten, men det er jo ikke nødvendigt her

det virkede - mangler lige en "Catch exception" eller errorhandling, i tilfælde af at der trykkes på knappen og textboxen er tom, var det noget du kunne klare  ?

Hvis dette er feltnavnet i tabellen "person.CPR", skal du være varsom med  . i feltnavne

det er det ikke - det er bare tabellen person som har feltnavn CPR  ( gammel vane fra SQL)

Ja da prøv at skrive denne kode øverst:

Dim sCPR As String
If IsNull ([NavnPåDiFeltITabellen]) Then
Msgbox "Der skal angivet et CPR-nr"
Else
sCPR = Me!txtfindcpr
DoCmd.OpenForm "person2", , , "person.CPR = '" & sCPR & "'"

Og her er den så :o)

Dim sCPR As String
If IsNull ([NavnPåDiFeltITabellen]) Then
Msgbox "Der skal angivet et CPR-nr"
Else
sCPR = Me!txtfindcpr
DoCmd.OpenForm "person2", , , "person.CPR = '" & sCPR & "'"
End IF

er her stadig ... den giver mig lidt problemer .. 2 sek - ser lige om jeg gør noget forkert

sorry der var en fejl i min sidste kode, denne er testet og virker:

Dim sCPR As String
If IsNull ([txtfindcpr]) Then
Msgbox "Der skal angivet et CPR-nr"
Else
sCPR = Me!txtfindcpr
DoCmd.OpenForm "person2", , , "person.CPR = '" & sCPR & "'"
End IF

PERfekt - og intet at undskylde for, da jeg er meget taknemmelig for hjælpen :)  - jeg acceptere dit svar.

Hvis du ahr overskud har jeg et enkelt spørgsmål mere - at der laves validering på at det der tastes i tekstboxen ser således ud "060276-2037"

Jeg har ikke lige et forslag til at kode det, men du kunne prøve at lave en indputmaske i txtfindcpr, det faktisk meget anvendeligt at styre indtastning i feltter med denne metode

Tak for point, jeg prøver lige at strikke en inputmaske sammen

Ha, den var nem, i design på formen skal du højreklikke på txtfindcpr, og vælge egenskaber, klik på fanebaldet data, her er det muligt at angive en indputmaske specifikt for CPR-numre, prøv at tjekke det :o)

super tak skal du have :)

Et Tip, for at undgå autogeneret kode når du opretter knapper på dine forms, skal du blot deaktivere den lille tryllestav i din værktøjskasse

Du kan også benytte indputmasken diret på feltet i tabbellen, på denne måde undgår man fejlindatstninger i cprnummer feltet

tak for informationen

- lige en sidste ting så er jeg færdig :)  - er der en måde at få den til kun at liste 1 linje - så den ikke viser den sidste linje i tabellen som er tom, og ikke kan bruges til noget ?

Jeg blander mig lige c",)
Sæt egenskaben "TilladTilføjelser" i formularens egenskaber til "nej".
Det burde løse dit sidste problem :D

/Kasper

tak skal du have :)