Search results

Private Sub cmdComment_Click() Dim strComment As String strComment = "UPDATE Leave " _ & "SET [Comments] = [Comments]" & "; '" & Me.txtComment.Value & "' " _ & "WHERE ((Leave.[Start Date]) = #" & Me.txtStart.Value & "# AND (Leave.[End Date]) = #" &...

everything i try gives me a syntax error end of statement highlighting the semicolon

Yeah, Since i have my soldier data form as my ParentA and Leave is my ChildSubForm I have Leave as data entry and my soldier data is not data entry. They are linked through ID and when I go to any soldier the leave subform has the most recent data in the boxes instead of being blank.

Is there a way to add in a separator between [comments] and me.txtComment? I want a "," or ";" but im getting syntax and if I add in a single quote then it comments out the line. Private Sub cmdComment_Click() Dim strComment As String strComment = "UPDATE Leave " _ &...

ah ok thank you I wasn't thinking i guess.

If you put a couple records into ChildSubForm save them and then open ParentA do you not see the most recent entry in ChildSubForm?

I thought that creating an update SQL that it would add to the existing data in the table but it instead overrides the data with the new data. Private Sub cmdComment_Click() Dim strComment As String strComment = "UPDATE Leave " _ & "SET [Comments] = '" &...

that sounds like it would work, Where would I put the filter?

I don't want it to display ANY records. I want it to open blank and be fillable.

I have Form Soldier Data, with subform Leave. Subform Leave is set to data entry and has parent child with ID so they link. When i open Soldier Data the subform still has the record last submitted instead of being blank. Is there a way to set default blank or maybe have on open it sets the...

Thank you all for the help along the way, now I am at the part where I have no clue where to even start to make work. I need to loop through the recordset of all the leaves and put them acurately into the spreadsheet. strLeave = "SELECT Roster.[DoD ID], Leave.[Start Date], Leave.[End Date]...

no error message, I just input his data into the table directly

Yes, the command works everything is as planned except this one person.

Yes the command works everything is as planned. Everyone in this database are using the same date formats I have a date selection box so its all standardized.

oh sorry that button is supposed to take the text in txt.Comment and put it in the Leave table where the dates match up to add comments to the leave transaction. Now to add more into this weirdness, it is working with EVERYONE except this 1 person.

This was working last week and now it is not and I am stumped as to why. Nothing involving these fields have been changed except I removed clearing the boxes after the SQL runs. Private Sub cmdComment_Click() Dim dbCurr As DAO.Database Dim strComment As String Set dbCurr =...

I am going to make a macro button that my users will push and just a query will open that shows all without them having to filter. SELECT Roster.[Last Name], Roster.[First Name], Roster.Platoon, Roster.Outbound, Roster.ETS FROM Roster WHERE (((Roster.Outbound)<=DateAdd("d",180,Date())) AND...

Is it possible to query off of 2 different values? I have a table that has 2 date fields, 1 for when they leave the army and 1 for when they leave the duty station. Is it possible to pull a query that gives me everyone that is 180 days from either of those 2 dates?

Dim rng as Range doesn't work in access. I kept seeing that in all my googles but couldn't get it to work in my database. I keep getting the error "User-Defined type not defined"

Yeah I just needed the 1 line to put the recordset into the spreadsheet. xlSh.Cells(4, 1).CopyFromRecordset rsRoster that worked perfectly. My next issue is shading the weekends, I searched and found ability to shade a cell based on whats in the cell, but I want to shade the whole column based...