Hello again all,
First of all I think I should thank everyone on this forum for what I've learnt thus far.
This time I'm going to put together two functions.
=vbaPasswordCheck() and =vbaAppendData have been created as two separate event triggered functions.
I'd now like to know how I can...
changed the text boxes in the forms to be of a "general number" format
(previously it was "fixed")
and changed the TS_Hours field size in the table to "double" and that fixed the problem
cheers rookie
Re: Note that the opening and closing "(" and ")" for the Values clause was left out.
You know this was the problem this whole damn time.
I thank your eye for detail.
I've also used the cstr as you recommended, but there is another problem.
When I try and append 3.5 hours, the table rounds it...
Rabbie my code seems fine.
The error comes from Access as an "INSERT INTO syntax error"
Here's the msgbox and query
By f22a at 2008-09-25
Here's the query being run
By f22a at 2008-09-25
I hope this can clarify things for you
I've changed SELECT to VALUES, but still get the "UPDATE INTO syntax error" message from access when I try execute it.
I've changed the code by introducing two more string variables to clean up the query a bit...then had it output to a msgbox again and the query looks perfect.
Function...
Hey all...
Please have a quick look at my form first...
By f22a at 2008-09-25
I've worked up some code as below...
Function vbaTestAppend()
Dim frm As Form
Dim project_count As Integer
Dim day_count As Integer
Set frm = Forms!frmEmployeeTimesheet
project_count = 0
day_count = 0
Do...
Hi all,
Please read my code...
Function test()
Dim frm As Form
Dim project_box As Control
Dim project_name As String
Set frm = Forms!frmEmployeeTimesheet
Set project_box = frm.cboSelectProject1
project_name = project_box.Name
MsgBox "You have just updated " & project_name
End Function...
hmmm...ive tried to edit your code to suit my application
basically my code is as follows....
it's run at the "After Update" event of combo box Forms!frmEmployeeTimesheet!cboSelectName
(even though the name shows, bound column is 1 ie Employee ID)
then this code is to be executed, running the...
Hi all,
I'm new with VBA so please excuse me...
I know if I wanted to declare a form's text box in VBA,
I should use...
Dim frm As Form
Dim textbox As Control <--
Set frm = Forms!frmNewEmployee
Set textbox = frm.txtExampleTextbox
But what if I wanted to declare a specific table field...
found the solution...
my 2nd combo box's code is...
SELECT tblProject.[Project ID], tblProject.[Project Name] FROM tblProject
WHERE (((tblProject.[Project ID])<>[Forms]![frmEmployeeTimesheet]![cboSelectProject1]));
Hi all,
My form frmEmployeeTimesheet has 5 similar combo boxes.
Similar in that they all have a drop down list of projects to choose from.
cboSelectProject1 has it's row source as...
SELECT tblProject.[Project ID], tblProject.[Project Name] FROM tblProject;
Currently cboSelectProject2, 3, 4...
Thanks sir,
I've taken note of your "boolean" approach for next time.
I've found a solution as I posted this thread.
What I've done is as follows.
'------------------------------------------------------------
' mcrCloseFormEditEmployee <-- old deleted macro
' vbaCloseFormEditEmployee <-- new...
Hi all,
I've realised the limitations of macros and had a quick crash course today.
I'm already stuck and was hoping to find some help here.
My form frmEditEmployee is pretty self explanatory. You can edit employee's details. Please keep in mind that when changes are made, they are saved...
lol me also
ill have the button to just "undo" any action when i click on it
(the button is on the form of my "edit employee" form
ive found that i dont need any macros to "save" any changes as theyre done automatically when i close the form)
Hi all,
Please have a quick look at the pic below...
in the middle of the pic...u can see "tblHours" as well as on the right in the relationships window...as u can see the form on the left will need to append data only to the ONE table so no joins are required...
my problem is that my sql...