Search results

Searched and found a solution for this issue but for some reason its not working for me. Code im using... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.LblNotes.Height = Me.Notes.Height End Sub Results.... BTW the Text box "can grow" Any idea why the label isnt...

Thanks for the Clue. to solve it i needed to a conjuction of html TAGS @ the Start of each line "<div><font color=black>&nbsp;&nbsp;&nbsp;&nbsp;" and at the end "</font></div>" to get the effect... <div><font color=black>1. The safety requirements are based on the assumption that the dock...

im having an issues on diplaying text when access wraps text, with numbering or bullets. The text is curretly set to rich text and this is the issue im having.... my report looks like this... Target text Alignment The safety requirements are based on the assumption that the dock...

Bulk update is a find replace function for rich text field, around 200 charachters long, of which formating is critical. in the text there is one insrtance where there is text = OPTIONS AVAILABLE: which needs to change to OPTIONS DECLINED: before the record becomes locked, the rest of the text...

Hi Pat, thanks for pointing that out. :) I had the Ordertype table in the query (hense tables refreshing on this OrderType_AfterUpdate() ) so i removed it and used the Dlookup function to replace it. Its all fine now thanks for the tip

i think its because of the wrap text, right? Text is growing but bullet is not..... i think. Can you align bullet to top, maybe?

Thanks for the Replys. I discovered that the OrderType_control as its a combo box, refreshes all the tables in the subform during afterupdate event. (i cant figure why its doing it, but it does no code is doing this) so when it tries to... Replace(TmpTxtHeading, "OPTIONS DECLINED:", "OPTIONS...

Maybe its the After update function?? to get it working i tested the code on a button and it worked so i dont know what the issue is... Private Sub Command185_Click() Dim TmpTxtHeading As String Dim NewTxtHeading As String Dim rst As Recordset If...

Hi Chaps, i Hope you can help im running into problems with this code.... Private Sub OrderType_AfterUpdate() Dim TmpTxtHeading As String Dim NewTxtHeading As String Dim rst As Recordset Set rst = Me.FRmQ_OrderItemSUB.Form.Recordset Me.OrderMainText = Me.MainQtext Me.DocumentsInc =...

Great Advise i added a new button to the form just to update the date and it seemd to do the trick. really dont know why but noticed the debug print from this.. UPDATE TblOrderCustLink SET QuotePrintdate =#11/02/2022# WHERE OrderCustLinkID = 1; to this... UPDATE TblOrderCustLink SET...

in the sql query builder i use [CODE]UPDATE TblOrderCustLink SET TblOrderCustLink.QuotePrintdate = Date() WHERE (((TblOrderCustLink.OrderCustLinkID)=[forms]![FRM_Order]!

added "DBEngine(0)(0).Execute strSQL, dbFailOnError" beleive i must have deleted when trying varous versions of the codes above but still no banaba

i have put the debug.print code in a query window and ran it, the results are... after clicking on Yes i closed and saved the query and opened the table. it did not update the date as expected (same as VBA code) hope this helps

As you can see from the screen shot #8 of the table im expecting the "QuotePrintDate" to update from 01/02/2022 to todays date . In a similar way when i run the query manually, which in sql view it looks like this.. [CODE]UPDATE TblOrderCustLink SET TblOrderCustLink.QuotePrintdate = Date() WHERE...

debug print now shows... UPDATE TblOrderCustLink SET QuotePrintdate =#11/02/2022# WHERE OrderCustLinkID = 1; But still not updating the table :(

table im trying to update is TblOrderCustLink... QuotePrintDate to todays date where OrderCustLinkID = 1 ( as you can see its not updating to todays date.) Debug print = UPDATE TblOrderCustLink SET QuotePrintdate =#11/02/2022#WHERE OrderCustLinkID = 1; in full the code is... Private Sub...

Thanks for these replies so far i have tried... Code runs but the date feild didnt update ( think i implemented it correctly) strSQL = "UPDATE TblOrderCustLink " & _ "SET QuotePrintdate =#" & Date & "#" & "WHERE OrderCustLinkID = " & _ Me.QuoteOrderCustLink & ";" and strSQL =...

Hi i cant get a really simple peice VBA code to work Have tried, but with no success.. strSQL = "UPDATE TblOrderCustLink " & _ "SET QuotePrintdate = Date() " & _ "WHERE OrderCustLinkID = " & Me.QuoteOrderCustLink & ";" works well in a Query, SQL statement... [CODE]UPDATE...

brilliant forum, brilliant members, perfect solutions. ..... Thanks @DBguy it worked at reat! sorted now.