Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 11:57 Der er 19 kommentarer og
1 løsning

Not in list - opdateringsproblem

Har oprettet ubunden cbobox som jeg bruger som søgefelt. Oprettet ubunden og egenskaben "begræns til liste" har jeg sat til JA og tilføjet flg kode

_________________________________________

Private Sub cboPcnavn_NotInList(NewData As String, Response As Integer)

    '0 = falsk, dvs er ikke i comboboxen
    Response = 0
     
    MsgBox "Der er ikke oprettet en PC med navnet " & NewData & "." + vbLf + "Din søgning blev derfor annulleret." + vbLf + vbLf + "Vælg en eksisterende PC i comboboxen i stedet for.", vbOKOnly + vbInformation, "Ingen PC registreret"
   
    'slet det bruger har skrevet i combobox
    cboPcnavn.Undo
   
End Sub
_________________________________________

Mit problem er at indholdet i comboboxen IKKE bliver opdateret når jeg tilføjer nye records. Hvordan pokker fikser jeg den ??

...umiddelbart vil jeg mene at der skal en eller anden kode til der slår koden fra og opdaterer mine records og så sætter koden til igen når jeg har oprettet en ny...
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 12:04 #1
...må umiddelbar skulle sættes på formularens (frmPCinfo) egenskab "efter opdatering"....
Avatar billede skov_p Praktikant
24. juni 2002 - 12:31 #2
I "efter opdatering" sættes følgene kode
Me.cboPcnavn.Requery
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 12:44 #3
>>skov_p

hjælper desværre ikke noget - er garanteret fordi jeg har sat egenskaben "begræns til liste" til JA..

har både prøvet at placere en requery på selve comboboxen og på formularen - uden held....

...min kode som er placeret på comboboxens "efter opdatering" - da jeg ønsker at filtrere efter det der vælges i comboboxen

Private Sub cboPcnavn_AfterUpdate()
' filtrer efter det PCnavn der vælges og vis PC

    Me.Filter = "[PCnavn] = '" & Me![cboPcnavn] & "'"
    Me.FilterOn = True
   
End Sub

dette filter fjerner jeg så ved klik på en knap, så alle poster vises igen...

er ret sikker på jeg på en eller anden måde bliver nødt til at tilføje min nye record til comboboxen - men hvordan ???
Avatar billede skov_p Praktikant
24. juni 2002 - 12:49 #4
Bruger du SQL til definere de data der skal vises i cboPcnave?
Begræns til liste skal være slået til eller kører koden "NotInList" ikke.
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 12:54 #5
>>skov_p
jeps bruger SQL til at vise indhold i cboPCnavne --- SELECT [tblPCnavn].[PCnavn] FROM tblPCnavn;

tja vi kan godt blive enig om at "begræns til liste" skal være slået til før resten funger ;D

men det må da på en eller anden måde kunne lade sig gøre at opdatere comboen - ellers er der godt nok ikke meget funktionalitet at hente hvis den ikke opdateres ved ændringer LOL
Avatar billede skov_p Praktikant
24. juni 2002 - 13:02 #6
Jeg er ikke helt med. I koden øverst på siden kan det ikke lade sig gøre at tilføje nye records så jeg går udfra at du indtaster det direkte i tabellen 'tblPCnavn' eller du har en anden form det tilføjer records.
hvis du sætter cboPcnavn.RowSource = "SELECT [tblPCnavn].[PCnavn] FROM tblPCnavn" i cboPcnavn.GotFocus vil det virke
Avatar billede skov_p Praktikant
24. juni 2002 - 13:07 #7
eller cboPcnavn.Requery under cboPcnavn.GotFocus
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 13:13 #8
.....my mistake - har ikke forklaret mit problem godt nok :/

ok har formular (frmPCinfo) hvor jeg registrerer diverse info om hver enkelt PC.

Har så oprettet en ubunden combo - cboPCnavn som jeg bruger til at søge efter en specifik PC - bruger kan vælge enten at skrive direkte i comboen eller vælge fra listen.

