var sidebar_align = 'right';
var content_container_margin = parseInt('290px');
var sidebar_width = parseInt('270px');
Unanswered: Trying to add record
I'm trying to insert a record into a database and here's the code:
Private Sub comAddTargetDate_Click()
On Error GoTo Err_comAddTargetDate_Click
Dim dteTarg As String
dteTarg = InputBox("Enter New Target Date as mm/dd/yyyy")
If dteTarg = "" Then Exit Sub
Dim sql As String
sql = "INSERT INTO tblIRM_Products_Service_Entry ([Target date],[Key_ID]) "
sql = sql & "Values ('" & dteTarg & "','" & Me.Key_ID & "')"
And when the box comes up and I enter a date I get this message:
"You entered an expression that has no value."
Any ideas on what I'm doing wrong?
which line it is you get the error?
trouble with Inputbox
OK, I got it to add the date into the database, but the form that shows the date (and uses the Inputbox to add date) does not show the date immediately after the Inputbox is closed, do I need to do a re-query of some sort?
Last edited by randyamos; 08-05-04 at
Reason: wrong explanation