Here is the code:<br>My problem is when I access or start a new record it says I have a null problem and I have to use vb, instructor says so.<br><br> Private Sub Form_AfterUpdate()<br> If Me.PId = gvPId And _<br> Me.Address = gvaddress And _<br> Me.City = gvcity And _<br> Me.State = gvstate And _<br> Me.Country = gvcountry And _<br> Me.Zip = gvzip Then<br> Else<br> Call Appendme<br> End If<br> <br> End Sub<br> Private Sub Form_Current()<br> <br> gvPId = Me.PId<br> gvaddress = Me.Address<br> gvcity = Me.City<br> gvstate = Me.State<br> gvcountry = Me.Country<br> gvzip = Me.Zip<br><br> End Sub<br> Option Compare Database<br> Public gvaddress As String<br> Public gvcity As String<br> Public gvstate As String<br> Public gvcountry As String<br> Public gvzip As String<br> Public gvPId As Integer<br><br> Public Function Appendme() As Boolean<br><br> 'Appendme = False<br> 'docmd.setwarnings false<br> DoCmd.OpenQuery "qryAppend"<br> DoCmd.SetWarnings True<br> 'Appendme = True<br><br> End Function<br><br> Public Function fungvaddress()<br> fungvaddress = gvaddress<br> End Function<br><br> Public Function fungvcountry()<br> fungvcountry = gvcountry<br> End Function<br><br> Public Function fungvzip()<br> fungvzip = gvzip<br> End Function<br><br> Public Function fungvcity()<br> fungvcity = gvcity<br> End Function<br><br> Public Function fungvstate()<br> fungvstate = gvstate<br> End Function<br><br> Public Function fungvPId()<br> fungvPId = gvPId<br> End Function