קווערי הילף אין עקסעס

די אחראים: זייער נייגעריג,אחראי,thefact

תורה לערנער
שר חמש מאות
תגובות: 562
זיך איינגעשריבן אום: פרייטאג מאי 17, 2013 4:12 pm
לאקאציע: אין כולל

קווערי הילף אין עקסעס

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך תורה לערנער »

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

א זייטיגע קשיא לוינט זיך נאך היינט צו לערנער עקסעס
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

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

א זייטיגע קשיא לוינט זיך נאך היינט צו לערנער עקסעס


עפן א נייע קווערי גייט צו SQL וויו און לייג דאס אריין
טויש די ווארט HyperLinkField צו די ריכטיגע פיעלד נאמען און די ווארט Table1 צו די ריכטיגע טעיבל נאמען

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

SELECT Table1.HyperLinkField, Count(Table1.HyperLinkField) AS CountOfHyperLinkField
FROM Table1
GROUP BY Table1.HyperLinkField
HAVING (((Count(Table1.HyperLinkField))>1));


לוינט זיך נאך היינט צו לערנען עקסעס?
במשקל ראשון איז די ענטפער "יא" אבער עס ווענד זיך לפי המקום והזמן והאיש והממון...
Other Guy
שר מאה
תגובות: 121
זיך איינגעשריבן אום: זונטאג דעצעמבער 08, 2013 5:27 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך Other Guy »

איך הייב נישט אן צי קענען עקסעס 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

ווער עס קען העלפן למצווה גדולה יחשב
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

קענסט דא ארויף לייגן די SQL פון די "MissingUnits"?
Other Guy
שר מאה
תגובות: 121
זיך איינגעשריבן אום: זונטאג דעצעמבער 08, 2013 5:27 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#));
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

די קווערי אליינס עפענט זיך יא?
וואס הייסט עס ווערט נישט א געסעווט מיט די נאמען און לאקעשין
וואס געשעהט יא?
Other Guy
שר מאה
תגובות: 121
זיך איינגעשריבן אום: זונטאג דעצעמבער 08, 2013 5:27 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך Other Guy »

it opens and saves this part of the code

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

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
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

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#));
Other Guy
שר מאה
תגובות: 121
זיך איינגעשריבן אום: זונטאג דעצעמבער 08, 2013 5:27 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך Other Guy »

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"
לעצט פארראכטן דורך Other Guy אום דאנערשטאג יולי 16, 2015 3:38 pm, פארראכטן געווארן 1 מאל.
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

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
שר עשרת אלפים
תגובות: 13862
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

Other Guy האט געשריבן:the query opens and works proper



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

[dbo_vHB_Claims.BeginDate]

אזאנס קומט עס זאל זיין אזוי

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

[dbo_vHB_Claims].[BeginDate]

איך ביך נישט זיכער ווי אקוראט די דעטע קען זיין מיט דיין ווערסיע
שרייב תגובה

צוריק צו “מייקראסאפט עקסעל / עקסעס”