קווערי הילף אין עקסעס
די אחראים: זייער נייגעריג,אחראי,thefact
-
- שר חמש מאות
- תגובות: 562
- זיך איינגעשריבן אום: פרייטאג מאי 17, 2013 4:12 pm
- לאקאציע: אין כולל
קווערי הילף אין עקסעס
איך וויל מאכן א קווערי פון הייפערלינקס
למשל אז איך ראן די קווערי זאל ער מיר קענען ווייזן צו איך האב דאפעלטע רעקארדס
געטרייט מיטן קווערי וויזארד האט ער מיר נישט געלאזט סעלעקטן די פיעלד וואס אנטהאלט די הייפערלינק
א זייטיגע קשיא לוינט זיך נאך היינט צו לערנער עקסעס
למשל אז איך ראן די קווערי זאל ער מיר קענען ווייזן צו איך האב דאפעלטע רעקארדס
געטרייט מיטן קווערי וויזארד האט ער מיר נישט געלאזט סעלעקטן די פיעלד וואס אנטהאלט די הייפערלינק
א זייטיגע קשיא לוינט זיך נאך היינט צו לערנער עקסעס
- פאטאקי08
- שר עשרת אלפים
- תגובות: 13894
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
- פארבינד זיך:
תורה לערנער האט געשריבן:איך וויל מאכן א קווערי פון הייפערלינקס
למשל אז איך ראן די קווערי זאל ער מיר קענען ווייזן צו איך האב דאפעלטע רעקארדס
געטרייט מיטן קווערי וויזארד האט ער מיר נישט געלאזט סעלעקטן די פיעלד וואס אנטהאלט די הייפערלינק
א זייטיגע קשיא לוינט זיך נאך היינט צו לערנער עקסעס
עפן א נייע קווערי גייט צו SQL וויו און לייג דאס אריין
טויש די ווארט HyperLinkField צו די ריכטיגע פיעלד נאמען און די ווארט Table1 צו די ריכטיגע טעיבל נאמען
קאוד: וועל אויס אלע
SELECT Table1.HyperLinkField, Count(Table1.HyperLinkField) AS CountOfHyperLinkField
FROM Table1
GROUP BY Table1.HyperLinkField
HAVING (((Count(Table1.HyperLinkField))>1));
לוינט זיך נאך היינט צו לערנען עקסעס?
במשקל ראשון איז די ענטפער "יא" אבער עס ווענד זיך לפי המקום והזמן והאיש והממון...
איך הייב נישט אן צי קענען עקסעס vba בעט איך וועהר קען מיר העלפן
איך האב געמאכט א באטאן וואס איך וויל עס זאל עקספארטן א פיוואט טעבל מיט א געוויסע נאמען אין לאקעשין
איז דאס האב איך ציזאם געשטעלט אבער עס ווערט נישט א געסעווט מיט די נאמען און לאקעשין
Private Sub Command1_Click()
' export qurey
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\MissingUnits_" & Format(Date, "yyyyMMdd") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "MissingUnits", outputFileName, True
DoCmd.OpenQuery "MissingUnits", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel
DoCmd.Close acQuery, "MissingUnits"
End Sub
ווער עס קען העלפן למצווה גדולה יחשב
איך האב געמאכט א באטאן וואס איך וויל עס זאל עקספארטן א פיוואט טעבל מיט א געוויסע נאמען אין לאקעשין
איז דאס האב איך ציזאם געשטעלט אבער עס ווערט נישט א געסעווט מיט די נאמען און לאקעשין
Private Sub Command1_Click()
' export qurey
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\MissingUnits_" & Format(Date, "yyyyMMdd") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "MissingUnits", outputFileName, True
DoCmd.OpenQuery "MissingUnits", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel
DoCmd.Close acQuery, "MissingUnits"
End Sub
ווער עס קען העלפן למצווה גדולה יחשב
SELECT dbo_vCO_Headers.ARGroup, dbo_vCO_Headers.name AS Client, dbo_vCO_Headers.Control AS [Claim #], dbo_vHB_Claims.FKfileID AS [File #], dbo_vHB_Claims.ClaimTypeName AS Type, dbo_vHB_Claims.claimstatusname AS Status, dbo_vHB_Claims.service, dbo_vHB_Claims.begindate AS ClaimDate, Format([dbo_vHB_Claims.BeginDate],"yyyy - mm") AS [Year-Month], [dbo_vHB_Claims.Quantity]*[CC1_Progrem.amount] AS Units, CC1_Progrem.CC1
FROM (dbo_vCO_Headers INNER JOIN dbo_vHB_Claims ON dbo_vCO_Headers.HeaderID = dbo_vHB_Claims.FKheaderID) INNER JOIN CC1_Progrem ON dbo_vCO_Headers.ARGroup = CC1_Progrem.[Billing Group]
WHERE (((dbo_vHB_Claims.begindate)>=#1/1/2014#));
FROM (dbo_vCO_Headers INNER JOIN dbo_vHB_Claims ON dbo_vCO_Headers.HeaderID = dbo_vHB_Claims.FKheaderID) INNER JOIN CC1_Progrem ON dbo_vCO_Headers.ARGroup = CC1_Progrem.[Billing Group]
WHERE (((dbo_vHB_Claims.begindate)>=#1/1/2014#));
it opens and saves this part of the code
but the next part the excel file opens without a name and not saved
קאוד: וועל אויס אלע
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\MissingUnits_" & Format(Date, "yyyyMMdd") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "MissingUnits", outputFileName, True
but the next part the excel file opens without a name and not saved
קאוד: וועל אויס אלע
DoCmd.OpenQuery "MissingUnits", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel
DoCmd.Close acQuery, "MissingUnits"
- פאטאקי08
- שר עשרת אלפים
- תגובות: 13894
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
- פארבינד זיך:
Other Guy האט געשריבן:SELECT dbo_vCO_Headers.ARGroup, dbo_vCO_Headers.name AS Client, dbo_vCO_Headers.Control AS [Claim #], dbo_vHB_Claims.FKfileID AS [File #], dbo_vHB_Claims.ClaimTypeName AS Type, dbo_vHB_Claims.claimstatusname AS Status, dbo_vHB_Claims.service, dbo_vHB_Claims.begindate AS ClaimDate, Format([dbo_vHB_Claims.BeginDate],"yyyy - mm") AS [Year-Month], [dbo_vHB_Claims.Quantity]*[CC1_Progrem.amount] AS Units, CC1_Progrem.CC1
FROM (dbo_vCO_Headers INNER JOIN dbo_vHB_Claims ON dbo_vCO_Headers.HeaderID = dbo_vHB_Claims.FKheaderID) INNER JOIN CC1_Progrem ON dbo_vCO_Headers.ARGroup = CC1_Progrem.[Billing Group]
WHERE (((dbo_vHB_Claims.begindate)>=#1/1/2014#));
קודם פארעכט די קווערי צו די פאלגענדע
קאוד: וועל אויס אלע
SELECT dbo_vCO_Headers.ARGroup, dbo_vCO_Headers.name AS Client, dbo_vCO_Headers.Control AS [ClaimNumber], dbo_vHB_Claims.FKfileID AS [FileNumber], dbo_vHB_Claims.ClaimTypeName AS Type, dbo_vHB_Claims.claimstatusname AS Status, dbo_vHB_Claims.service, dbo_vHB_Claims.begindate AS ClaimDate, Format([dbo_vHB_Claims].[BeginDate],"yyyy - mm") AS [Year-Month], [dbo_vHB_Claims].[Quantity]*[CC1_Progrem].[amount] AS Units, CC1_Progrem.CC1
FROM (dbo_vCO_Headers INNER JOIN dbo_vHB_Claims ON dbo_vCO_Headers.HeaderID = dbo_vHB_Claims.FKheaderID) INNER JOIN CC1_Progrem ON dbo_vCO_Headers.ARGroup = CC1_Progrem.[Billing Group]
WHERE (((dbo_vHB_Claims.begindate)>=#1/1/2014#));
the query opens and works proper
but i dont know how to write it should be like
DoCmd.OpenQuery "MissingUnits", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel,C:/ "MissingUnits"
DoCmd.Close acQuery, "MissingUnits"
but i dont know how to write it should be like
DoCmd.OpenQuery "MissingUnits", acViewPivotTable, acEdit
DoCmd.RunCommand acCmdPivotTableExportToExcel,C:/ "MissingUnits"
DoCmd.Close acQuery, "MissingUnits"
לעצט פארראכטן דורך Other Guy אום דאנערשטאג יולי 16, 2015 3:38 pm, פארראכטן געווארן 1 מאל.
- פאטאקי08
- שר עשרת אלפים
- תגובות: 13894
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
- פארבינד זיך:
Other Guy האט געשריבן:it opens and saves this part of the code
איך פארשטיי נישט, זיי בעסער מסביר אדער שטעל א סקרינשאט
but the next part the excel file opens without a name and not saved
אזוי קומט דאס, די קאוד טוט נאר עפענען א עקסעל פייל און ער פיצט עס אריין אלץ א פיוואט טעיבל אין עקסעל און די יוזער דארף עס אליינס סעווען
- פאטאקי08
- שר עשרת אלפים
- תגובות: 13894
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
- פארבינד זיך:
Other Guy האט געשריבן:the query opens and works proper
קאוד: וועל אויס אלע
[dbo_vHB_Claims.BeginDate]
אזאנס קומט עס זאל זיין אזוי
קאוד: וועל אויס אלע
[dbo_vHB_Claims].[BeginDate]
איך ביך נישט זיכער ווי אקוראט די דעטע קען זיין מיט דיין ווערסיע