Help with script

[pas123]

Here's what I have.
as my comments within the script say this script updates [projects.Drawing Title] one control behind.
'on the first control the value of [Projects.Drawing Title]is NULL????

Private Sub Command153_Click()
If Not [Text120].Value = "" Then
Me![Drawing List.Drawing Title].ControlSource = "Drawing List.Drawing Title" 'to reset ControlSource
Me![Projects.Drawing Title].ControlSource = "Projects.Drawing Title" 'to reset ControlSource
End If
Dim tbc As Control, pge As Page
Dim ctl As Control
Set tbc = Me!TabCtl97
Set pge = tbc.Pages(tbc.Value)
For Each ctl In pge.Controls
If Not ctl.Value = "" Then
Me![Projects.Drawing Title].Value = Me![Drawing List.Drawing Title].Value
Me![Drawing Number].Value = ctl.Value
'DoCmd.OpenQuery "append projects" 'How to do this with out prompts
MsgBox (Me![Projects.Drawing Title].Value) 'errors if value = NULL
End If
Next ctl
'this updates [projects.Drawing Title] one control behind.
'on the first control the value of [Projects.Drawing Title]is NULL????
End Sub

 

[pas123]

never mind I was setting a value before it was a value

Me![Projects.Drawing Title].Value = Me![Drawing List.Drawing Title].Value
Me![Drawing Number].Value = ctl.Value

should be

Me![Drawing Number].Value = ctl.Value
Me![Projects.Drawing Title].Value = Me![Drawing List.Drawing Title].Value