Search results

Thank you. That worked

thank you for your reply. I do have something similar to that. I want to put it in a function because I find myself duplicating code... Private Sub indPaidRptBtn_Click() DoCmd.OpenReport "pbR", acViewReport, , _ "Clinician=""" & openRptCbo & """ and [isPaid]= True and...

The Debug.Print shows the results I want to see. Lots of True and False Public Function chkQry() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM reportQ") While Not rs.EOF Debug.Print rs!Clinician = " & openRptCbo & " And rs!dateEntered =...

that did it! thanks for your help

MsgBox Dir(destPath) came up empty, whats that tell me?

i am still useing access 2010, if that matters

debug.print shows C:\Users\bryan\Documents\msAccess\beacon\backup; so why does the code not skip the mkdir?

the directory does exist, i was expecting the code to skip the mkdir if it evaluated false

i added a "check for dir" to the code and the code will make the directory and copy the file if the dir does not exist, but i get a "runtime error 75: path/file access error" on the MkDir (destPath) line if the dir already exists. what am i missing? Public Function BackUpAccess() Dim...

thank you, arnelgp, works wonderfully now

with the help from this site and others, i have cobbled together this code and have had it work. however, this site i wish to extract data from gives me an error 5. Private Sub Command56_Click() 'On Error GoTo ErrorHandler Dim rstSsn As DAO.Recordset Set rstSsn =...

The Master Sergeant wanted me to run a report at the end of the day, and then email it to him… easy enough. He also wants a summary of the report in the body of the email. :banghead: There must be a way to have access do this for me. So… I started with this code from Twinnyfo...

thank you cj, that did it

i am sure that i am missing something simple. i have viewed pbaldy's thread, http://www.access-programmers.co.uk/forums/showthread.php?t=205231 and http://www.baldyweb.com/wherecondition.htm but my code still is not outputting what i expect. my function is; Function ckIn() Dim dbs As...

i am stilll stumped on this. this is where i am at: Function printFlu(optArgs As String) Dim repFilStr As String repFilStr = "clstrFlu = True" & IIf(Len(optArgs) > 0, " AND " & optArgs, vbNullString) repFilStr = "clstrHep = True" & IIf(Len(optArgs) > 0, " AND " & optArgs...

Thanks Sean, I got it to work

I am still trying to learn how to use VBA I want to get the code from field "sidstrACT_STA_PROG" and return what i have in my select...case function. but i am getting the same return as the sidstrACT_STAT_PROG field. my code is; Option Compare Database Option Explicit Function...