עקסעס: הילף

אמת לאמיתו · מאנטאג יאנואר 11, 2016 8:57 pm

פאטאקי08 האט געשריבן: נישט עכט
ווילסט פרובירן אביסל קלארערצושטעלן?

וויאזוי זאגט מען? אז עס פעלט אין הסברה פעלט אין הבנה!כהאב מיך געטריייט בעסער מסביר זיין, האב איך שוין געכאפט די תירוץ אויכעט, אבער אז איך האב שוין אנגעהויבן וועל איך עס איבערגיין.

איך וועל אנהייבן מיט א סעמפעל:
איך האב אן item table מיט א 2 fields איינס איז א key number און איינס איז א description.

ווען איך וויל האבן א field פון items אין די database, מאך איך א combo box פון די item table.
די וועג וויאזוי איך מאך די combo, איך select ביידע fields, די ערשטע איז די key number און די צווייטע איז די description, נאר איך hide די key number (די column widths איז: "1,"0) און איך store די combo אין א item field (וואס איז א number field), וואס דעמאלטס קומט אויס אז זעהן זעסטו די description, אבער עכט שרייבסטו אין די database א נומבער. (איך מיין אז דעס איז שוין יא קלארער, איז וואר פאטאקי?)

וואס קומט יעצט אויס? אז אויב ווילסט מאכן א קאוד אויך די combo, מיזטו רעדען פון די Item number אין די קאוד, ווייל דאס איז פארשריבן אין די database.

די סיבה פארוואס איך מאך אזוי? ווייל אזוי האט מיך מיין מלמד אין חדר אויסגעלערנט און איך פאלג שיין.
אבער מיין פראגע יעצט איז אויב דאס איז טאקע א גוטע וועג? אדער קומט ענדערשט צו מאכן אז עס זאל זיך אויפשרייבן די description אין די database דורך די combo, מ'זאל קענען מאכן א קאוד אויף דעם?

בין איך שוין גענוג קלאר??

פאטאקי08 · מאנטאג יאנואר 11, 2016 11:08 pm

אמת לאמיתו האט געשריבן: אבער מיין פראגע יעצט איז אויב דאס איז טאקע א גוטע וועג? אדער קומט ענדערשט צו מאכן אז עס זאל זיך אויפשרייבן די description אין די database דורך די combo, מ'זאל קענען מאכן א קאוד אויף דעם?

יא כך דרכו
אויב ווילסטו אבער פאר עני אנדערע סיבה צוקומען צום דעסקריבשען קעסנטו שרייבן אזוי

קאוד: וועל אויס אלע

 me.combo1.column(1)

אמת לאמיתו האט געשריבן: בין איך שוין גענוג קלאר??

יאפ זייער קלאר

אמת לאמיתו · דינסטאג יאנואר 12, 2016 5:20 pm

א גרויסן שכוח !!!
ווילסט אפשר אויכעט קלארער מאכן וואס די זאגסט??

איך געב דיר א סעמפעל פון א קאוד:

קאוד: וועל אויס אלע

 If ItemCombo = order Then
   DoCmd.OpenForm "SOrderF", , , "TicketID = " & Me.TicketID
End If

און די פארעכט עס מיט וואס די האסט געשריבען.

נאכאמאל א גרויסן שכוח !!!

אמת לאמיתו · מיטוואך יאנואר 20, 2016 10:31 pm

איך האב מיך נאכנישט מייאש געווען אויף מיין פרעדיגע שאלה! פאטאקי, אויב האסטו נאך א מינוט פאר מיר בין איך גרייט אויסצוהערן.

אבער לאמיר גיין נעקסט:
וויאזוי DELETE מען א RECORD אין א Continuous Forms, איך וויל DELETED יענע ליין ווי איך שטעל די באטען

איך טריי מיט DoCmd.RunCommand acCmdDeleteRecord, אבער ס'גייט נישט, קוק אויס אז ער האט נישט קיין פויקעס

עני סעלאשען ???

גרויסע שכוח

פאטאקי08 · דאנערשטאג אוגוסט 09, 2007 1:30 pm

אמת לאמיתו האט געשריבן: איך האב מיך נאכנישט מייאש געווען אויף מיין פרעדיגע שאלה! פאטאקי, אויב האסטו נאך א מינוט פאר מיר בין איך גרייט אויסצוהערן.
קאוד: וועל אויס אלע
 If ItemCombo.column(1) = order Then
   DoCmd.OpenForm "SOrderF", , , "TicketID = " & Me.TicketID
End If 
אבער לאמיר גיין נעקסט:
וויאזוי DELETE מען א RECORD אין א Continuous Forms, איך וויל DELETED יענע ליין ווי איך שטעל די באטען

איך טריי מיט DoCmd.RunCommand acCmdDeleteRecord, אבער ס'גייט נישט, קוק אויס אז ער האט נישט קיין פויקעס

עני סעלאשען ???
קאוד: וועל אויס אלע
 SendKeys "^-" 
