Read/Write Access in Cells on Forms

[Haleakala17]

I am requesting if anyone knows how to make a cell in a form Write access if the cell contains no data. In other words if there is a blank cell on a form I would like a user to have "Write"
Acess to enter data in the blank cell. In addition, if a cell in a form contains data in it a user will not be able to write in it, it will be Read Only. On attachment is a Winzip file using visuals.

Regards,

Haleakala17

[June7]

By 'cell', do you mean a textbox?

Will need code to manage the textbox Enabled, Visible, TabStop properties.

Use the form OnCurrent event. Example:

Private Sub Form_Current()
If Not IsNull(Me.textboxname) Then
Me.textboxname.Enabled = False
Me.textboxname.TabStop = False
End If
End Sub

[Haleakala17]

June7,

Unfortunately the VB script you sent me did not work. After I entered data in the textbox, it prevent me from entering data in the other records in the same textbox. the textbox now is highlighted in light color grey.

[June7]

This changes the property for all instances of the textbox but the code should run when moving to another record. Is the form in Continuous or Datasheet view? Want to provide db for analysis? Follow instructions at bottom of my post.

[Haleakala17]

Here is my database on zip file. take a look at the __Property form. On the parent form I am trying to apply the read and write access to the fields name County Shapefile Gross Acres, Township, Mineral Severance Tract, and Unit name.

Thank You

[June7]

Should have provided db with the code you attempted, even if it doesn't work. Just realized in the original suggestion forgot to include the ELSE. This is a different syntax that doesn't require ELSE. Don't need to set TabStop property after all.

Private Sub Form_Current()
Me.ParcelNumber1.Enabled = IsNull(Me.ParcelNumber1)
Me.County_Shapefile_Gross_Acres.Enabled = IsNull(Me.County_Shapefile_Gross_Acres)
Me.Township.Enabled = IsNull(Me.Township)
Me.Mineral_Severance_Tract.Enabled = IsNull(Me.Mineral_Severance_Tract)
Me.Unit_Name.Enabled = IsNull(Me.Unit_Name)
End Sub

[Haleakala17]

June7,

Thank you very much! You are correct I should have sent you my db in my intial message. I marked this thread as Solved and gave this an excellent rating. Question . . . is there any resourceful websites that you know of so that I can increase my VBA skills in Access?

[orange]

For vba try http://www.functionx.com/vbaccess/index.htm

For general Access here are free videos
https://www.youtube.com/watch?v=5pBD...e=results_main

[Haleakala17]

Orange,

thank you for the websites! I appreciate it

[orange]

Glad to help. Good luck with your project.