How to save data from different forms in different tablets under same ID

[Rahmoni]

Hello,

Just to give you all a brief overview. I am making a Form to save Fish data. This one Form contains 4 Sub-Forms

Main Form
1). User Input (Data, Name etc.)

Sub-Forms (in tab form)
1). Conditions (for ex. Location, Objects used, Which pump etc..)
s16.postimage.org/42234m34l/Condition.png
2). Regular Fish (Name, count etc.)
s21.postimage.org/f13t21h6v/Regular.png
3). Special Fish (same as above)
s8.postimage.org/43dhv0ycl/Special.png
4). Algae
Similar thing

So now you all have some idea of what I am working on, I need help on some parts.

Conditions & Algae content saves perfectly into their tables. I guess because all fields are connected already and there are no IF statements.

But in the case of Regular Fish and Special Fish. Depending on the fish they select in that drop down menu, I want to save in those specific tables. I have tables for each fish.



This is the code I am using.

Public Function round_whitefish1()

CurrentDb.Execute _
"INSERT INTO RoundWhitefish (ID, Total, Finclip, Lamprey,B1,B2,B3,B4,B5,B6,B7,B8, B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21 ,B22,B23,B24,B25,B26,B27, B28,B29,B30,Label,Data, Dcomments) VALUES ('" _
& Form_P1.DayID.Value & "','" & Me.txtCount1.Value & "','" & Me.chkTag1.Value & _
"','" & Me.chklamp1.Value & "','" & Me.txtB1.Value & _
"','" & Me.txtB2.Value & "','" & Me.txtB3.Value & _
"','" & Me.txtB4.Value & "','" & Me.txtB5.Value & _
"','" & Me.txtB6.Value & "','" & Me.txtB7.Value & _
"','" & Me.txtB8.Value & "','" & Me.txtB9.Value & _
"','" & Me.txtB10.Value & "','" & Me.txtB11.Value & _
"','" & Me.txtB12.Value & "','" & Me.txtB13.Value & _
"','" & Me.txtB14.Value & "','" & Me.txtB15.Value & _
"','" & Me.txtB16.Value & "','" & Me.txtB17.Value & _
"','" & Me.txtB18.Value & "','" & Me.txtB19.Value & _
"','" & Me.txtB20.Value & "','" & Me.txtB21.Value & _
"','" & Me.txtB22.Value & "','" & Me.txtB23.Value & _
"','" & Me.txtB24.Value & "','" & Me.txtB25.Value & _
"','" & Me.txtB26.Value & "','" & Me.txtB27.Value & _
"','" & Me.txtB28.Value & "','" & Me.txtB29.Value & _
"','" & Me.txtB30.Value & "','" & Me.chkLabel1.Value & _
"','" & Me.cboTest1.Value & "','" & Me.txtcomment1.Value & _
"');"
End Function

For some reason it’s just not saving the Regular and Special fish data, its saving everything else.

And lastly I want to have same ID as the main form in every sub-form. So for example when I am looking I can open specific date by specific person and all the entries shows up.

I hope I was clear enough. Thank you in advance guys, your help is much appreciated. I am not a Access savvy

[June7]

You have separate tables for each fish species - why? Are the fields identical? If so, should definitely be one table with another field for the species ID.