Search results

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!

textual arguments must be enclosed in quotes aa = DSum("IncTotal", "Income", "mmyy = '" & vmth & "' AND IncCA = & vt & " AND Incyy = 'vcy'") ... AND Incyy = 'vcy' ... :) Hint: The third argument of the Dsum() function (and similar ones) is constructed according to SQL WHERE rules Good luck!

... of sorting field ... the sorting field event, not the form event Otherwise the cursor will be reset Together: Use "After Insert" form ivent and "After Update" of sort field ivent.

Post #7

That's is better way!

01. Set "Order By" your form propery as you wish 02. On "After Insert" ivent of form set code: Private Sub Form_AfterInsert() Me.Requery End Sub

Ye-ee-e-s-ss!

Another way: Use a Label control instead of a button, it also has an "On Click" event. Private Sub LabelTest_Click() MsgBox "There's no border around the Lable!", _ vbInformation, "Use a label instead of a button!" End Sub