Search results

Tks J I found the problem for the first issue. the original formatting of the first control to the left was not 0. I moved it to the extreme left which is much easier than changing the code to match the left property. the result was great. as for the second issue, also, i could go around it and...

Thank you JHB it looks like we were posting at the same time. I tried yours and it is working for an extent. While it took care of the initial problem, it created two issues, it is little complicated: 1- drawing a box around each control is not working as originally was set to be, as now it...

I tried the following procedure on the On Format property, it did not work but did not give any error either: " Dim lngTallest As Long Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox Then If ctl.Height > lngTallest Then lngTallest =...

Actually i really understand what it does and that's why i explained myself. What your code will do, is adding spaces to the [MyField] field to match the string length of [STest]. If you have in [STest] two words with 3 letters each, but each on a separate line, the Len([STest]) will return 8...

Sorry if I did not make it more clear. The issue has nothing to do with Len([STest]). They contents of STest could be two words only, but each on one line, which triggers the Can Grow of the control. I don't think this code will work.

I have a report that prints lab tests. One section has 4 columns that are framed. Only the first control (STest) expands to more than one line. The Can Grow works on this control and subsequently the section expands. I need a code that expands the height of the other three controls to match that...

thanks a lot. please ignore my last repeat :rolleyes:

worth to mention that i replaced acSpreadsheetTypeExcel9 with: acSpreadsheetTypeExcel12 am not sure if it has any bearing on the outcome

worth to mention that i changed acSpreadsheetTypeExcel9 to: acSpreadsheetTypeExcel12 i am not sure if this has any bearing on the outcome

Yeyy... worked finally... lots of debugging many thanks :)

am sorry, it was a typo in my message that i already corrected

i ran a few tests now. the Debug is not showing any errors. when i execute the procedure using the button associated with, get this, before adding the DAO to the two statements, the line i mentioned turns yellow... when i add the DAO, the next line is yellow: Set Path = r.Fields("FilePath")

same error and mesaage

could it be in the line: "acSpreadsheetTypeExcel9"

exactly the same message and error

Thanks but did not work

I have the following code to import an Excel sheet into my Access app. I wrote the code in Access 2003 a couple of years ago and now using Access 2013. It worked fine with both versions till today. It is giving me a "Type Mismatch" error and hangs on the line in red. Any help?? " Dim d As...

thanks Ling.. this will do to solve my problem... me too i forgot about it completely. i am definitely going to stop using the Sendkeys. Closing this thread as solved

sorry... did not work.. still hanging at that line regardless of is position... there must be something in windows 8 that is preventing the Sendkeys from working as i tried a simpler code just for testing like Sendkeys "{Tab}" and it stopped too :)

the user wants to search the records based on Any Part Of a specific field. the code is simple and was working on access 2003: ' CboFirst.SetFocus DoCmd.RunCommand acCmdFind SendKeys "%ha%n" ' I noticed that when the Find and Replace is activated, the short cut letters are not...