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

[clickone]

הוא יכול להמתין לקוד יציאה של הEXE.
(וכמובן לעקוב אחרי הקוד שהחזיר)

אבל לדעתי הכי טוב להשתמש בבקשות TCP או HTTP מול האפליקציה החיצונית שיכתוב.

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

[אבי]

@אבי

@ClickOne
אני לא בטוח שאני עושה מה שרצית.

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

אתה לא צריך לשים קובץ, תראה בקוד של הטופס שם איך אני פונה לאובייקט שלו

אני מקבל את השגיאה הזו:

לשגיאה הזו אין פתרון?
הוא מצפה ל set למשתנה שהגדרת, איך מכניסים ערך למשתנה מסוג activeX?

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

[ארכיטקט]

למה לא להרים שרת HTTP וזהו. תתקשר איתו באקסס במה שאתה רוצה.

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

[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)