דחוף! עזרה ב קוד באקסס

[אביי]

בס"ד

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

תודה מראש לכל העוזרים!

 

[אביי]

שאלה נוספת, איך אני גורם לטופס שיפתח במסך מלא?

 

[moshem]

בס"ד

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

תודה מראש לכל העוזרים!

זה מורכב מ 3 שלבים.
בשלב הראשון מפעלים את זה וכותבים הערה בשני, מה היעד בפרמטר השלישי.
בשני פשוט מקדמים את פס ההתקדמות בלולאה כל פעם אפשר להוסיף עוד 1.
בשלישי מאפסים אותו.

SysCmd acSysCmdInitMeter, "Reading Data...", 100
SysCmd acSysCmdUpdateMeter, 90
SysCmd acSysCmdRemoveMeter

לינק למסמכי התיעוד של מייקרוסופט.
לחץ כאן

 

[לוי א]

לגבי ההתקדמות של האחוזים -
אין קובץ ייעודי באקסס שעושה את זה
מה שאתה יכול לעשות זה ליצור מלבן ברוחב מסויים, ועליו מלבן שהערך של הרוחב שלו ׁ(Width) יהיה שווה לאחוז ההורדות שהתבצעו
לגבי מסך מלא-
תוכל להשתמש בפקודת
docmd.maximize

 

[אביי]

זה מורכב מ 3 שלבים.
בשלב הראשון מפעלים את זה וכותבים הערה בשני, מה היעד בפרמטר השלישי.
בשני פשוט מקדמים את פס ההתקדמות בלולאה כל פעם אפשר להוסיף עוד 1.
בשלישי מאפסים אותו.

SysCmd acSysCmdInitMeter, "Reading Data...", 100
SysCmd acSysCmdUpdateMeter, 90
SysCmd acSysCmdRemoveMeter

לינק למסמכי התיעוד של מייקרוסופט.
לחץ כאן

מצ"ב הקוד אליו אני מתייחס, איפה אני אמור להשים את הקוד שהבאת?
(יש למטה שורה מודגשת זה השורה שעליה אני מדבר)


Text = SendRequest("https://www.call2all.co.il/ym/api/DownloadFile?token=" & Token & "&path=ivr/1/ApprovalAll.ymgr")
If Text = "" Or IsNull(Text) = True Then
MsgBox "אנו מצטערים, עוד לא הוזנו נתונים"
InPort = False
Exit Function
ElseIf Text = "Requested file does not exist" Then
MsgBox "אנו מצטערים, שגיאה במערכת הטלפונית"
InPort = False
Exit Function
ElseIf Text = "אין חיבור לאינטרנט" Then
MsgBox "אנו מצטערים, אין חיבור לאינטרנט"
InPort = False
Exit Function
End If



Dim Json As Object
Dim strText As String
Dim Booking As Integer
Dim rs As DAO.Recordset

Dim maxBooking As Integer
maxBooking = Nz(DMax("מזהה_אישור", "DATA"), 0)

Text = "[{""" & Text
Text = Replace(Text, "#", """:""")
Text = Replace(Text, "%", """,""")
Text = Replace(Text, Chr(13) & Chr(10) & "S", """},{""S")
Text = Replace(Text, Chr(13) & Chr(10), """}]")


Set Json = JsonConverter.ParseJson(Text)

DSUMALL = 0

For Each CurrentId In Json
Set rs = CurrentDb.OpenRecordset("DATA")

If CurrentId("Booking") > maxBooking Then
מצב.Caption = "מוריד אישור " & CurrentId("Booking")
rs.AddNew
rs!מזהה_אישור = CurrentId("Booking")
rs!פלאפון = CurrentId("Phone")
rs!תאריך_לועזי = CurrentId("Date")
rs!שעה = CurrentId("Time")
rs!תאריך_עברי = CurrentId("HebrewDate")
rs!זיהוי_טקסט = CurrentId("P000")
rs!קוד_תורם = CurrentId("P050")
rs!סכום = CurrentId("P051")
rs.Update
DSUMALL = DSUMALL + 1
End If
Next
מצב.Caption = "מוריד נתונים"
MsgBox "הורדת נתוני התרומות משרת ימות המשיח הושלם בהצלחה, הורדו " & DSUMALL & " נתונים"
Else
מצב.Caption = "שגיאת סנכרון"
End If
Else
מצב.Caption = "שגיאת סנכרון"

 

[moshem]

