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

תודה!
אז לדעתכם עדיף לתת שמות רגילים לתוויות ובטבלה להפנות לפי שם טופס ושם פקד?
שימו לב שמדובר בעיקר (או רק) על תוויות וכיתוביות על לחצנים, ולא על תיבות טקסט וכדו'.
ולכן חשבתי תמיד לכתוב טקסט בשפה העיקרית כמו ש@dovid כתב, אבל את השם של הפקד לכתוב בתור קוד, כי ככה יותר קל להפנות לטבלה.
לא עדיף?

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

=A+B
ואם אתה רוצה רווח ביניהם:
A + " " + B

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

@ivrtikshoret תודה!
אגב, מאיפה הרשימה של הערים?

@ivrtikshoret אמר בAPI למיקוד לפי כתובת בישראל- האם קיים?:

אם זה נצרך למישהו שיכתוב ואני יכתוב את זה

אני ממש אשמח לקבל את הAPI לזה.
תודה!

נ.ב. סליחה על ההקפצה....

@odeddvir אמר בצביעת תא ע"פ ערך:

האם הצבע של התא הנוכחי משתנה?

כן.

@odeddvir אמר בצביעת תא ע"פ ערך:

תבטל את שורה מספר 2 (תהפוך להערה):

זה עדיין מחזיר #VALUE.

@odeddvir סליחה, GetMit זה בטעות חלק מקוד אחר, זה אמור להיות GetName.
אז ככה, הקוד:

If MyRecordset.Fields(7).Value = "8980" Then
    ActiveCell.Interior.Color = vbYellow
End If

לא עובד.
זאת אומרת הוא מצליח לקרוא את הנתון בעמודה 7 (מספר, דרך אגב), אבל נתקע בשורה שבה הוא אמור לשנות את הצבע, הוא לא מדאבג אלא מחזיר לי #VALUE.
אגב, אם אני עושה סתם דיבאג על הצבע של התא הוא מצליח לקרוא אותו, אבל לשנות הוא לא משנה.
מה יכולה להיות הבעיה? זה איזה באג בשורה הזו שהוא יכול רק לקרוא את הנתון של הצבע אבל לא לשנות אותו.
תודה רבה!

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

If IsNull(MyRecordset.Fields(9).Value) Then
    GetMit = "Not Found"
Else
    GetMit = MyRecordset.Fields(9).Value
End If

יהיה משהו כזה:

If MyRecordset.Fields(7).Value = "1234" Then
    ActiveCell.Interior.Color = RGB(100, 100, 0)
End If

כך שהערך "1234" לא יופיע באקסל, אבל התא יופיע בצבע צהוב.
אבל זה לא עובד....
מה הבעיה?
תודה.

שלום וברכה.
יש לי קובץ אקסל עם קוד למשיכת נתונים מאקסס, הקוד עובד כך שהוא 'קורא' את מספר התא ועפי"ז מייבא נתונים מאקסס.
הקוד הוא:

Function GetName(mid As String) As String
On Error GoTo Error_GetMit
Dim MyConnection    As ADODB.Connection
Dim MyRecordset     As ADODB.Recordset
Dim MyQuery         As String
Dim path            As String

Set MyConnection = New ADODB.Connection
Set MyRecordset = New ADODB.Recordset
Set MyRecordset1 = New ADODB.Recordset

MyConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & path
MyConnection.Open MyConnectionString

MyQuery = "select * from Table1 WHERE Number = '" & mid & "'"
Set MyRecordset = MyConnection.Execute(MyQuery)

If IsNull(MyRecordset.Fields(2).Value) Then
    GetMit = "Not Found"
Else
    GetMit = MyRecordset.Fields(2).Value
End If

MyRecordset.Close
Set MyRecordset = Nothing
MyRecordset1.Close
Set MyRecordset1 = Nothing
MyConnection.Close
Set MyConnection = Nothing
Exit Function

Error_GetMit:
    GetMit = "Error"
    MyRecordset.Close
    Set MyRecordset = Nothing
    MyRecordset1.Close
    Set MyRecordset1 = Nothing
    MyConnection.Close
    Set MyConnection = Nothing
End Function

ובגיליון:

=GetName(DN23)

הקוד עובד מצוין.
אני רוצה עכשיו לעשות שבקוד ההוא (GetName) יהיה תנאי שאם הערך שווה ל"פלוני" לדוג' הוא יצבע את התא בצהוב.
יש איך לכתוב את זה בקוד (ולא בעיצוב מותנה)?
תודה רבה.

תוכנה בשם "mosesdial".
זה תוכנה של מרכזיה שהתקינו לי חברת מוזס תקשורת ומחשבים.

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

@אוריי אמר בכפתור לפתיחת חייגן באקסס:

יש להגדיר את החייגן כברירת מחדל של המחשב

יש אפשרות בווינדוס 10 להגדיר תוכנה כחייגן?
תודה.

הצלחתי!!!
השתמשתי בMSXML2.ServerXMLHTTP60 וזה עובד מצוין כולל העברית.
תודה לכולם!

יש דרך אחרת לשלוח בקשת GET דרך אקסס במקום MSXML2.XMLHTTP?

@yossiz ניסיתי להמיר את כל מה שכתוב בעברית לקידוד של urlencoding עם הפונקציה שיש בקישור שהבאת, אבל זה עדיין לא עובד.
זאת אומרת הוא סולק את האשראי אבל את העברית הוא ממיר לסימני שאלה.

@yossiz
זה שולח את הבקשה עם סימני שאלה במקום עברית.
ואז באתר קשר ככה נרשם שם התורם והכתובת.

שלום וברכה.
קיבלתי מקשר (סליקת אשראי) כתובת URL שצריך לשלוח אליה בקשת GET לצורך סליקת אשראי.
בדקתי את הכתובת בכמה תוכנות ואתרים והיא עובדת מצוין.
הבעיה היא כאשר אני מנסה להכניס אותה לקוד VBA באקסס.
היא סולקת את האשראי אבל כל העברית נהפכת לסימני שאלה.
הקוד הוא כך:

Public Function transaction()
Dim oHttp As Object
Dim TextBody As String

Set oHttp = CreateObject("MSXML2.XMLHTTP")

TextBody = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={""userName"":""1234567890"",""password"":""abcdef1234"",""func"":""SendTransaction"",""format"":""json"","""
TextBody = TextBody & "tran"":{""Address"":""שם רחוב"",""ApiKey"":""ABC123"",""City"":""עיר"",""CreditNum"":""4580000000001234"",""Token"":null,"""
TextBody = TextBody & "Expiry"":""2101"",""Cvv2"":""123"",""Total"":100,""Currency"":1,""CreditType"":1,""Phone"":""0521234567"",""ParamJ"":""J4"",""TransactionType"":""debit"",""Comment1"":""הערה 1"","""
TextBody = TextBody & "FirstName"":""שם פרטי"",""LastName"":""שם משפחה"",""ProjectNumber"":""1"",""Mail"":""<לא ניתן לפרסם מיילים באופן פומבי>""}}&format=json"

oHttp.Open "GET", TextBody, False

oHttp.send TextBody
Debug.Print oHttp.responseText
End Function

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

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