תודה!
אז לדעתכם עדיף לתת שמות רגילים לתוויות ובטבלה להפנות לפי שם טופס ושם פקד?
שימו לב שמדובר בעיקר (או רק) על תוויות וכיתוביות על לחצנים, ולא על תיבות טקסט וכדו'.
ולכן חשבתי תמיד לכתוב טקסט בשפה העיקרית כמו ש@dovid כתב, אבל את השם של הפקד לכתוב בתור קוד, כי ככה יותר קל להפנות לטבלה.
לא עדיף?
ארי
-
שינוי שפת תוכנה -
שינוי שפת תוכנהשלום וברכה.
יש לי תוכנת אקסס שאני רוצה אפשרות להחליף לה שפה.
הכוונה היא שיהיה אפשרות לשנות את השפה של התוויות הלחצנים וכדו'.
חשבתי על רעיון לעשות לכל תווית קוד, וטבלה עם הקודים שלהם והכיתוב לכל שפה.
ואז בפתיחת טופס הוא נותן לכל תווית את הכיתוב שלה לפי ההגדרה של השפה.
מה דעתכם? והאם יש פיתרון טוב יותר?
תודה רבה. -
נתונים באקסל=A+B
ואם אתה רוצה רווח ביניהם:
A + " " + B -
API למיקוד לפי כתובת בישראל- האם קיים?@odeddvir תודה
אבל משום מה הקודים של הערים זה לא אותם קודים ש @ivrtikshoret הביא.
פשוט מעניין אותי אם יהיה לי את המקור של הקודים ההם, אני אולי אוכל לעשות קוד שמחפש רחוב בעיר מסוימת בלי לעשות טבלה של כל הערים והקודים שלהם. -
API למיקוד לפי כתובת בישראל- האם קיים?@ivrtikshoret תודה!
אגב, מאיפה הרשימה של הערים? -
API למיקוד לפי כתובת בישראל- האם קיים?@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 להגדיר תוכנה כחייגן?
תודה. -
שליחת בקשת GET בעבריתהצלחתי!!!
השתמשתי בMSXML2.ServerXMLHTTP60 וזה עובד מצוין כולל העברית.
תודה לכולם! -
שליחת בקשת GET בעבריתיש דרך אחרת לשלוח בקשת GET דרך אקסס במקום MSXML2.XMLHTTP?
-
שליחת בקשת GET בעברית@yossiz ניסיתי להמיר את כל מה שכתוב בעברית לקידוד של urlencoding עם הפונקציה שיש בקישור שהבאת, אבל זה עדיין לא עובד.
זאת אומרת הוא סולק את האשראי אבל את העברית הוא ממיר לסימני שאלה. -
שליחת בקשת GET בעברית@yossiz
זה שולח את הבקשה עם סימני שאלה במקום עברית.
ואז באתר קשר ככה נרשם שם התורם והכתובת. -
שליחת בקשת GET בעבריתשלום וברכה.
קיבלתי מקשר (סליקת אשראי) כתובת 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
האם למישהו יש רעיון איך אפשר לסדר את זה?
יצוין שדרך תוכנות אחרות גם העברית בסדר.
תודה רבה מראש! -
יצירת שדה מפתח ראשיאני רוצה לסדר תוכנה ישנה שיש לי, ואני רוצה לשנות את אחד השדות בטבלה לשדה מפתח (הוא כבר היה מוגדר באינדקס ללא כפילות)
אבל אקסס נותן לי שגיאה "אין אפשרות לשנות את המפתח הראשי. טבלה זו הינה הטבלה הראשית במספר קשרי גומלין. אם ברצונך לשנות או להסיר את המפתח הראשי, ראשית מחק את קשר הגומלין בחלון קשרים."
מחקתי את כל הקשרי גומלין והוא עדיין לא נותן לי לשנות את השדה לשדה מפתח.
מה זה יכול להיות?
תודה רבה.