Mød en af Nordens fremmeste eksperter i adfærdsdesign – Morten Münster, der bl.a. har skrevet ” Jytte fra marketing er desværre gået for i dag” – på Computerworld Cloud & AI Festival.
Jeg er ikke sikker på, at jeg forstår hvad du mener. Du skriver ikke nogen kode du bruger, så det er rent gætteri. Hvis jeg står i en formular med et unikt indeks (PK), bruger jeg denne kode til at åbne en anden formular der viser detaljer om den post jeg stod i:
jeg bruger koden forneden til at lave mit filter.. og den list den kommer med har jeg koden msgbox me.id.value som skulle gi' mig id nummeret, men selvom jeg klikker paa rekord 13 saa kommer besked boksen kun med 1
Haaber det hjaelper lidt ?
Private Sub Form_Current() Dim fltstr As String
' Build SQL String
If Len(Forms!FRM_InvoiceList!txtfltInvoiceNo) > 0 Then fltstr = fltstr & " [InvoiceID] = " & Forms!FRM_InvoiceList!txtfltInvoiceNo & " AND " End If
If Len(Forms!FRM_InvoiceList!txtfltamount) > 0 Then fltstr = fltstr & "[Amount] = " & Forms!FRM_InvoiceList!txtfltamount & " AND " End If
If Len(Forms!FRM_InvoiceList!cbofltsupplier) > 0 Then fltstr = fltstr & "[Supplier] = '" & Forms!FRM_InvoiceList!cbofltsupplier & "' AND " End If
If Len(Forms!FRM_InvoiceList!cboCostElementCode) > 0 Then fltstr = fltstr & "[CostElement] = " & Forms!FRM_InvoiceList!cboCostElementCode.Column(0) & " AND " End If
If Len(fltstr) > 1 Then fltstr = Left(fltstr, Len(fltstr) - 4) MsgBox fltstr Me.Filter = fltstr Me.FilterOn = True Else Me.Filter = "[InvoiceID] > 0" Me.FilterOn = True End If
jeg kan tilfoeje at paa hoved formen har jeg en knap, som laver en requery paa sub formen.. som laver filteret.
Og det virker fint, men hvis jeg klikker paa rekord 13 som maaske var nummer 2 i listen.. saa kommer der en msgbox'n med rekorden som er nummer 1 i listen.
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.