Avatar billede per2edb Praktikant
06. februar 2008 - 12:06 Der er 25 kommentarer og
1 løsning

Kombinationsboks med VedIkkePåListe> ny record

Jeg har Access 2007
Jeg har en kombinationsboks. Jeg taster feks et FirmaNavn ind i søgeboksen som ikke findes på listen. Dette registreres i hændelsen VedIkkePåListe.
Her ønsker jeg spørgsmålet: Vil du oprette Dette FirmaNavn ?
Hvis ja - så skal jeg have opretted en ny record med FirmaNavn indlagt.
Hvordan er koderne hertil?
Avatar billede mugs Novice
06. februar 2008 - 12:18 #1
Comboen's egenskab BegrænsTilLuiste skal være sat til Ja:

Dim prompt As String
DoCmd.SetWarnings False
Response = acDataErrContinue
prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
DoCmd.RunSQL "INSERT into Register (feltnavn) VALUES ('" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True
Avatar billede terry Ekspert
06. februar 2008 - 12:21 #2
per2edb if you rfinished with a previosu question could you please close it?
http://www.eksperten.dk/spm/817932
Thanks
Avatar billede per2edb Praktikant
06. februar 2008 - 14:24 #3
Jeg får godt nok en ny record i DBén men formen opdateres ikke. Jeg har prøvet med
refresh men det hjælper ikke.
Avatar billede terry Ekspert
06. februar 2008 - 14:57 #4
Mugs code should add  a record to the tabkle which is used in the combo and the contents of the combo should also show the reocrd, does it?
Avatar billede mugs Novice
06. februar 2008 - 14:59 #5
Refresh tilføjer ikke nye poster men opdater kun eksisterende. For at tilføje nye poster skal du bruge en requery. Men det burde ikke være nødvendigt. Prøv at sætte en apostrof til venstre for de linier der fjerne og tilføjer advarsler og se, om du får nogen fejlmeldinger. Den er afprøvet i 2003 og fungerer.
Avatar billede per2edb Praktikant
06. februar 2008 - 15:16 #6
Jeg forstår ikke:  Prøv at sætte en apostrof til venstre for de linier der fjerne og tilføjer advarsler?
Prøv at uddybe hvad jeg skal gøre
Avatar billede terry Ekspert
06. februar 2008 - 15:22 #7
I think mugs means comment ou using '
the lines DoCmd.SetWarnings False/True


Can you answer my question 06/02-2008 14:24:09 it is relevant
Avatar billede per2edb Praktikant
06. februar 2008 - 16:03 #8
Jeg får udskriften: Du er ved at tilføje en række......

Tabellen ligger på en form med 2 underforme. Jeg fornæmmer fejlen ligger her.
Hvad gør jeg for også at opdatere de 2 underforme?
Avatar billede terry Ekspert
06. februar 2008 - 16:12 #9
per2edb do you have problems reading my comments? I can maybe help but only if you respond to the comments I make.
Avatar billede terry Ekspert
06. februar 2008 - 16:17 #10
If you can answer the comment 06/02-2008 14:57:52 it would help
Avatar billede per2edb Praktikant
06. februar 2008 - 16:27 #11
terry jeg forstår ikke hvad du spørger om
Avatar billede mugs Novice
06. februar 2008 - 16:48 #12
terry beder dig såmænd blot om en respons på hans kommentar afgivet idag Kl 14:57:52


Denne meddelelse fortæller dig, at den nye post er ved at blive tilføjet i tabellen. For at opdatere din subform kan du bruge:

Me.DIN SUBFORM.SetFocus
DoCmd.Requery
Avatar billede terry Ekspert
06. februar 2008 - 17:38 #13
"terry jeg forstår ikke hvad du spørger om" well that is at least a response :o)


The original question
"Kombinationsboks med VedIkkePåListe> ny record"

Is answered by mugs 06/02-2008 12:18:08

At  06/02-2008 14:57:52  I asked if the new record is visible in the combo.

Is it?

If it is then the original question is answered and I see no reason to requery anything.
Avatar billede per2edb Praktikant
06. februar 2008 - 17:47 #14
Jeg får en fejludskrift når jeg sætter det op sådan:

