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

@יעקב-ט
משום מה זה לא יצא טוב אז אני מעלה עוד פעם
הקוד בדוגמה הוא 1234

    Dim appAccess As Access.Application
    Set appAccess = CreateObject("Access.Application")
        
    appAccess.OpenCurrentDatabase "C:\Users\א\Desktop\אקסס.mdb", False, "1234"

@חייםיודלביץ ```
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")

appAccess.OpenCurrentDatabase "C:\Users\א\Desktop\אקסס.mdb", False, "1234"