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

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

@odeddvir מקבל.
שוב תודה רבה!

תודה!
אז לדעתכם עדיף לתת שמות רגילים לתוויות ובטבלה להפנות לפי שם טופס ושם פקד?
שימו לב שמדובר בעיקר (או רק) על תוויות וכיתוביות על לחצנים, ולא על תיבות טקסט וכדו'.
ולכן חשבתי תמיד לכתוב טקסט בשפה העיקרית כמו ש@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
זה שולח את הבקשה עם סימני שאלה במקום עברית.
ואז באתר קשר ככה נרשם שם התורם והכתובת.