Maintaining one field (not allowing it to be changed) but keeping it the same

[finsmith]

we have a table it looks like this



I want to ensure that the user cannot change the Hull no. Contract no
How is this possible in a form, using DATASHEET VIEW

ALSO IN ADDITION
I want the hull no to be repeated and the contract no.
But not allow any changes to those two fields.

HULL NO.

CONTR NO.

DWG NO.

REV

SECT NO.

CONTR ITEM NO.

TAG/SYMBOL/SYSTEM NO.

DWG ITEM NO.

TOTAL QTY

U/M

DESCRIPTION

MATL/SPEC

MFG/MODEL NO.

ELEC

FINISH

REMARKS

CATALOG NO.

UNIT WT (LBS)

0002	12-4823	635-02	-	635	004-00		4	4511	SF	Thermal Insulation, 1" FG UnFaced, 3/4 lbs/cu. ft Blanket	Fiberglass			164.109 (INSUL)
0002	12-4823	635-02	-	635	005-00		5	1961	SF	Thermal Insulation, 2" FG, Mylar Faced, 2.9 lbs/cu. Ft	Fiberglass			164.109 (INSUL) 164.112 (FACING)

[Missinglinq]

As to the first question:

Private Sub Form_Current()
 If Nz(Me.[Hull no], "") <> "" Then
  [Hull no].Locked = True
 Else
  [Hull no].Locked = False
 End If
 
 If Nz(Me.[Contract No], "") <> "" Then
  [Contract No].Locked = True
 Else
  [Contract No].Locked = False
 End If
End Sub

I prefer the above because it makes it clearer what is going on, but this works, as well:

Private Sub Form_Current()
 
 [Hull no].Locked = (Nz(Me.[Hull no], "") <> "")
  
 [Contract No].Locked = (Nz(Me.[Contract No], "") <> "")
 
End Sub

You'll have to replace [Hull no] and [Contract No] with your exact names, of course.

I'm afraid I don't quite understand your second question; could you give a little more detail as to what you mean by

I want the hull no to be repeated and the contract no.
But not allow any changes to those two fields.

Linq ;0)>

[finsmith]

We will have multiple rows of the same hull and contract no.
But the Descriptions, section no, materials, will change.

[Missinglinq]

We will have multiple rows of the same hull and contract no.
But the Descriptions, section no, materials, will change.

Sorry, I still don't understand the problem. As long as the numbers aren't defined as 'Autonumbers' and Duplicates are allowed in your Table Def you should have no problem. Locking the Field, where it has already been populated, won't effect the ability to use the same numbers in other Records.

Linq ;0)>

[finsmith]

I have to look up locking a field. did not know that it existed. Thank you

[Missinglinq]

...I have to look up locking a field...

'Locking' means that you can tab/click into a Control, such as a Textbox, but you cannot physically Enter/Edit/Delete data that is contained in that Control. Notice that I said 'physically;' while you cannot do these things using the keyboard or by pasting data into the Control, you can, however, do these things through the use of VBA code.

Linq ;0)>

[finsmith]

Hello Again. Linq.
I was able to lock the field in the field properties. Thank you.
The objective was to get the field to populate throughout the datasheet table. Meaning that

Field 1 Field 2 Field 3 Field 4
1111 Contract Apples Carrots
1111 Contract Soups Celery

Getting and Maintaining Field 1 & Field 2 to stay the same throughout the table.

[Missinglinq]

If you're saying that you want Field 1 & Field 2 to remain the same, as you add consecutive Records through your Form, you can use the AfterUpdate event of each Control to set its DefaultValue. From that time forward, until you either manually change the data or close your form, the data will be entered automatically in each New Record.

Private Sub YourControlName_AfterUpdate()
   Me.YourControlName.DefaultValue = """" & Me.YourControlName.Value & """"
End Sub

which is valid for Text, Number and Date Datatypes.

You’ll need to do this for each Control that you want to ‘carry forward.’

Linq ;0)>

[finsmith]

the second part. me.yourcontrolanme.value.
it is coming from another table. so can I do
contract_tbl.hullno.value