Formulare g sorterede listbokse / sport

Vil du have en form der bygger på den 4. tabel, og hvor du kan søge på løbsid, klupid, og deltagerid  ??

Og de 3 comboboxe skal være indbydes afhængige ?

Ja, formen skal oprette records i en 4. tabel ud fra de andre.

Det er kun den sidste comboboks der skal afhænge af valget i de to andre - altså vise de relevante deltagere.

You obviouly need a form for entering the records in the forth table. So I suggest that you create a new table with the fields you mention. You can create the foreign key fields (LØBID, KLUBID, DELTAGERID) by using the Lookup Wizard.. You do this by choosing the Lookup Wizard from the fields Data Type. Then follow the instructions. Now you create a form using the form wizard. IF you have done everything correctly you will now have a form where each of the foreign key fields (LØBID, KLUBID, DELTAGERID) are COMBO BOXES.

You can start by using this form for entering data. Once this is working you can add 3 combo boxes to the header part of the form, one for each of the foreign key fields (LØBID, KLUBID, DELTAGERID).

Now it will be necessary to make some code which can alter the record source for the third combo when the first and second have been selected from. For this you should look at the example from http://www.eksperten.dk/spm/234619

Hi terry

Your suggestion seems promising. It was my method of choice from the outset, except of placing some fields in the header part.

I even experimented with changing the rowsource for the last combo, but it seemed to execute when the form loaded – hence my mingling with OnFocus etc. as well. So I have a problem with the proper place to put the code – where should it be? A button seem cumbersome to me…

I’ll experiment with it later today.

OK :o)

mqade>Hows it going?

Damn.. I had to postpone it till (hopefully) today! :-)

Hi Terry
I've:

1 - continued the table that is build like you described - with lookup. The clubs field gets generated like this: SELECT [Klubbber].[Id], [Klubbber].[Klubnavn] FROM Klubbber;
(I know klubber is miss-spelled ;-)

2 - Made a form that do append new records to all tree fields (four including the autogenerated id field). I have moved the deltagerid to the detail-section of the form.

3 - Copied the code from http://www.eksperten.dk/spm/234619, though altered it a bit and placed it in deltagerid's GotFocus .. ehm.. eventhandler(?):

Private Sub deltagerid_GotFocus()

    Dim sWhere As String

    sWhere = ""

    If Len(klubid) > 0 Then
        sWhere = sWhere & " AND idroer = " & klubid
        RowSource = "SELECT [Roere].[Id], [Roere].[navn], [Roere].[Idroerkategori], [Roere].[IdKlub] FROM Roere " & sWhere
    End If

    'If Len(Me.cboMARKED) > 0 Then
    '    sWhere = sWhere & " AND MARKED  = " & Me.cboMARKED
    'End If

    'If Len(Me.cboBUTIK) > 0 Then
    '    sWhere = sWhere & " AND BUTIK= " & Me.cboBUTIK
    'End If

End Sub

This does not provoke any errors, only it doesn't work either! (It does add new records, but doesn't filter the third combo) I suspect there's room for improvement in the adressing of the various fields on the form?

hi!

You need to update the RowSource AFTER you make a choice from your combo. So it needs to be in the AFTER UPDATE event

just out of interest. I am OFF on holiday tomorrow so IF you want to get this finished then today is the last day for quite some time :o)

Alright :-) Hmm.. Will move it to the klubid-field-AfterUpdate-event then. But how do I tell deltagerid's rowsourse from there?

(I WOULD like to make it work :-) But it is my own responsiblity, you should go on holiday knowing you helped wether I make it today or not)

Well close now...

I'm getting a "Error in the FROM part of the sentence". It looks like this now:

Form_expRowerForm.Idroer.RowSource = "SELECT [Roere].[Id], [Roere].[navn], [Roere].[Idroerkategori], [Roere].[IdKlub] FROM Roere " & sWhere

If you send your db to terry@santhell.dk then I can take a look for you

idroer is the actual name for the deltagerid-field. The deltagerid name was my original attempt to be "expert friendly" :-)

I have received your dB will get back as soon as possible!

Thanks a lot - exciting by the way!

terry har fixed min base - så her er points. Når jeg er færdig "tingen" bliver den lagt i public domain. (Til forhåbentlig glæde for landets roklubber)

----

terry fixed my db - so here's points. When "the thing" is done, it'll be placed in the public domain. (Hopefully to the benefit of the rowing clubs in this country)

Thanks mqade :o)

You're welcome! :-)

På http://on.starblvd.net/cgi-bin/bbsmsg?roning&tr=176 er tingen falbudt til interesserede.