תחומים - פורום חרדי מקצועי

@חייםיודלביץ אמר בקבלת תוכן תא בטבלא כערך ברירת מחדל|access:

@צבי-ש סליחה, עכשיו בדקתי אצלי וצריך לכתוב ככה

אני רואה שזה יוצא משובש משום מה אז מצ"ב גם צילום מסך קטן:

=DLookUp("[שדה]","טבלה","[מזהה]=1")

תודה רבה
עובד לי.

@חייםיודלביץ אמר בקבלת תוכן תא בטבלא כערך ברירת מחדל|access:

@צבי-ש ככה זה עובד?

DLookup( "mode", "all" ,[mode] = 1)

הוא כותב לי
#Name?
ולא את הערך שכתוב בטבלא

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

ניסתי להכניס כערך ברירת מחדל בתיבת טקסט את הקוד הבא

=[table]![עמודה]

אבל איך אני מגיע לתא ספציפי?
למשל איך אני ניגש לתא שהמזהה שורה הוא 1 העמודה נקראת mode והטבלא נקראת all.

הסתדרתי .
דובר על זה גם פה.
הפתרון הוא להוסיף כאן -

את הפונקציה הזאת -

וזהו.

@מנחם הוא מעביר אותי לפונקציה שהם כתבו ועושה שם שגיאה.

@מנחם אמר בגישה למערך פנימי בjson|קוד vba:

@צבי-ש תנסה את זה,
בהנחה שיש לך את הקוד שממיר JOSN
שמקורו כאן

Dim ResponseJson As Object
Set ResponseJson = JsonConverter.ParseJson(Response.Content)    
Debug.Print ResponseJson("Message")

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

אני שולח בקשת HTTP בקוד vba, ומקבל בתגובה מערך json המכיל למשל { "Status" : "Error" , "Message" : "שגיאה לא ידועה" }.

אני רוצה להקפיץ למשתמש רק את הודעת השגיאה (ולא את כל הjson).

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

MsgBox "json", vbInformation, "כותרת החלון"

שמקפיץ הודעה אבל רושם את כל הjson.

ואני לא מצליח לגשת ל json.Erorr (להודעה עצמה).
ושאלתי היא,
האיך ניתן לגשת לאיבר בקובץ json בשביל לבודד את הודעת השגיאה משאר הjson.

ניסתי לעשות כבר
json.Erorr
json("Erorr")
json.("Erorr")
וזה לא עבד.

@חייםיודלביץ אמר בלתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס:

@צבי-ש אמר ב[לתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס]

אין לי עניין שהקוד ידע שהוא עם קרדיט.

אני בתוך התוכנה שלי ב" אודות" כותב קרדיט אם צריך

שמה אתה כן מבקש שיהא כתוב או רק בפורמים וכדומה?

אני מברר זאת כי זה נוגע לי למעשה.

תודה על השיתוף!!!

אני שמח שזה כבר נוגע למעשה.. ולא עבדתי סתם.
עדיף שתכתוב גם שם.

@חייםיודלביץ אמר בלתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס:

@צבי-ש אמר בלתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס:

השימוש בקובץ על אחריותכם בלבד!
כמובן שעדיף לסלוק דרך האתר המאובטח של נדרים פלוס.
כל מי שמוריד\ משתמש בקובץ יודע שזה על אחריותו בלבד,

יש איזה שהו בעיה לסלוק ככה ישירות מתוך האקסס זה פחות בטוח?

קרדיטים:
צבי-ש
dovid
odedDvir
חוקר
ול aaaa על הרעיון המקורי

למי שממש דחוף לו בלי קרדיטים שיכתוב קרדיט רק לאתר תחומים.

לשרשור הראשוני

היכן אתה מתכוון שיהא קרדיט אם אני מפרסם את זה במקום אחר או אם אני משתמש בקוד אז לתת קרדיט בתוך התוכנה?

לא אמור להיות,
הפעולה שזה עושה זה רק מדמה את השליחה שנשלחת מהאתר,
אבל שוב, אני לא רוצה לחת על עצמי אחריות אם יקרה משהו.

@חייםיודלביץ אמר בלתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס:

@צבי-ש אמר בלתועלת הציבור|קובץ אקסס לסליקה באשראי דרך נדרים פלוס:

השימוש בקובץ על אחריותכם בלבד!
כמובן שעדיף לסלוק דרך האתר המאובטח של נדרים פלוס.
כל מי שמוריד\ משתמש בקובץ יודע שזה על אחריותו בלבד,

