Søg
Avatar billede dane022 Seniormester
21. maj 2004 - 15:52 Der er 13 kommentarer og
1 løsning

Resultat ved tom søgning

Jeg søger på cpr nummer i min formular "jubilæumsliste alle" ved hjælp af en kommandoknap. Søges der på et cpr nummer der eksisterer i forvejen, fremkommer personen fint og alle felter er udfyldt.
Men hvis jeg søger på et cpr nummer der ikke eksisterer, fremkommer der kun en blank record.
Hvordan får jeg det gjort sådan at det søgte cpr nummer, automatisk udfylder feltet cpr nummer, ved en tom record ?

Kommandoknappens kode er:
Private Sub Command29_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "jubilæumsliste alle", acWindowNormal, , "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'"
End Sub
Avatar billede terry Ekspert
21. maj 2004 - 16:12 #1
Somthing  like this should work.
Check to see if CPR exists, if not open for addition, otherwise open as normal.
If Dcount("[cpr nummer]", "jubilæumsliste", "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'") = 0 Then

DoCmd.OpenForm "jubilæumsliste alle", , , , acFormAdd
Forms![jubilæumsliste alle]![cpr nummer]=  me!Cpr

Else
DoCmd.OpenForm "jubilæumsliste alle", acWindowNormal, , "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'"

Endif
Avatar billede terry Ekspert
21. maj 2004 - 16:22 #2
.
Avatar billede dane022 Seniormester
22. maj 2004 - 17:20 #3
Det virker

Jeg har lige en tilføjelse:
Hvordan får jeg gjort det sådan at når kommandoknappen vælges, så skal den aktuelle formular "jubilæumsliste søgning" lukkes ?
Avatar billede dane022 Seniormester
22. maj 2004 - 17:28 #4
Og kan det lade sig gøre at den springer til feltet "fornavn", når søgningen er fuldført i "jubilæumsliste alle" ?
Avatar billede terry Ekspert
22. maj 2004 - 17:54 #5
'This should work, it closes the current form, but in some cases it may not.

Docmd.close

'If it deosnt work then you have to include which form you want to close.
DoCmd.Close acForm, "jubilæumsliste søgning"

Forms![jubilæumsliste alle]![fornavn].setfocus
Avatar billede terry Ekspert
22. maj 2004 - 17:55 #6
Forms![jubilæumsliste alle]![fornavn].setfocus

is the answre to your last comment
Avatar billede dane022 Seniormester
22. maj 2004 - 18:06 #7
Jeg får fejl nu, koden ser ud som følger:

If DCount("[cpr nummer]", "jubilæumsliste", "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'") = 0 Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "jubilæumsliste alle", , , , acFormAdd
Forms![jubilæumsliste alle]![Cpr nummer] = Me!Cpr
Forms![jubilæumsliste alle]![Fornavn].SetFocus
DoCmd.Close acForm, "jubilæumsliste søgning"
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "jubilæumsliste alle", acWindowNormal, , "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'"
Forms![jubilæumsliste alle]![Fornavn].SetFocus
DoCmd.Close acForm, "jubilæumsliste søgning"
End If
Avatar billede terry Ekspert
22. maj 2004 - 18:10 #8
22/05-2004 17:20:24 here you say it works, does it?

This will make your code shorter but it still may not work

DoCmd.RunCommand acCmdSaveRecord

If DCount("[cpr nummer]", "jubilæumsliste", "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'") = 0 Then

    DoCmd.OpenForm "jubilæumsliste alle", , , , acFormAdd
    Forms![jubilæumsliste alle]![Cpr nummer] = Me!Cpr

Else

    DoCmd.OpenForm "jubilæumsliste alle", acWindowNormal, , "[jubilæumsliste]![cpr nummer]= '" & Me!Cpr & "'"

End If


Forms![jubilæumsliste alle]![Fornavn].SetFocus
DoCmd.Close acForm, "jubilæumsliste søgning"
Avatar billede terry Ekspert
22. maj 2004 - 18:10 #9
which line gives the error?
Avatar billede terry Ekspert
22. maj 2004 - 18:17 #10
I am off out now, will look later if I get time
Avatar billede terry Ekspert
25. maj 2004 - 18:50 #11
and?
Avatar billede terry Ekspert
25. maj 2004 - 20:03 #12
is it working now?
Avatar billede dane022 Seniormester
25. maj 2004 - 20:05 #13
Ja, den virker. Jeg skal jo bare huske på at det ikke nytter noget at henvise til "fornavn", hvis feltet hedder "navn"
Avatar billede terry Ekspert
25. maj 2004 - 20:06 #14
Your right there :o)

og tak!
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 09:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
22/0511:42 Mail med endelsen ".lat" Af ErikHg i E-mail
21/0511:48 Nyåbnede sider flimrer på Android tablet, hvorfor Af annam i Andet software
21/0511:03 Bitlocker fordele-ulemper, samt nulstille PC Af Uvanga i Windows
White papers
Flere white papers »