TBotNik

All, Have a frustrating report problem. Have code of:[code]Function RAmount() HrsAmt = DLookup("trp_ham", "qryTIMshtS", "[trp_id]=" & Me![Row_ID]) MilAmt = DLookup("trp_mam", "qryTIMshtS", "[trp_id]=" & Me![Row_ID]) RAmount = HrsAmt + MilAmt End Function Function RCount() RCount = DCount("trp_id", "qryTIMshtS") End Function Function RTotal() HrsTot = DSum("trp_ham", "qryTIMshtS") MilTot = DSum("trp_mam", "qryTIMshtS") RTotal …

All, Having a problem with process flow while printing. I have a process that: 1. Pulls and Prints a summary sheet grouped by client (report 1), 2. Pulls and Prints a seperator page with Client Name (report 2), 3. Pulls and Prints the Client tickets for the Client (report 3) …

All, All the help & HOWTOs say you can get subtotal from groupings and grand totals with the use of: =sum([fieldname]) and I have used this in the past, but current report is erroring by giving the popup, asking for value entry on each of these I placed in the …

All, Have a set of nested forms/subforms in this order: frmMain => sfmMain => ifmTABset => sfmUSR => sfmSETcfg where sfmMain & sfmUSR are the control fields containing the subforms being called and the TAB control TabCtl0 resides in the TABBED form of ifmTABset. I am trying to open the …

All, Have a form with over 189 controls on it and trying to automate the save. I currently use the following script to init the fields: [code] On Error GoTo Err_Msg For Each ctl In Targetform.Controls ' 100 = Label, 106 = CheckBox, 109 = TextBox, 111 = ComboBox Select …

All, Trying to get a date WHERE statement to run to pull all records for the month. What I have is: [code] Dim SQL_Str, DatStr, MonVal MonVal = Get_Month(TargetForm![cboxMON]) DatStr = MonVal & "/*/" & TargetForm![cboxYER] SQL_Str = "SELECT * FROM qryREPrev WHERE ([tim_ted]= like #" & DatStr & "#)" …

All, I'm writing a script/function to automated putting buttons on the screen. I'm running into a problem with var substitutions in my strings, which is necessary to make it run. Here is my code: [code]Function Get_Btn(MyForm) Dim Wspace As DAO.Workspace, dbs As DAO.Database, rsDEST As DAO.Recordset Dim SQLstmt As String, …