Search results

  1. SHANEMAC51

    Notes field, quotations, apostrophes, and error messages

    first, check what Me.txtNotes is, maybe it's null - an empty string , try to work around it Dim strSQL As String,s1 as string s1=Me.txtNotes & "" s1=Replace(s1, "'", "''") debug.print s1 strSQL = "UPDATE tbl Inspection Event " & _ " SET Notes = '" & s1 & "' , " & _
  2. SHANEMAC51

    Subform in a tab control not allowing any editing

    maybe at the same time the subordinate form opens only for reading
  3. SHANEMAC51

    Form button works for some but not others

    perhaps there is a line on error ...., but in TOOLS there is a check mark stop for all errors it is necessary to stop for unprocessed errors
  4. SHANEMAC51

    Many-to-many - Joint table and form

    I would do this - there is a main ribbon form with dynamic search for the value of any field (conditions in green fields, the code is not written) - - the yellow fields on the form should be protected from correction, they are only for selection - pink fields for calling subordinate forms (there...
  5. SHANEMAC51

    Blog Ideas

    I try not to use service words as variables, so I would write dim f1 as string f1 = "[Years] = " & me.f_Years F1 = F1 & " and [Grade Desc] = '" & me.f_GradeDesc & "'" F1 = F1 & " and [TERM] ='" & me.f_TERM & "'" F1 = F1 & " and [Examination Type] = '" & me.f_Examination_Type & "'" ''MsgBox F1...
  6. SHANEMAC51

    Blog Ideas

    this code can be written in one line Filter = "Years = " & Years Filter = Filter & " and Grade Desc = '" & GradeDesc & "'" Filter = Filter & " and TERM ='" & TERM & "'" Filter = Filter & " and Examination Type = '" & Examination Type & "'" 'MsgBox Filter DoCmd.OpenReport "REPORT FORMS"...
  7. SHANEMAC51

    Solved Summary report, subtotals grouped by week

    an example of a database would be more useful for understanding your task the week from December 27 to January 2 is more interesting, what is the number of the week and what year it belongs to
  8. SHANEMAC51

    Query Training

    remove unnecessary fields, leave only the necessary grouping fields and fields for the SUM SUM, the ID field can be applied to the quantity, the COUNT function the problem is that someone else's information is on the site, you need to study on your own base, although you still need to read the...
  9. SHANEMAC51

    Query Training

  10. SHANEMAC51

    Solved FILTER BY FORM

    and sometimes it is necessary to check the search conditions for an additional 1- the presence of apostrophes or quotation marks in the field 2-what is contained in the substitution field (code or value) 3- for date - mm/dd/yyyy format 4- an interval of dates or prices/costs is possible and both...
  11. SHANEMAC51

    Solved FILTER BY FORM

    I often use the code from No. 5, but even more often the following, especially if you need to select not all 4 search fields, but 1-3 fields or part of the value, for example from A+, A, A-, B+, B, B-..... select all B or all D dim f1,f2 f1 = "" f2=f_Years & "" if len(f2)>0 then f1 = f1 & " and...
  12. SHANEMAC51

    Solved FILTER BY FORM

    Data entry setup (fixed the main form, filter), 3 subordinate ribbon forms for navigating classes/semesters/topics I didn't look at the results, PINK FIELDS are NEEDED, they provide navigation through forms
  13. SHANEMAC51

    List Box Help

    when I need to see several fields when selecting (often long ones), I use a dialog form instead of a list with the ability to select by any field, including by partial value and a combination of several fields
  14. SHANEMAC51

    Solved FILTER BY FORM

    Student ID Last Name First Name Gender NAME OF THE SCHOOL KCPE Grade Year ID Grade ID Stream ID Term ID Exami nation ID Subject ID Mark SubjectAbr Description 2 CHEP KOECH MILLI CENT FEMALE MARUM BASI SECON DARY SCHOOL 430 1 1 1 1 2 14 50 AGRI Agriculture 2 -/- -/- -/- -/- 430 4 2 2 2 2 6 60...
  15. SHANEMAC51

    Solved FILTER BY FORM

  16. SHANEMAC51

    A little help with If, Else and Exit sub

    Private Sub btn_StopOrdre_Click() Dim intanswer As Integer If len(cbm_Medarbejder & "")=0 Then intanswer = MsgBox("Husk at vælge medarbejder fra dropdown listen", 64, "Vælg medarbejder") Forms!frm_ctn_list!cbm_Medarbejder.SetFocus Exit Sub End If If len(DCount("No_"...
  17. SHANEMAC51

    A little help with If, Else and Exit sub

    [КОД] Частная субмарина btn_StopOrdre_Click() Dim intanswer As Integer Если len(cbm_Medarbejder & "")=0 То '''''''''''' intanswer = MsgBox("Husk at vælge medarbejder fra dropdown listen", 64, "Vælg medarbejder") Формы!frm_ctn_list!cbm_Medarbejder.SetФокус Выход из sub Закончить, если...
  18. SHANEMAC51

    Solved FILTER BY FORM

    you have 12 tables, but only 4 of them (Figure 2) are important for the scheme , two tables (for GENDER and school) are embedded in the table, students marked the numeric fields in green, which are formatted without quotes in the filter , orange are text fields, in quotes substitutions usually...
  19. SHANEMAC51

    Solved FILTER BY FORM

    I am unlikely to be able to help you - I do not know English, my messages are translated by Google, you need to either study some textbook yourself or look for an English-speaking consultant
  20. SHANEMAC51

    Solved FILTER BY FORM

    you need to read about the productions and do them the same way in the tables and the format now they are different for you, therefore it is chosen incorrectly in one student * obvious lies) and it is unlikely to form correctly for all students (although it works)
Back
Top Bottom