Avatar billede Slettet bruger
22. november 2004 - 11:36 Der er 30 kommentarer og
1 løsning

DblClick i listbox for at åbne formular på pågældende post

Jeg har en formular med en "list box" over reservedele, der er brugt til en enhed. De kommer på ved de forskellige reperationer. Jeg vil gerne kunne dobbeltklikke på en reservedel og dermed komme ind på den pågældende reperation.

Dette virker ikke:

Private Sub Reservedele_DblClick(Cancel As Integer)
DoCmd.OpenForm "sogvedligehold"
Forms!sogvedligehold!id.SetFocus
DoCmd.FindRecord Me!id
Forms!sogvedligehold!Luk.SetFocus
End Sub

P.S. Der er 3 kolonner i listen; dato,reservedel,id
22. november 2004 - 11:55 #1
Prøv med:

Docmd.Findrecord Me!Reservedele.Column(2)





Eller angiv egenskaben "Bundet kolonne" = 3 og brug denne:

DoCmd.FindRecord Me!Reservedele
Avatar billede Slettet bruger
22. november 2004 - 12:42 #2
Docmd.Findrecord Me!Reservedele.Column(3), medfører:
"The FindRecord action requires a Find What argument"

"Bundet kolonne" = 3 og DoCmd.FindRecord Me!Reservedele, medfører:
"An expression you entered is the wrong data type for one of the arguments"
22. november 2004 - 12:46 #3
Det skulle være: Docmd.Findrecord Me!Reservedele.Column(2)

2-tallet var ikke en fejl. Det skyldes, at den starter med at tælle fra 0 (Men egenskaben "Bundet kolonne" starter ved 1)

At du får fejl på den anden, må skyldes at datatyperne blandes sammen. Jeg kender ikke dine tabeller, så prøv lige denne først:

Docmd.Findrecord Me!Reservedele.Column(2)
Avatar billede Slettet bruger
22. november 2004 - 12:48 #4
Den prøvede jeg også først, så troede jeg at det var (3), men det var den samme fejlkode i begge tilfælde.
22. november 2004 - 12:55 #5
Mystisk!!??

Kan du SE ID'erne på listen? Eller er de skjulte?
Kan de være blanke på nogle poster?
Avatar billede Slettet bruger
22. november 2004 - 13:05 #6
Jeg kan se dem, der skal scrolles helt til højre, men det burde jo ikke gøre noget.
22. november 2004 - 13:21 #7
nej, du må sagtens kunne se kolonnerne. Jeg spurgte mere for om du kunne se om der var blanke ID'er.

Prøv at sætte et Breakpoint på linien (stil markøren på linine og tryk F9)

Start derefter formularen og dobbeltklik på listen. Når Access ryger over i VBA-editoren på den markerede linie, kan du markere "Me!Reservedele.Column(2)" med musen og trykke Shift+F9 for at få vist værdien.
Avatar billede Slettet bruger
22. november 2004 - 13:26 #8
Den siger "Selected watch expression invalid"
22. november 2004 - 13:40 #9
hmm....Det giver ingen mening...der står 2, ikke?
Avatar billede Slettet bruger
22. november 2004 - 13:54 #10
Hov, undskyld jeg sidder i mine egne tanker. Jo, der står 2.
Avatar billede -anders- Juniormester
22. november 2004 - 13:59 #11
Hej måske til lidt hjælp, jeg bruger ofte nedenstående, er skrevet lige ud af hovedet, så der kan være fejl i syntaksen:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "sogvedligehold"
   
stLinkCriteria = "[ID]=" & Me!Listenavn.Colum (2)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Avatar billede -anders- Juniormester
22. november 2004 - 14:03 #12
Colum er selvføgelig Column, beklager stavefejlen :)
22. november 2004 - 14:06 #13
ja, som i dit forrige spm, så kan du bruge samme syntaks her (Som AAndersen foreslår):

DoCmd.OpenForm "sogvedligehold",,,"ID = " & Me!Reservedele.Column(2)
Avatar billede Slettet bruger
22. november 2004 - 14:24 #14
Et begge forslag kommer flg. fejlmeld:
Der er en syntaksfejl, fordi der mangler en operator i forespørgselsudtrykket "[ID]="
Avatar billede -anders- Juniormester
22. november 2004 - 14:26 #15
Hmm lyder underligt har lige testet det selv og det køre uden problemer.Er du sikker på at ID på din liste er Column 2 ?
Avatar billede Slettet bruger
22. november 2004 - 14:28 #16
Ja, det står: dato, reservedel, id
22. november 2004 - 14:29 #17
Hvordan ser din rækkekilde ud?
Hvad står der i egenskaben "Antal kolonner"
22. november 2004 - 14:29 #18
og "Kolonne bredder"?
Avatar billede Slettet bruger
22. november 2004 - 14:30 #19
Hvad mener du?
Avatar billede Slettet bruger
22. november 2004 - 14:31 #20
Listen er ca. 6cm bred og kolonne bredder er 1,702cm;8cm;2cm
22. november 2004 - 14:31 #21
Egenskaberne på listboksen i design?
22. november 2004 - 14:32 #22
ok rækkekilde?
Avatar billede Slettet bruger
22. november 2004 - 14:33 #23
SELECT Reservedele.Dato, Reservedele.Reservedel, Reservedele.IndtastetID AS id, Reservedele.Enhed FROM Reservedele WHERE (((Reservedele.Enhed)=forms!enhed!enhed)) ORDER BY Reservedele.Dato DESC;
22. november 2004 - 14:37 #24
Og "Antal kolonner" står til 3?

Jeg kan ikke gennemskue det. Hvis du har mulighed for det, er du velkommen til at sende din database til mig zippet på mail. Jeg tror ikke, at vi kommer meget videre på denne måde....
Avatar billede -anders- Juniormester
22. november 2004 - 14:40 #25
Enig med thomas, det burde virke, jeg er sikker på at du gennemskuer det med det samme når du modtager db, og forresten, mange tak for din fine karma :-)
Avatar billede Slettet bruger
22. november 2004 - 14:46 #26
tj>ok
22. november 2004 - 14:53 #27
Anders->Det var så lidt. Det var skam oprigtigt ment :o)
22. november 2004 - 15:05 #28
Jeg har modtaget den og kigget på den.

Okay, den var også svær at regne ud....fejlen skyldes at, du havde sat Kontrolelementkilden på listen til "Reservedel", hvilket ikke findes. Dette felt skal formentlig bare være blank, da indholdet styres andetsteds fra.

Det undrede mig nemlig, at man ikke kunne vælge et element på listen. Det blev ikke sort. Så når man dobbeltklikkede, så returnerede Me!Reservedele.Column(2) Null fordi der ikke var valgt et element på listen.

Så hvis du blanker Kontrolelementkilden på listen, så skulle den være der :o)
Avatar billede Slettet bruger
22. november 2004 - 15:11 #29
Yes... Supert
!~)
22. november 2004 - 15:12 #30
:o)
23. november 2004 - 10:50 #31
Og tak for den flotte karma, spg (jeg kan genkende din smiley !~)

Det er altid rart med lidt anerkendelse :o)
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