יש איזה שהו בעיה לסלוק ככה ישירות מתוך האקסס זה פחות בטוח?

קרדיטים:
צבי-ש
dovid
odedDvir
חוקר
ול aaaa על הרעיון המקורי

למי שממש דחוף לו בלי קרדיטים שיכתוב קרדיט רק לאתר תחומים.

לשרשור הראשוני

היכן אתה מתכוון שיהא קרדיט אם אני מפרסם את זה במקום אחר או אם אני משתמש בקוד אז לתת קרדיט בתוך התוכנה?

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

@שואף נשלח אליך כעת במייל
הזכויות יוצרים הם של שוקי לרר

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

יכול להיות שבאתר הנ"ל תוכל למצוא את התמונה שרצית, יש שם חלק מהתמונות.

מקווה שעזרתי.

@שואף אמר בספר תמונות של ר' חיים שמכרו במשנת יוסף:

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

אפשר ליצור קשר במיל בחתימה.
תזכו למצוות

אתה מתכוון לספר שהם הוציאו בחינם באירוע שהיה להם של הנציגים?
כולו עם תמונות?

@avramk אמר במחפש תוכנה שאפשר להדליק איתה מחשב מרחוק:

שלום רב, אשמח לקבל תוכנה חינמית שמדליקה מחשב ברשת מרוחקת.

@איש-ימיני אמר במחפש תוכנה שאפשר להדליק איתה מחשב מרחוק:

@avramk אתה יכול גם להגדיר בביוס שהמחשב יידלק אוטומטית ברגע שהוא מתחבר לחשמל

אם זה אכן נכון ואפשרי להגדיר בביוס שהמחשב יידלק אוטומטי כשהוא מתחבר לחשמל.

אפשר לקנות כמין כזה "שקע חכם" שאתה יכול לשלוט עליו מרחוק וככה לכבות או להדליק את המחשב מרחוק.

לסגירת הנושא רק-
הנה פירות עמלינו, קצת קימפלתי וערכתי,
תהנו.
https://tchumim.com/topic/13007/

השימוש בקובץ על אחריותכם בלבד!
כמובן שעדיף לסלוק דרך האתר המאובטח של נדרים פלוס.
כל מי שמוריד\ משתמש בקובץ יודע שזה על אחריותו בלבד,

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

מה יש בקובץ?

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

כשלוחצים על הלחצן אישור תשלום =
יש קוד מאחורה שבודק האם הערכי חובה (כל מה שמסומן באדום) מוגדרים או לא.
אחרי זה לוקח את הנתונים ושולח לנדרים פלוס בבקשת POST.
אחרי זה מקפיץ חלון עם הנתונים שחוזרים מנדרים פלוס (כרגע זה חוזר עם כל הjson שמתקבל, אולי בעתיד נפרק אותו).

זהו בגדול.

הנה הקובץ
nedarim_plus.accdb

קרדיטים:
צבי-ש
dovid
odedDvir
חייםיודלביץ
חוקר
ול aaaa על הרעיון המקורי

למי שממש דחוף לו בלי קרדיטים שיכתוב קרדיט רק לאתר תחומים.

לשרשור הראשוני

גירסה מעודכנת יותר עם טבלאות שגיאה והצלחה וכן הודעות שגיאה מתאימות וכן טבלא עם מספר המוסד וככה לא צריך להקליד כל פעם מספר מוסד.
nedarim_plus.accdb
יש לרשום בטבלת mosad תחת הרשומה mosad_id את המספר מוסד.

@צבי-ש אמר בשליחת ערכים בHTTP (POST) בקוד VBA | ערכים שמגיעים מטופס.:

