Search results

This won't be a problem, since you can also use the function in your code. Private Sub ObjectName_GotFocus() FRMControlFocusInOut Me.Name, True 'Highlighting Control ' your code ... End Sub Private Sub ObjectName_LostFocus() FRMControlFocusInOut Me.Name, False 'Highlighting Control...

Yes! - we do. Step 01 Set BackColor (of selected fields) to #FFFDD1 Step 02 Set back style (of selected fields) = Transparent ... And "hocus pocus" is ready. :cool: Good luck!

I meant, almost the same result I think - the more choice of solutions - the better

01. Setting the field back color (Light Yellow) 02. Making the field back style transparent - Done! When the field gots focus, it restores the background color

And ... Almost the same without any code at all (y)

the same with less code ...

Try to use semicolons instead of commas as separators of function arguments

Public Function GetDaysFromText(vValue) As Integer Const sDelimiter$ = "," Dim sArr$() sArr = Split(vValue & "", sDelimiter) GetDaysFromText = UBound(sArr) + 1 End Function Test: ?GetDaysFromText("Mo, Tu, We, Th, Fr") 5

'Saving a report to PDF Dim sPath$ sPath = "D:\temp\Report_01.pdf" DoCmd.OpenReport "DataTest", acViewPreview, , "RecIDAuto=1", acHidden DoCmd.OutputTo acOutputReport, "DataTest", acFormatPDF, sPath, False DoCmd.Close acReport, "DataTest" Or this way: Dim sReportName$...

I'm sorry, I don't understand your question. What did you mean by "save it under their profile?"

Okay, perhaps I just misunderstood your task. Good luck!

Try:

No, unfortunately. Today I urgently need to fix reporting to the compulsory health insurance fund, not a lot of work, but it needs to be done.

It seems I found what's wrong. This is my mistake - as it turned out, you can not add records to the child table until the record is saved in the main one.

I can't get to that error. Please describe the exact order of your actions.

Hm ... Well.

Here you are! :giggle:

Try to use CopyFromRecordset method.

try replacing the line: ... , Format(Sum([Nodes_UP].[UnitPrice]*Count([NodesList].[Nodes])),"Currency") AS Total ... to ... , Format(Count([UnitPrice])*Sum([Nodes]),"Currency") AS Total ... You have a round bracket in the wrong place.

None at all!