FlereMarkering i listbox

Det kommer meget an åpå din tabelstruktur.

Jeg har et eks. (et eller andet sted) der går på en mange til mange relation

Du skal have en tabel over blomster (blomstId, osv)
En over måneder (MndId, Navn)
En over relationen BlomstringsMnd: (blomstId, MndId)

Herefter skal din listbox reagere på et ændret BlomstId i din form, og markere de måneder i listen der er i tabelen blomstringsMnd.

Skal jeg prøve at finde et eks. eller er dette nok ???
Niels

Prøv evt. lige at sende et eksempel.
Alan

Sub opdaterLstMnd()
    Dim i As Integer
    Dim lstMnd As Integer, BlomstId As Integer
    BlomstId = Me.[BlomstId]
    For i = 1 To lstMnd.ListCount
'første række i listen = 1 Hvis du anvender overskrifter
      lstId = lstMnd.Column(0, i)
        If malId <> DLookup("[BlomstId]", _
                "BlomstringsMnd", _
                "[MndId] = " & lstId & _
                " AND [BlomstId] = " & BlomstId) Then
            lstMnd.Selected(i) = False
        Else
          lstMnd.Selected(i) = True
        End If
    Next i
End Sub

I formen onCurrent ligger så :
Private Sub Form_Current()
  opdaterLstMnd
End Sub

Niels

lstMnd = lstMnd.Column(0, i)
        If blomstId <> DLookup("[BlomstId]",

Der er lige nogle variable jeg ikke fik omdøbt

Niels

Her er én kode:
3 tabeler :
  tblBlomst(blomstId, navn)
  tblBlomsting (blomstId, MndId)
  tblMnd (MndId, MndNavn)
1 form med:
bygger på tblBlomst
listbox (lstMnd, flerMarkering = simpel)
textbox med blomstNavn

Option Compare Database
Option Explicit

Sub opdaterLstMnd()
    Dim i As Integer
    Dim IntmndID As Integer

    For i = 1 To lstMnd.ListCount - 1
'første række i listen = 1 Hvis du anvender overskrifter
      IntmndID = lstMnd.Column(0, i)
        If Me!BlomstId <> Nz(DLookup("[BlomstId]", _
                "tblBlomstring", _
                "[MndId] = " & IntmndID & _
                " AND [BlomstId] = " & Me!BlomstId), -1) Then
            lstMnd.Selected(i) = False
        Else
          lstMnd.Selected(i) = True
        End If
    Next i
End Sub


Private Sub Form_Current()
  opdaterLstMnd
End Sub

Private Sub lstMnd_Click()
  DoCmd.RunSQL "DELete * FROM tblBlomstring WHERE BlomstId = " & _
  Me!BlomstId
 
  Dim StrSql As String
  Dim i As Integer
 
  StrSql = "INSERT INTO tblBlomstring (blomstId, mndId) Values (" & Me!BlomstId & ", "
 
  For i = 1 To lstMnd.ListCount - 1
    If lstMnd.Selected(i) = True Then
      DoCmd.RunSQL StrSql & lstMnd.Column(0, i) & ")"
    End If
  Next i
 
  opdaterLstMnd

End Sub

mvh Niels
(det duer ikke lige at oversætte fra ét projekt til et andet)

Hvis du har en mail, kan jeg sende dig db'en

Hej Niels

Du skal nok få dine points, men kan du ikke lige lægge basen her: alan@pmc.odense.dk

mvh.

Alan

Takker får pts.

Kan du få det til at virke

Niels

Hej Niels
Det virker fint. Jeg kan ikke helt overskue konsekvensen for mit projekt, men nu er jeg ihvertfald godt på vej.
Tak for hjælpen.
Alan

Hej Niels,
Jeg har med stor interesse siddet et stykke tid og kæmpet med et problem der ligner Alans vedr. MulitiSelect fra en Listboks til en anden. Hvis muligt vil jeg meget gerne se den eksempel-db du sendte til Alan. du skal nok blive betalt i points. adresse: sk.poder@mail1.stofanet.dk

Med venlig hilsen

Søren

sendt.

Hej Niels,

Mange tak! Nu vil jeg lige se om jeg kan få det til at virke så
jeg kan komme videre med mit projekt!

Hej Niels,

Endnu en gang tak for eksempel-db'en. Det virker jo perfekt. Jeg har dog ændret den en smule så de valge poster kommer frem i en anden listboks, men jeg har lige et spørgsmål som du måske selv har overvejet. Når man sletter en post(I dit eksempel en måned i mit et musikinstrument) så sletter man alle poster! Ved en overskuelig mængde data er dette ikke det helt store problem, men ved store mængde data eller i det tilfælde hvor de indtastede værdier skal bruges senerehen er det nok ikke så hensigtsmæssigt i længden. Problemet ligger i (tror jeg):
DoCmd.RunSQL "DELETE * FROM TBLORKESTERMUSIKERINSTRUMENT WHERE ORKESTERMUSIKERID = " & Me!lstSpiller & ""

Kan den modifiseres så den KUN sletter den aktuelle post på listen?

MvH

SK. Poder

Hej Niels
Mht.  mit lille problem med de to listboke er det ikke så lille endda. Jeg kan simpelthen ikke få den til at slette en post. Jeg ved ikke om du har fundet en løsning på problemet, men under alle omstændighder hr jeg oprettet et spørgsmål med  titlen "Slette mange til mange relation fra en listboks". Jeg håber du har tid til at kigge forbi og evt. hente nogle points.

MvH

SK Poder

Sorry - Jeg havde helt glemt dig.

prøv at sende en testdb til mig: nih@mail1.stofanet.dk

Niels

Hej Niels,

Det er mig der undskylder - jeg havde ikke lige set at du har besvaret mit indlæg. Jeg har sendt dig en mail med nogle oplysninger. Jeg håber at det kan være til en hjælp.


Søren

Hej Niels,

JEg fandt en løsning på problemet, men mange tak for din hjælp!