בתמצות השאלה.
האיך אפשרי לשלב בקישור HTTP נתונים שקיבלתי בטופס כך שהקישור ישתנה לפי הנתונים (למשל אם מהטופס קיבלתי מהשדה domain את המילה com לשלבו אחרי זה בבקשת HTTP לקמן מבלי לכתוב COM אלא להשתמש במשתנה domain.

או באריכות השאלה.

אחרי שסוכם שם שהדרך הנכונה היא לשלוח כך :

Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=7006356&ClientName=&Adresse=&Phone=0345677765&ClientId=&CardNumber=4580458045804580&Tokef=0776&Amount=1&Tashloumim=1&Groupe=&Avour=Yemot&Token=&CVV=386&Zeout=123456789&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
Debug.Print result

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

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

'בדיקה האם כל הערכים קיימים , אם לא מחזיר הודעת שגיאה'

If IsNull(mosad) Or IsNull(CardNumber) Or IsNull(Tokef) Or IsNull(Amount) Or IsNull(Tashloumim) Or IsNull(CVV) Or IsNull(Zeout) Then MsgBox "משהו לא מלא", vbInformation, "שגיאה": Exit Sub
'הבקשה לנדרים פלוס'
Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=(Mosad)&ClientName=&Adresse=&Phone=&ClientId=&CardNumber=(CardNumber)&Tokef=(Tokef)&Amount=(Amount)&Tashloumim=(Tashloumim)&Groupe=&Avour=Yemot&Token=&CVV=(CVV)&Zeout=(Zeout)&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
'מחזיר את הפלט שהתקבל מנדרים פלוס'
MsgBox result, vbInformation, "חזר מנדרים"

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

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

בהצלחה.

בתמצות השאלה.
האיך אפשרי לשלב בקישור HTTP נתונים שקיבלתי בטופס כך שהקישור ישתנה לפי הנתונים (למשל אם מהטופס קיבלתי מהשדה domain את המילה com לשלבו אחרי זה בבקשת HTTP לקמן מבלי לכתוב COM אלא להשתמש במשתנה domain.

או באריכות השאלה.

אחרי שסוכם שם שהדרך הנכונה היא לשלוח כך :

Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=7006356&ClientName=&Adresse=&Phone=0345677765&ClientId=&CardNumber=4580458045804580&Tokef=0776&Amount=1&Tashloumim=1&Groupe=&Avour=Yemot&Token=&CVV=386&Zeout=123456789&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
Debug.Print result

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

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

'בדיקה האם כל הערכים קיימים , אם לא מחזיר הודעת שגיאה'

If IsNull(mosad) Or IsNull(CardNumber) Or IsNull(Tokef) Or IsNull(Amount) Or IsNull(Tashloumim) Or IsNull(CVV) Or IsNull(Zeout) Then MsgBox "משהו לא מלא", vbInformation, "שגיאה": Exit Sub
'הבקשה לנדרים פלוס'
Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=(Mosad)&ClientName=&Adresse=&Phone=&ClientId=&CardNumber=(CardNumber)&Tokef=(Tokef)&Amount=(Amount)&Tashloumim=(Tashloumim)&Groupe=&Avour=Yemot&Token=&CVV=(CVV)&Zeout=(Zeout)&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
'מחזיר את הפלט שהתקבל מנדרים פלוס'
MsgBox result, vbInformation, "חזר מנדרים"

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

@aaaa אמר בשליחת POST לנדרים+ ב VBA:

@צבי-ש
@OdedDvir
@dovid
עזרתם לי מאוד
תודה על הכל

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

@aaaa קח תהנה.

Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=7006356&ClientName=&Adresse=&Phone=0345677765&ClientId=&CardNumber=4580458045804580&Tokef=0776&Amount=1&Tashloumim=1&Groupe=&Avour=Yemot&Token=&CVV=386&Zeout=123456789&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
Debug.Print result

בדקתי אצלי וזה עובד

@OdedDvir אמר בשליחת POST לנדרים+ ב VBA:

@aaaa קצת דיבוג יעזור פה. תשנה את הקוד לקוד הבא:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "POST", "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
Dim Body As String
Body = "Mosad=123456&ClientName=&Adresse=&Phone=0512345678&ClientId=&CardNumber=4580458045804580&Tokef=1219&Amount=520&Tashloumim=12&Groupe=&Avour=Yemot&Token=&CVV=123&Zeout=123456789&Currency=1&MasofId=Online"
Debug.Print Body
Stop
TCRequestItem.send Body
Debug.Print TCRequestItem.responseText

וכשהוא מגיע לנקודת העצירה ב Stop תבדוק מה מודפס בחלון Immediate (ה"קונסול" של VBA)
(כמובן שתבנה את Body כפי שאתה רוצה לשלוח באמת...)

בדקתי בשבילו.. (גם לי יהיה שימוש עם אצליח לסלוק דרך אקסס)
זה מחזיר את כל הערכים עם & בין אחד לשני,
אבל כשאני ממשיך ותכלס שולח זה עושה לי ERORR

(ככה זה מחזיר [מספר מוסד הראשון שמצאתי בנדרים])

Mosad=7006059&ClientName=&Adresse=&Phone=0512345678&ClientId=&CardNumber=4580458045804580&Tokef=1219&Amount=520&Tashloumim=12&Groupe=&Avour=Yemot&Token=&CVV=123&Zeout=123456789&Currency=1&MasofId=Online
{ "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }