Search results

pbaldy: i tried the line you recommended..however, now i get an error: Run-Time Error 3061 Too few paremeters. Expected 1. I verified all field names and all is correct.

Id like to filter thisr ecordset with a value from a form...however...the filter does not seem to do anythong...please advise. Function getCalendarData() As Boolean Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("qry_employeeAttendance", dbOpenDynaset)...

I'm trying to add multiple records using the same sql statement

ive tried this but got an error Private Sub CmdSave_Click() If Me.CmdSave.Visible = "True" Then sql = "INSERT INTO TBL_Pick_Selection([Employee_ID],[Date_Selected])" _ & "VALUES ('" & Me.Text92 & "','" & Me.Sig1 & "')" _ & "VALUES ('" & Me.Text92 & "','" & Me.Sig2 & "')"...

Im not sure how to tell access to insert it as another record.

I have the below sql statement which works fine...Id like to expand it so i can copy multiple values from the form into the same table. EG: id like to copy values from sig2, sig3 sig4 etc..text92 would remain unchanged. Private Sub CmdSave_Click() If Me.CmdSave.Visible = "True" Then sql =...

Perfect..thank you. There were multiples in the data filed and your solution was on point.

Any help is greatly appreciated: Im using code i found on the web to integrate in my application. I keep getting this error: The Key is already associated with an element in this collection associated with this line: colCalendarDates1.Add strCode1, strDate1 Full Code below: Option Compare...

thanks guys: isladogs response worked on the first go

Any help is appreciated: Id like to modify this code so if the dlookup returns no value, then i want to default the value in I1=0. If Me.Sig1 = "" Then Me.I1 = "" Else Me.I1 = DLookup("Occurance", "[Qry_Availability1]", "Date_Selected = Sig1 And [title] = '" & Text89 & "'") End If

This worked like a charm. thank you soo much

I got this code online and im trying to modify it to suite my needs. i would like to execute a filter where: Title_Number in QRY_Calender_Large = [Tempvars]![TempTitleNo] Any help is appreciated Public Sub DisplayMeetings() ' Add any meetings that occur this month to the proper day box...

WOW Cant believe it was a simple as that. thank you much

I keep getting type mismatch error with this code. The first part of the dlookup works ok...the second part after "and" seem to generate the error. Me.I1 = DLookup("Occurance", "[Qry_Availability1]", "Date_Selected = Sig1" And "[title] = '" & Text89 & "'") Title is in short text format in...

Someone please assist..Cant get this to work right....I keep getting the first value in the query and not the filtered value. Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Qry_Availability", dbOpenSnapshot, dbReadOnly) rs.Filter = "[date_selected] = '" & Me.Sig1 & "'"...

Im having some issues with this code below...I suspect the issue may be with me else / else if / if commands....any help would be appreciated: Each group of commands individual works as required....However, once the First and Second commands are clear...the third insert to doesn't execute...

Thanks Guys: CJ London...your solution worked as expected.

Minty, Tried it but i get the same error.Compile error on the same line: elseif me.adjustmentfield Is Null OR me.adjustmentfield Not Like "*[!0-9]*" then

Need some help with this command...Access VBA gives me an error on this: Compile Error...Expected Expression over the (Like) part of the command elseif me.adjustmentfield Is Null OR Not Like "*[!0-9]*" then MsgBox Prompt:="Only Whole Numbers Can be Entered...Try Again!", Buttons:=vbOKOnly...

Im using this code below in query builder....Works fine....But i want it to return all results if i do not select and to and from dates. Please assist. between Forms![StudentForm]![txtBeginDate] and Forms![StudentForm]![txtEndDate]