Search results

Private Sub cmdFolder2_Click() Dim sPath As String sPath = Environ$("UserProfile") & "\documents\test" & Format(Now(), "yyyy_mm_dd_hh_nn_ss") forceMKDir (sPath) End Sub Public Function forceMKDir(ByVal sPath As String) Dim v As Variant Dim s As String Dim i As Integer...

Private Sub cmdFolder_Click() Dim sPath As String, d1 d1 = Format(Now(), "yyyy-mm-dd hh-nn-ss") d1 = Replace(d1, ":", "_") d1 = Replace(d1, ".", "_") d1 = Replace(d1, "\", "_") sPath = "c:\This PC3\Documents\Test" & d1 forceMKDir (sPath) '' start1 '''' c:\This...

apparently the program would split your table into 2, adding fields for communication the names of the fields are conditional, since I do not know the real ones

en: I always debug in a regular macro, which is easily translated into code for verification the difference with you is the name in quotation marks with me - through an exclamation mark ! ru: я всегда отлаживаю в обычном макросе, который легко переводится в код для проверки отличие у вас -...

in Greek there should be only data and TEXT on buttons and label

Forms with filters do not open, apparently Greek letters in the names of controls affect additionally, this is affected by the fact that subordinate forms are filtered through direct access to the fields of the main form (with Greek characters), in which the selection conditions are entered it...

the main thing that is practically necessary in such databases is the names of objects (tables, forms, reports, queries, fields) 1 english name - preferably 2 or at least the English transcription moreover, without spaces and other separators, only the underscore character is allowed, for...

Function MACRO21() With CodeContextObject DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal If (.MeetingByMember = True) Then Forms!MainForm.RecordSource = "MeetingsByMemberQ" Else Forms!MainForm.RecordSource = "AllMeetingsQ" End...

'converting an embedded macro into code shows that the macro is incorrect '------------------------------------------------------------ Function macro1() On Error GoTo macro1_Err With CodeContextObject DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal If...

SELECT Medic, Max( [Flight Date]) AS [LastFlight], [Medic Activities] FROM [Flight Card] WHERE [Medic Activities].Value = "1" GROUP BY Medic union all SELECT Medic, Max( [Flight Date]) AS [LastFlight], [Medic Activities] FROM [Flight Card] WHERE [Medic Activities].Value = "2" GROUP BY...

your query uses 1 table, but at least 3 of them should be penalized, not counting directories 1 flights(code, date, route, reason for flight) 2 flight+ people(code, flight code, person code, person position) 3 useful human activity(code,code flights+ people, activities, what additions) with...

PERHAPS IT IS ENOUGH TO FIX ONLY the CODE I will try on the source base, without my other fixes

I didn 't find the error right away , so I first removed it from requests and forms 1 reserved words YEAR and MONTH 2 then I entered aliases in the queries so that the Greek letters in the names did not get into the form when the report didn't open after that, I started checking the code(for...

I slightly corrected the names in the request, form, report, because I thought the Greek letters were to blame but the main error is in the report setup code, which is in the form

it is your example that is needed you are doing something wrong and the sample should help to understand your mistake usually calling reports from the form does not create problems

lay out an example of the form and reports that you could see 1 how do you open the report 2 and on what data apparently the problem is in the sampling conditions

Check: trim( (" "+[Detailed Inspections TBL]![Limit 1]) & (" " + [Detailed Inspections TBL]![Unit 1]) & iif(isnull([Detailed Inspections TBL]![Limit 2]) and isnull([Detailed Inspections TBL]![Unit 2]),""," /") & (" " + [Detailed Inspections TBL]![Limit 2]) & (" " + [Detailed Inspections...

when reports with special formatting requirements are needed, they form a report in the WORD document format.

it won't work with the [p] tag, access doesn't have such a tag, with the [div] tag I posted a screenshot for you

Check: trim([Detailed Inspections TBL]![Limit 1] & (" " + [Detailed Inspections TBL]![Unit 1]) & (" / " + [Detailed Inspections TBL]![Limit 2]) & (" " + [Detailed Inspections TBL]![Unit 2]))