Hmmm. yeah that's what I was thinking too. Thanks for that tip, I won't do that anymore. It still won't put thevalue in. Here's my code:
Code:
'------------------------------------------------------------
' NEW_Click
'
'------------------------------------------------------------
Private Sub NEW_Click()
On Error GoTo NEW_Click_Err
' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
' <UserInterfaceMacro For="DELETE" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application"><Statements><Action Name="OnError"/><Action Name="GoToControl"><Argument Name="
' _AXL:ControlName">=[Screen].[PreviousControl].[Name]</Argument></Action><Action Name="ClearMacroError"/><ConditionalBlock><If><Condition>Not [Form].[NewRecord]</Condition><Statements><Action Name="DeleteRecord"/></Statements></If></ConditionalBlock><Con
' _AXL:ditionalBlock><If><Condition>[Form].[NewRecord] And Not [Form].[Dirty]</Condition><Statements><Action Name="Beep"/></Statements></If></ConditionalBlock><ConditionalBlock><If><Condition>[Form].[NewRecord] And [Form].[Dirty]</Condition><Statements><A
' _AXL:ction Name="UndoRecord"/></Statements></If></ConditionalBlock><ConditionalBlock><If><Condition>[MacroError]<>0</Condition><Statements><Action Name="MessageBox"><Argument Name="Message">=[MacroError].[Description]</Argument></Action></Statemen
' _AXL:ts></If></ConditionalBlock></Statements></UserInterfaceMacro>
On Error Resume Next
DoCmd.GoToRecord , "", acNewRec
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
Me.[Pump #1 Initial Reading] = DLookup("Gallons Used #1", "Bulk Fuel", "Date = #Date()-1#")
NEW_Click_Exit:
Exit Sub
NEW_Click_Err:
MsgBox Error$
Resume NEW_Click_Exit
End Sub