גרויסע שכוח

אמת לאמיתו · מיטוואך פעברואר 11, 2015 5:34 pm

wow wow!
איך האב נישט געוויסט פארוואס מען טאר זיך נישט מייאש זיין
(אאד"ו יעצט פארשטייסטו פארוואס כהאב געפרעגט נאך א קשיא ??)

Just kidding א גרויסן שכח מר פאטאקי יר"ה

אויב די וועסט לויפן פאר פרעזידענט העל איך נישט וואויטן פאר דיר כוועל נישט האבן וווער עס וועט ענטפערן :grin:

אמת לאמיתו · מיטוואך פעברואר 11, 2015 5:34 pm

פאטאקי08 האט געשריבן:
עני סעלאשען ???
קאוד: וועל אויס אלע
 SendKeys "^-" 

מען קען נישט אויסלעשען די cascade delete warning פאר די related tables, מיט set warning to false ???
(איך וויל לייגען מיין אייגענע ווארנינגען)

פאטאקי08 · דאנערשטאג אוגוסט 09, 2007 1:30 pm

קאוד: וועל אויס אלע

     DoCmd.SetWarnings False
    SendKeys "^-", True
    DoCmd.SetWarnings True

דארפסט געדענקן אז אויב די פראסידער קראכט אינמיטן וועט די ווארענונגען בלייבן אויסגעלאשן ביזן צומאכן די פייל/פראגרעם
דעריבער קענסטו ניצן אזאנס

קאוד: וועל אויס אלע

     On Error GoTo Error_Handler
    DoCmd.SetWarnings False
    SendKeys "^-", True
Error_Handler:
    DoCmd.SetWarnings True

אמת לאמיתו · פרייטאג יאנואר 22, 2016 7:23 am

פארוואס דארף איך אייביג זיין די מענטש וואס קאמפלעינט ??

פארוואס ביי מיר ארבעט עס נישט איך לעש אויס די ווארנונג, און ער איז געהעריג דא כאילו לא הי' ??

אמת לאמיתו · פרייטאג יאנואר 22, 2016 7:59 am

יעצט זעה איך אז אויב איך צינד נישט צוריק אן די ווארנונגען ארבעט עס פיין, די פראבלעם איז ווען איך צינד עס צוריק אן

עני פשט ???

פאטאקי08 · פרייטאג יאנואר 22, 2016 12:09 pm

האסט צוגעלייגט די , TRUE
?

קאוד: וועל אויס אלע

 SendKeys "^-", True

פאטאקי08 · פרייטאג יאנואר 22, 2016 12:10 pm

אמת לאמיתו האט געשריבן: פארוואס דארף איך אייביג זיין די מענטש וואס קאמפלעינט ??

דאס איז די איינציגסטע וועג צו ווערן אן "עסקפיריענסד" פראגרעממער

אמת לאמיתו · מאנטאג יאנואר 25, 2016 12:24 pm

יא! כהאב געמאכט "קלויב אויס אלעס"

אבער איין מינוט! האסט פארשטאנען וואס כ'האב געזאגט?? ער לעשט זיך אויס (ווייל ווען איך צינד עס נישט צוריק אן איז ער אויסגלאשען), נאר ער צינד זיך צוריק אן פאר די צייט און די ווארנונג קומט ארויף.

אמת לאמיתו · דינסטאג יאנואר 26, 2016 4:30 pm

פאטאקי08 האט געשריבן: אפשר טריי אזוי
קאוד: וועל אויס אלע
 
DoCmd.SetWarnings False
    SendKeys "^-", True
    DoEvents
DoCmd.SetWarnings True
 

געוואלדיג ארבעט פיין

ישר כוח, ישר כוח, ישר כוח

giveaway · מיטוואך מארטש 09, 2016 2:08 pm

א גוטן מיינע טייערע חברים!
איך וואלט געוואלט וויסן אויב עס איז דא א מעגליכקייט אז ווען מען מאכט א נייע ROW און עקסעס זאל אטומאטיש אריין קומען א ס"ה פון א פאריגע שורה?

עקסעס · זונטאג יולי 20, 2014 7:09 pm

http://allenbrowne.com/ser-24.html

לעזער פ. · דינסטאג אפריל 05, 2016 1:12 pm

איך האב א פראגרעם אין עקסעס וואס די סטעיטמענטס איז א ריפארט וואס איז סארטירט ביי גרופ. איך וויל צולייגן א payment stub ביי די סוף פון יעדע סטעיטמענט ביי די ענדע פון די פעידש. די ריפארט פוטער ווייזט נאר ביי די ענדע פון אלע סטיטמענטס, די פעידש פוטער ווייזט ביי אלע פעידשעס און אויב א קאסטומער האט א סטעיטמענט פון 2 פעידשעס וועט עס ווייזן אויף ביידע, די גרופ פוטער קומט יא ארויף ביי די ענדע פון די ריפארט אבער אמאל קומט דאס אין מיטען פון דאס בלעטעל.

איך האב געטראפן דעם VBA וואס שרייבט ארויף פעידש נומבערס לויט די גרופ [page 1 of 1, page 1 of 3], עס האט עפעס א וועג צו זעהן ווי די סוף פון גרופע איז, מיין שאלה איז אויב איך קען אויסארבעטען דעם קאוד און לייגען די סטאב אויפן פעידש פוטער און מאכן וויסיבעל נאר אויף די לעצטע פעידש.

קאוד: וועל אויס אלע

 '************ Code Start *************
' This code was originally written by James H Brooks.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' James H Brooks
'
Option Compare Database
Option Explicit

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
  If Me.Pages = 0 Then
    ReDim Preserve GrpArrayPage(Me.Page + 1)
    ReDim Preserve GrpArrayPages(Me.Page + 1)
    GrpNameCurrent = Me!Text2


    If GrpNameCurrent = GrpNamePrevious Then

        GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
        GrpPages = GrpArrayPage(Me.Page)


            For i = Me.Page - ((GrpPages) - 1) To Me.Page
                GrpArrayPages(i) = GrpPages

            Next i

    Else
        GrpPage = 1
        GrpArrayPage(Me.Page) = GrpPage
        GrpArrayPages(Me.Page) = GrpPage


    End If
  Else
    Me!ctlGrpPages = "Group Page " & GrpArrayPage(Me.Page) & " of " & GrpArrayPages(Me.Page)

  End If

  GrpNamePrevious = GrpNameCurrent
End Sub
'************ Code End *************

פאטאקי08 · דינסטאג אפריל 05, 2016 2:50 pm

וואס איז די פראבלעם מיט גרופ פוטער?

לעזער פ. · דינסטאג אפריל 05, 2016 3:10 pm

אויב די סטעיטמענט פילט נישט אן די בלעטעל ביז אינטען דעמאלט וועט די סטאב זיין אין מיטען פון די בלעטעל.

עס קומט אזוי

לעזער פ. · דינסטאג אפריל 05, 2016 3:46 pm

יעצט פראבירט דאס צום סוף פון די פריערדיגע קאוד

קאוד: וועל אויס אלע

    If GrpArrayPages(Me.Page) > 1 Then
    PageFooterSection.Visible = False
Else
    PageFooterSection.Visible = True
End If

עס ארבעט האלבוועגס.
דו וועלכע האבן מער ווי איין פעידש (page #5,6,) קומט עס נישט ארויס - אויף די לעצטע (page #6) אויך נישט, און די נעקסטע צוויי קאסטומערס וועלכע האבן נאר איין פעידש (page #7,8) ווייזט עס אויך נישט, נאך ווייזט עס יא.

פאטאקי08 · דינסטאג אפריל 05, 2016 4:32 pm

די סיבה איז ווייל די קאוד פייערט שוין נאכן פארמעטן די פעידזש פוטער

לייג צו די Page Header

קאוד: וועל אויס אלע

 ="Page " & [Page] & " of " & [Pages]

לייג דאס צו אין קאוד

קאוד: וועל אויס אלע

 Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
 Me.PageFooterSection.Visible = (GrpArrayPage(Me.Page) = GrpArrayPages(Me.Page))
End Sub

לעזער פ. · דינסטאג אפריל 05, 2016 4:46 pm

ייש"כ
יעצט דארף איך נאר עס זאל ארויף קומען אויף א סטעיטמענט וואס האט מער ווי איין פעידש

פאטאקי08 · דינסטאג אפריל 05, 2016 5:13 pm

פרוביר דאס
BTW פארוואס איינער וואס באקומט נאר איין פעידזש דארף נישט קיין פעימענט סטאב?

קאוד: וועל אויס אלע

 Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    If GrpArrayPage(Me.Page) > 1 And GrpArrayPages(Me.Page) > 1 Then
        Me.PageFooterSection.Visible = True
    Else
        Me.PageFooterSection.Visible = False
    End If
End Sub

לעזער פ. · דינסטאג אפריל 05, 2016 6:11 pm

פארקערט זיי דארפן יא א סטאב.
איך באמערק יעצט אז מיט די ערשטע קאוד וואס דו האסט געשריבן האבן אויך די וואס האבן מער ווי איין פיעדש אויך די סטאב אבער די ערשטע רעקארד האט נישט קיין סטאב.

משה מענטש · זונטאג אוגוסט 07, 2016 5:39 pm

איינער האט ארויף געלייגט דא א שטיק צייט צוריק א פרי פראגרעם פאר קליינע שוהל'ן צי האלטן חשבון אויף נדרים ונדבות. די פראגרעם איז אויף עקסעס, קען מיר איינער ביטע העלפן מיטן אפ-לאודען א פארטיגע ליסט וואס כ'האב אין עקסעל אריין צי עקסעס? א גרויסן יישר כח

אידישע וועלט פארומס

עקסעס: הילף

הילף אין עקסעס פראגרעם