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

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

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

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

תגובהדורך תורה לערנער » דינסטאג יוני 30, 2015 11:54 pm

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

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

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

תגובהדורך פאטאקי08 » פרייטאג יולי 03, 2015 6:07 pm

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

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


עפן א נייע קווערי גייט צו 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 » דאנארשטאג יולי 16, 2015 2:12 pm

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

תגובהדורך פאטאקי08 » דאנארשטאג יולי 16, 2015 2:54 pm

קענסט דא ארויף לייגן די SQL פון די "MissingUnits"?

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

תגובהדורך Other Guy » דאנארשטאג יולי 16, 2015 3:17 pm

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

תגובהדורך פאטאקי08 » דאנארשטאג יולי 16, 2015 3:26 pm

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

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

תגובהדורך Other Guy » דאנארשטאג יולי 16, 2015 3:29 pm

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

תגובהדורך פאטאקי08 » דאנארשטאג יולי 16, 2015 3:29 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#));

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

תגובהדורך Other Guy » דאנארשטאג יולי 16, 2015 3:36 pm

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

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

תגובהדורך פאטאקי08 » דאנארשטאג יולי 16, 2015 3:51 pm

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



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

[dbo_vHB_Claims.BeginDate]

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

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

[dbo_vHB_Claims].[BeginDate]

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


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

ווער איז אונליין

באנוצערס וואס דרייען זיך איצט דא: נישטא קיין איינגעשריבענע באנוצערס און איין גאסט