I am writing a database entry program. When I initialize my form for the first time everything is in place. But the second time, some of the textboxes appear to be shifted. Can anyone help please? Thank you inadvance.


Private Sub Form_Initialize()

On Error Resume Next

datDetails.Refresh

datHrsWrk.Refresh

datOrder.Refresh

varRemHrs = Val(txtHrsSold.Text) - Val(datHrsWrk.Recordset("HrsWrk"))

txtRemHrs.Text = Format(varRemHrs, "Standard")

End Sub


Private Sub Form_Load()

datOrder.Refresh


txtDate.Text = Format(txtDate.Text, "Short Date")

txtHrsSold.Text = Format(txtHrsSold.Text, "Standard")


'varRemHrs =

'txtRemHrs.Text = Format(varRemHrs, "Standard")


Text1.Text = Format(Text1.Text, "Standard")

Text2.Text = Format(Text2.Text, "Standard")

Text3.Text = Format(Text3.Text, "Standard")

Text4.Text = Format(Text4.Text, "Standard")

Text5.Text = Format(Text5.Text, "Standard")

Text6.Text = Format(Text6.Text, "Standard")

Text7.Text = Format(Text7.Text, "Standard")

Text8.Text = Format(Text8.Text, "Standard")

Text9.Text = Format(Text9.Text, "Standard")

Text10.Text = Format(Text10.Text, "Standard")

Text11.Text = Format(Text11.Text, "Standard")

Text12.Text = Format(Text12.Text, "Standard")

Text13.Text = Format(Text13.Text, "Standard")

Text14.Text = Format(Text14.Text, "Standard")

Text15.Text = Format(Text15.Text, "Standard")


End Sub