Recent content by bwc

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...

no worries. i will give your qry suggestion a try. you have been much help, thank you

i am having trouble with the "Or" statement;Option Compare Database Option Explicit Sub printFlu(optArgs As String) Dim repFilStr As String repFilStr = "clstrFlu = True Or clstrHep = True Or clstrTdap = True" & IIF(Len(optArgs)>0, " AND " & optArgs, vbNullString) DoCmd.OpenReport "rptFlu"...

Thank you for your quick reply, Paul, works great Thanks again for setting me on the right path!!

I am stuck. I am trying to create a public function that will print a report so that i can call the report from different forms. i have this code that opens rptFlu (bound to qryClinicData - query is not filtered); Option Compare Database Option Explicit Function printFlu() DoCmd.OpenReport...

thanks CJ. this project is looking match cleaner with your help. i also replaced the if statements with abs. Bryan

:o the if tests the table field the code is Option Explicit Dim tglht As Double, lftPos As Double Private Sub Form_Load() ' 1440 twips = 1 inch; multiply twips x inch tglht = 0.3 * 1440 lftPos = 0.2 * 1440 Dim i As Integer For i = 1 To 6 Me("s" & i).Height = 0...

would the code be - "If Not IsNull(Me!lodstrSSN) Then Me!tgl1.Height = .3 * 1440 Else Me!tgl1.Height = 0" ? when i use this code i get control overlap. i have attached a screen shot