שאלה נוספת, איך אני גורם לטופס שיפתח במסך מלא?

תוסיף אחרי הקוד של פתיחת הטופס את הפקודה הבאה :

DoCmd.OpenForm "שם הטופס שלך", acNormal
DoCmd.Maximize

 

[moshem]

לגבי ההתקדמות של האחוזים -
אין קובץ ייעודי באקסס שעושה את זה

למה ? מה שכתבתי לא נכון ?[/QUOTE]

 

[moshem]

דבר ראשון בעת צירף קוד כדאי להכניס את זה כאן בתור קוד זה פשוט יותר נוח לקריאה

dim Index as long
Index = 1
SysCmd acSysCmdInitMeter, "מוריד נתונים...", Json.Controls.Count

For Each CurrentId In Json

SysCmd acSysCmdUpdateMeter, Index

Set rs = CurrentDb.OpenRecordset("DATA")

If CurrentId("Booking") > maxBooking Then
מצב.Caption = "מוריד אישור " & CurrentId("Booking")
rs.AddNew
rs!מזהה_אישור = CurrentId("Booking")
rs!פלאפון = CurrentId("Phone")
rs!תאריך_לועזי = CurrentId("Date")
rs!שעה = CurrentId("Time")
rs!תאריך_עברי = CurrentId("HebrewDate")
rs!זיהוי_טקסט = CurrentId("P000")
rs!קוד_תורם = CurrentId("P050")
rs!סכום = CurrentId("P051")
rs.Update
DSUMALL = DSUMALL + 1
End If
Index = Index  + 1
Next

SysCmd acSysCmdRemoveMeter

 

[אביי]

דבר ראשון בעת צירף קוד כדאי להכניס את זה כאן בתור קוד זה פשוט יותר נוח לקריאה

dim Index as long
Index = 1
SysCmd acSysCmdInitMeter, "מוריד נתונים...", Json.Controls.Count

For Each CurrentId In Json

SysCmd acSysCmdUpdateMeter, Index

Set rs = CurrentDb.OpenRecordset("DATA")

If CurrentId("Booking") > maxBooking Then
מצב.Caption = "מוריד אישור " & CurrentId("Booking")
rs.AddNew
rs!מזהה_אישור = CurrentId("Booking")
rs!פלאפון = CurrentId("Phone")
rs!תאריך_לועזי = CurrentId("Date")
rs!שעה = CurrentId("Time")
rs!תאריך_עברי = CurrentId("HebrewDate")
rs!זיהוי_טקסט = CurrentId("P000")
rs!קוד_תורם = CurrentId("P050")
rs!סכום = CurrentId("P051")
rs.Update
DSUMALL = DSUMALL + 1
End If
Index = Index  + 1
Next

SysCmd acSysCmdRemoveMeter

את הקוד ששלחת אני מכניס במקום השורה המודגשת?

 

[moshem]

את הקוד ששלחת אני מכניס במקום השורה המודגשת?

סיננתי לנוחיותך את השורות שאני הוספתי

dim Index as long
Index = 1
SysCmd acSysCmdInitMeter, "מוריד נתונים...", Json.Controls.Count

SysCmd acSysCmdUpdateMeter, Index

Index = Index  + 1


SysCmd acSysCmdRemoveMeter

 

[אביי]

@moshem הוא מציג לי שגיאה ומצהיב לי את השורה הזו:

SysCmd acSysCmdInitMeter, "מוריד נתונים...", Json.Controls.Count

 

[moshem]

@moshem הוא מציג לי שגיאה ומצהיב לי את השורה הזו:

SysCmd acSysCmdInitMeter, "מוריד נתונים...", Json.Controls.Count

נכון טעיתי
תמחק את Controls.

 

[אביי]

@moshem עשיתי את זה, הוא לא מציג שגיאה, אבל הוא לא עושה כלום?!

 

[אביי]

@members עשיתי את זה, הוא לא מציג שגיאה, אבל הוא לא עושה כלום?!

אני צריך לשנות ערכים כל שהם?

 

[moshem]

ניסתי להתאים את זה לערכים שאתה כתבת, אבל ייתכן שטעיתי,
לכן פירטתי מה כל פרמטר עושה.

 

[אייקוד]

הורדת נתוני התרומות משרת ימות המשיח

יש לימות המשיח אפשרות כזו, או רק לקול כשר (@moshem)?

 

[אביי]

יש לימות המשיח אפשרות כזו, או רק לקול כשר (@moshem)?

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