Search results

You are looking to a crosstab query. Create a new query, go to SQL view and Paste this: TRANSFORM Count(the_Query.[Risk_ID]) AS CountOfRisk_ID SELECT the_Query.[First Name], Count(the_Query.[Risk_ID]) AS [Total Of Risk_ID] FROM the_Query GROUP BY the_Query.[First Name] PIVOT the_Query.[Risk...

Function GetWorkDays(dtDateIn As Date, dtDateOut As Date) As Integer Dim x As Integer Dim dtIncrement As Date x = 0 dtIncrement = dtDateIn Do Until dtIncrement = dtDateOut Select Case Weekday(dtIncrement) Case vbMonday To vbFriday x = x + 1 End Select...

Is it failing on the send line? You have to wrap the rs!email in quotes since you are passing a string. DoCmd.SendObject acSendQuery, "submission_reminder", acFormatXLS, "'" & rs!rs!email & "'", , , "blah", "blah", , False

You may want to breakpoint the code and look at the variable mySQL. debug.print sends it to the immediate window. I think there is a quoting issue there. mySQL = "SELECT Tble_Remainingsubmissions.Service FROM tble_practice " & _ "INNER JOIN...

You COULD use DoCmd.SendObject acSendQuery, "submission_reminder", acFormatXLS, rs!EmailAddress, , , "blah", "blah", , False

StrResource = "select typology, fld, fld2, fld3 from myquery "

There is only the typology field because that is the only filed I chose in the select statement in strResource. If you need other fields, just add them to the select statement.

Add the filter for topology to the Tag property of the checkbox. for example Animation. Do not use quotes in the Tag Property of the checkbox First we see if there are any filters checked by looking at the sum of the values (-1 is True) if the sum is zero, no checks. Then we loop the...

What version of access? How many check boxes? Can you add a command button to trigger the filter event? I was thinking about using the checkbox caption as a string value for the filter. do you forsee a problem with that?

This is a fantastic suggestion. I would store the document links in a separate table to allow for a relatioship just in case 1 record needs many docs linked and approved.

I may have to disagree here Pat. Domain functions may be a bit resource intensive espcially when selecting the entire table (assuming that the table is not indexed properly.) I would perhaps open a recordset with a ciriteria and see the recordset returns records, if ot does, pop the message...

THe recordsource of you subform was bound to the value of the combobox. attached is the correction

2010 opens it...

I editted the previous post to correct the code, sorry.

I know that you said that you would like a series of checkboxes, but this may work. Create 2 listboxes (list2), (list3) and set the values list in list2 to the topologies that you wan to filter. here is a sub to help you out a bit. I didn't test it though. May give you an idea. Dim...

Simple. Duh. I should've thought of that!:p

Have a look.

I see. I will start in the middle if I may sAccessCredentialattained = CREDENTIALATTAINED sAccessEmployedatregistration = EMPLOYEDATREGISTRATION Maybe: sAccessEmployedatregistration = EMPLOYEDATREGISTRATION if isnull(sAccessEmployedatregistration) then sAccessEmployedatregistration = ""...

dim strEMPLOYEDATREGISTRATION as string if isnull(me.EMPLOYEDATREGISTRATION) then strEMPLOYEDATREGISTRATION = "" Else if me.strEMPLOYEDATREGISTRATION = -1 then strEMPLOYEDATREGISTRATION = "Yes" Else strEMPLOYEDATREGISTRATION = "No" End if End if

Seeing the new record that is created and the values are not updating is interesting. Perhaps a requery of the offending subform will refresh the data and the code can read the values in the boxes.