Search results

in such forms, I search for an arbitrary combination of the main fields (department, cabin,service number, surname, first name, position, city, ........- for all the main fields of the table / query), I highlight them in a ribbon (tabular) form for visual final selection when you click on the...

renamed RAR archive NgayTmaxT1T2T3T4NgayT1T2T3T4 10-окт-2163221310-окт-213252629 13-окт-212320143210-окт-214262730 15-окт-215584310-окт-215272831 17-окт-219489110-окт-216282932 20-окт-2155424713-окт-2120343739 22-окт-215321313-окт-2121353840 24-окт-2176232113-окт-2122363941...

Public Sub Reset() Dim txtCID As Variant 'txtCID.Value txtCID = AutoNumberReturn("tbl_Customer", "CID") Me.CustomerID.Value = AutoNumberReturn("tbl_Customer", "CID") MsgBox Me.CustomerID.Value & " or " & txtCID End Sub

yes!

it seems like all the brackets are in place with pseudocode it can be written like this NULL means the field is empty, not filled in If [Last Name]=null then If [First Name]=null then kupfile=[Company] else kupfile=[First Name] else If [First Name]=null then...

you have blocked the output of warnings, so you do not know the result of the request

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