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

@clickone יש לך איך להסביר לי בגדול איך עובדים עם זה (או להפנות אותי להסבר)?
תודה.

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

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

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

מצאתי. כותבים בקוד בפקד כך:

    Set objPopup = CommandBars("Simple")
    objPopup.ShowPopup
    
    Set objPopup = Nothing

עכשיו יש לי רק בעיה אחת (בינתיים)....
איפה אני יכול למצוא את הרשימה של הפקודות האפשריות לכתיבה בתפריט?
הפקודה היא cmbShortcutMenu.Controls.Add ויש שם מאפיין של ID לכאו' של הפקודה המבוקשת.
אני אני לא מצליח למצוא רשימה של כל הפקודות האפשריות (פתיחת טופס לדוג').
תודה!!!

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

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

@odeddvir חוזר לי שגיאה על השורה הזאת

ctrlName = rs(ControlName)

@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) יהיה תנאי שאם הערך שווה ל"פלוני" לדוג' הוא יצבע את התא בצהוב.
יש איך לכתוב את זה בקוד (ולא בעיצוב מותנה)?
תודה רבה.