סורק צקים - אקסס

[dovid]

להקים שרת http זה דורש הרשאות ומוסיף די הרבה סיבוך ביחס לשאלה המקורית: לכתוב כמה שורות באקסס.

clickone, אפשר בVBA בקלות להמתין לקוד יציאה של תוכנית אחרת? הבנתי שחייבים API.

פורסם במקור בפורום CODE613 ב22/05/2017 01:09 (+03:00)

[clickone]

דוד, להקים שרת HTTP בתוך דוטנט נראה לי שלא צריך הרשאות.
זה רק מממש את המחלקה של http listener

לגבי להמתין לקוד יציאה בלי API:

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Long

errorCode = wsh.Run("notepad.exe", windowStyle, waitOnReturn)

If errorCode = 0 Then
    MsgBox "Done! No error to report."
Else
    MsgBox "Program exited with error code " & errorCode & "."
End If

מקור:
http://stackoverflow.com/questions/8902022/wait-for-shell-to-finish-then-format-cells-synchronously-execute-a-command

פורסם במקור בפורום CODE613 ב22/05/2017 01:20 (+03:00)

[dovid]

clickPne זה הכי טוב, בשביל מה הוא צריך להשתגע עם http.

פורסם במקור בפורום CODE613 ב22/05/2017 08:39 (+03:00)

[אבי]

תודה לכל החברים שהקדישו מזמנם

לא תמיד אני רוצה להמתין לקוד יציאה כדי להתעדכן (סריקה של כמה צ'קים לדוגמא)
חשבתי להפעיל מאקרו עם הפונקציה "RunCode" שמפעילה פונקציית קוד שמעדכנת את הטבלה / הטפסים וכל דבר אחר.
הפעלת מאקרו מVB:

'Start Access and open the database.
  oAccess = New Microsoft.Office.Interop.Access.Application
  oAccess.Visible = False
  oAccess.OpenCurrentDatabase("c:\OfficeMacroTest.accdb", False)
  oAccess.DoCmd().RunMacro("Macro1")

אנסה ואעדכן

פורסם במקור בפורום CODE613 ב22/05/2017 09:35 (+03:00)

[clickone]

אבי, זה רעיון הפוך, אבל טוב.
עשיתי אותו בעבר בשביל משהו אחר.

רק שאם אתה הולך על זה, כבר תעדכן את הטבלאות ישר.

פורסם במקור בפורום CODE613 ב22/05/2017 10:12 (+03:00)

[אבי]

@ClickOne

רק שאם אתה הולך על זה, כבר תעדכן את הטבלאות ישר.

אני מבצע כמה בדיקות לפני ההוספה לטבלה, ויותר נוח לעשות כבר הכל מתוך אקסס.

בסוף השתמשתי בפונקציה run שמפעילה פונקצייה ישירות (לא דרך מאקרו), לתוכה אני שולח ישירות את הפרמטרים הרצויים להמשך טיפול באקסס.

תודה לכל העוזרים והמסייעים.

פורסם במקור בפורום CODE613 ב22/05/2017 18:24 (+03:00)

[clickone]

את הבדיקות אתה עושה מול ועם recordset?
שים לב שאת האובייקט הזה וכל השאר אתה יכול לבצע גם בתוך האינטראופ של האקסס שעשית.

בכל מקרה, בהצלחה

פורסם במקור בפורום CODE613 ב23/05/2017 00:35 (+03:00)