har tilføjet kode der skal vise msgbox hvis det bruger skriver ikke => match

har desværre prøvet
cboPcnavn.RowSource = "SELECT [tblPCnavn].[PCnavn] FROM tblPCnavn

virker heller ikke :/
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 13:22 #9
....hele miseren må skyldes at "begræns til liste" står til JA

skal den jo også - men jeg har en eller anden anelse om at der skal laves en requery hvor man først slår begræns til liste fra så den tager ændringer med hvorefter begræns til liste slåes fra igen
Avatar billede skov_p Praktikant
24. juni 2002 - 13:24 #10
jeg regner med at du har " efter din SQL sætning.
Jeg har svært ved at nye records du tilføjer i din tabel ikke kommer med i din cboPcnavn.
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 13:29 #11
...det må være noget i den her henretning

Private Sub Form_AfterUpdate()


    Me.cboPcnavn.LimitToList = False
         
        cboPcnavn.RowSource = "SELECT [tblPCnavn].[PCnavn] FROM tblPCnavn"
   
    Me.cboPcnavn.LimitToList = True
   
End Sub

...lige bortset fra at det altså heller ikke virker :(
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 13:31 #12
...jeps U bet har hele tegnsætningen med

er 100% sikker på at det skyldes limit to list - den skal slåes fra på en eller anden måde, så ændringer kan blive registreret, hvorefter egenskaben skal slåes til igen....
Avatar billede skov_p Praktikant
24. juni 2002 - 13:38 #13
Nope jeg har ingen problemer med det, lad os starte fra starten
Row source type for din cboPcnavn = Table/Query
RowSource = "SELECT PCnavn FROM tblPCnavn ORDER BY PCnavn"
LimitToList = Yes
LimitToList tillader ikke andre indtastninger end dem der er angivet i din tabel. Den begrænser ikke tilføjelser til den tabel.
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 14:02 #14
LOL - næh det ville jeg heller ikke mene

tja vi er rørende enige det skal virke - men det gør det ikke :(

fjerner jeg derimod egenskaben "begræns til liste" virker det fint - lige bortset fra at jeg jo så disabler den kode jeg har på limit to list :(
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 14:16 #15
..det der er endnu mere strange er at hvis jeg kører min SQL kan jeg se de ændriger/tilføjelser jeg har lavet - men de er IKKE tilgængelig i min combo :(
Avatar billede skov_p Praktikant
24. juni 2002 - 14:34 #16
prøv at omdøbe din combo. placer en ny på din form og kald den cboPcnavn og se om der skulle være nogle egenskaber der skulle være forskellige
Avatar billede skov_p Praktikant
24. juni 2002 - 14:39 #17
Du kan sende et screen dump af egenskaber for din combo så kan jeg prøve at se om der skulle være noget 'muggent' ved det. skov@pedersen.mail.dk
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 15:27 #18
>>skov_p

må skyldes at min combo har været beskadiget af ene eller anden grund... havde ellers kørt en komprimer og reparer..

Oprettede en ny og der var problemer med opdatering - var  nødvendigt at lukke og åbne formularen før evt nye records blev tilgængelige...

Men nu er problemet tilsyneladende løst - very stange indeed - øhhhh

Håber pokkerme ikke jeg render ind i samme problem med de andre comboer jeg har (tja ca en 10 stk på forskellige forms).

Mhh du skulle næsten se koden og egenskaber på min gamle combo, så du ikke tror jeg er blevet skør LOL
Avatar billede skov_p Praktikant
24. juni 2002 - 15:33 #19
Tror dig gerne, jeg har været ude for det samme. Jeg synes oftest det forekommer hvis man bruger en wizard. Den har temmelig travlt med at lave alverdens settings som der ikke er til at ændre. Det var også derfor jeg foreslog at lave en ny.
Avatar billede susanne_larsen Nybegynder
24. juni 2002 - 15:38 #20
>>skov_p
jep har selv haft problemer med at bruge wizards derfor bruger jeg dem ikke - og så får jeg ALLIGEVEL problemer - s.. da utroligt

thnx for din hjælp :D
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