Me.Kontaktpersoner Underformular.SetFocus
DoCmd.Requery
Me.Kontakt_Dato Underformular.SetFocus
DoCmd.Requery

Hvor skal jeg lægge disse kommandoer?
Avatar billede mugs Novice
06. februar 2008 - 17:53 #15
Efter min kode f.eks.

Hedder dine underformularer virkelig:

Me.Kontaktpersoner Underformular.SetFocus
Me.Kontakt_Dato Underformular.SetFocus

Hvis det er tilfældet, så kan mellemrummet spille en rolle, idet det aldrig er godt at have mellemrum / specialtegn i objektnavne, 3. commandment:

http://www.mvps.org/access/tencommandments.htm

Du skriver du får en fejl - Det er jo ikke særlig oplysende. HVILKEN FEJL???
Avatar billede per2edb Praktikant
06. februar 2008 - 20:54 #16
Ja navnene er:
Kontaktpersoner Underformular
Kontakt_Dato Underformular
DEm kan jeg ikke ændre da de indgår mange steder.

I andre sammenhænge kan Me.Parent![Kontaktpersoner Underformular].Requery
virke men ikke her:

Me.Parent![Kontaktpersoner Underformular].Requery
DoCmd.Requery
Me.Parent![Kontakt_Dato Underformular].Requery
DoCmd.Requery

Jeg får fejlen: der er ingen aktuel post
Avatar billede mugs Novice
06. februar 2008 - 21:16 #17
Så  ved jeg næste ikke hvad der er galt. Koden er afprøvet mange gange på eksperten uden problemer. Jeg ved ikke om det kan skyldes at du bruger Me.parent efterfulgt af formularnavn.

Me.Parent betyder jo, at du står i en underformular og refererer til dennes mainform. Det er nok med Me.Parent. Me er jo den aktuelle form du står i (i dette tilfælde en childform). Når du så skal referere til parent er det nok med:

Me!Parent.requery

Denne kommentar 06/02-2008 16:03:30:
"Tabellen ligger på en form med 2 underforme. Jeg fornæmmer fejlen ligger her.
Hvad gør jeg for også at opdatere de 2 underforme?"

Nu bliver jeg lidt rundforvirret, idet jeg forstår din combo ligger på mainform men tabellen på subforms. Hvorfor vil du så bruge Me.parent hvis du står i mainform?
Avatar billede per2edb Praktikant
07. februar 2008 - 07:56 #18
Jeg har opgivet at få det til at virke
Tak for hjølpen
Avatar billede mugs Novice
07. februar 2008 - 09:35 #19
Kan du sende din db til:

mugs snabelting mail.dk

Som en .zip, så vil jeg se på det. Skriv lige et par ord om, på hvilken formular din combo er placeret og hvad dit problem er.
Tak for point, men vi skulle da gerne have det til at fungere.
Avatar billede per2edb Praktikant
07. februar 2008 - 13:36 #20
Hej mugs
Det vil jeg gerne benytte mig af. Jeg har skåret programmet ned til kun det nødvendige men alligevel forbliver programstørrelsen de oprindelige 38 Mb
Jeg gætter på det jeg vil sende er ca 1 mb. Hvordan får jeg skåret alt dette fra
i hukommelsen
Avatar billede mugs Novice
07. februar 2008 - 13:52 #21
Funktioner > Databasefunktioner > Komprimer og reparer database
Avatar billede per2edb Praktikant
08. februar 2008 - 14:12 #22
Nu virher det. Tak for hjælpen
Avatar billede mugs Novice
08. februar 2008 - 15:06 #23
Fint - Tak for point.
Hvordan kom din kode til at se ud?
Avatar billede per2edb Praktikant
08. februar 2008 - 16:54 #24
Kaan du lave det så du får point
Avatar billede mugs Novice
08. februar 2008 - 17:38 #25
Jeg har fået point.
06/02-2008 12:18:08
Avatar billede per2edb Praktikant
08. februar 2008 - 17:41 #26
ok
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