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

@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

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

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

חוץ מזה שלי יש עוד שורה כזאת:

using System.Windows.Navigation;

הכל אותו דבר.

@WWW אמר בהתחברות בAPI לאתר OfficeGuy מאקסס:

@dovid אמר בהתחברות בAPI לאתר OfficeGuy מאקסס:

אני לא מבין למה זה קורה. אני מרים ידיים.

רק אציין שאני פעלתי לפי ההוראות שלך, וקיבלתי חלון עם 123.

תשלח צילום של הקוד שלך בבקשה
תודה

ניסיתי בפרוייקט חדש מהתחלה אבל גם שם כשאני מריץ אותו הוא כאילו מוריד לי מהאינטרנט קובץ בשם tchumim.xbap מצו"ב

מה זה???

זה הקוד המלא

using System;
using System.Collections.Generic;
using System.Configuration;
using System.Data;
using System.Linq;
using System.Threading.Tasks;
using System.Windows;
using System.Windows.Navigation;

namespace tchumim
{ 
    /// <summary>
    /// Interaction logic for App.xaml
    /// </summary>
    public partial class App : Application
    {
        public App()
        {
            var win = new Window();
            win.Content = "123";
            win.Show();
        }
    }
}

הוא מוריד לי איזה קובץ מהאינטרנט
tchumim.xbap

כשאני לוחץ על השגיאה הוא מביא אותי לדף שבו אמרת לי למחוק שורה

הוא מביא לי איזה שגיאה

עובד מצוין, אם כי לא הבנתי מה עשיתי?