Recent content by gdev

Please help, Each construction project has an unique set of initial and monitoring questions to be answered. The construction project can have many locations and may have multiple monitoring questions in 6 months intervals. Also, some of initial and monitoring questions are the same. Some...

Hi, I have these totals in the report: =Sum([custcnt]) =Sum(Val([wgt])) =Format$(Sum([glamt]),"$#,##0.00") only sum([custcnt] is appearing on the Excel export. I am using Access 97 and using DoCmd.OutputTo acOutputReport, r2xls, acFormatXLS to export. Does anyone know why the other totals...

Thank you, Thank you, for your responses. I am going to need some guidance on looping through the fields collection to build the sql statement. Please assist. Thanks

Query? How can I use a query when I don't know what the 3 dates fields will be. Everything is done programmatically. The user clicks a button and the table results are exported to Excel. Please assist. Thanks

I have the following code: With tblXL .Fields("0").OrdinalPosition = 0 .Fields("1").OrdinalPosition = 1 .Fields("2").OrdinalPosition = 2 .Fields("3").OrdinalPosition = 3 .Fields("4").OrdinalPosition = 4 .Fields("5").OrdinalPosition = 5 .Fields("6").OrdinalPosition = 6...

Thanks, Thanks! It works beautifully

Hi, Please assist. I have a thick border around range and range a5:l8 I want thin borders around cells in range from a5 to the end of range. The below code gives me the thick borders I want not the cells within the range. Set rngAL8 = Range(Cells(Rows.Count, "A").End(xlUp), Range("l5"))...

That's it! Thank you.

Do you get a right border for each column? _____|________|________| _____|________|________|

Thank you. However, the bottom border is working but not the right border. Any suggestions?

Why isn't this code working? I want bottom and right borders from a7:l7 to the last row. Dim rng As Range Set rng = Range(Cells(Rows.Count, "A").End(xlUp), Range("L7")) With rng .Borders.LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlContinuous...

Please Assist I would like a bottom border For each row on the sheet from columns a:l For some reason this code does not work. What am I missing? Dim x As Integer Dim lastrow As Long lastrow = Range("A65536").End(xlUp).Row For x = 7 To lastrow ActiveCell.Columns("A:L").Select...

Wonderful People, Thanks!

Hi, I have 6 comboboxes. The user wants to be able to sort/filter in any combination with these comboboxes. I have decided to change the rowsource(query) after each combobox update. All of my data is displayed is a listbox. My first problem is I can't seem to get the listbox columnwidth to...

Hi, Please assist. amtField is defined in the table as follows datatype = number fieldsize = double format = percent In the form I want to change the formating of this field for certain records I have tried the following iif statements in the text box control source: =iif([name] = "Jane"...