• הרשמה
    • התחברות
    • חיפוש
    • דף הבית
    • אינדקס קישורים
    • פוסטים אחרונים
    • קבלת התראות מהדפדפן
    • משתמשים
    • חיפוש בהגדרות המתקדמות
    • חיפוש גוגל בפורום
    • ניהול המערכת
    • ניהול המערכת - שרת private
    1. דף הבית
    2. ירוק
    3. שנוי במחלוקת
    י
    • פרופיל
    • עוקב אחרי 0
    • עוקבים 0
    • נושאים 13
    • פוסטים 56
    • הגבוה ביותר 4
    • שנוי במחלוקת 2
    • קבוצות 0

    פוסטים השנויים במחלוקת שנוצרו על ידי ירוק

    • RE: עזרה בקודים לתקשור דרך אקסס

      @amp-Software-0
      @מוטלה @אריה @עמוד-הימני-פטיש-החזק @dudu @עץ-השדה

      ‏‏זה הקובץ

      בבקשה
      אשמח מאד לעזרתכם!

      פורסם בשאלות ועזרה הדדית
      י
      ירוק
    • עזרה בקודים לתקשור דרך אקסס

      @מוטלה @אריה @עמוד-הימני-פטיש-החזק @dudu @עץ-השדה
      אני מנסה לבנות טופס באקסס רק להוספת מספרים לרשימת התפוצה, אין לי הרבה ידע בזה,
      אולי תוכלו לעזור לי לבדוק מה עשיתי לא טוב

      Option Compare Database
      
      Private Sub Form_Load()
      GetDefault
      
      End Sub
      Private Sub Update_Click_Click()
      If IsNull(UserName) Or IsNull(Password) Or IsNull(phone) Or IsNull(name) Then MsgBox "יש למלא את כל השדות": Exit Sub
      If ContactYemot(UserName, Password) = False Then Exit Sub
      ymtUpdateTemplateEntry UserName, Password, templateid, phone, name, moreinfo
      MsgBox "הסתיים בהצלחה", vbInformation, "הוספת מספר"
      
      End Sub
      
      Sub GetDefault()
      UserName = Nz(DLookup("UserName", "Defaults"), Null)
      Password = Nz(DLookup("password", "Defaults"), Null)
      templateid = Nz(DLookup("templateid", "Defaults"), Null)
      phone = Nz(DLookup("phone", "Defaults"), Null)
      name = Nz(DLookup("name", "Defaults"), Null)
      moreinfo = Nz(DLookup("moreinfo", "Defaults"), Null)
      End Sub
      
      

      5902eb17-3fec-4994-aedf-22d36e43eed6-image.png
      ae849d90-af66-421c-be13-985379e83d7f-image.png
      de194b2d-7083-4cea-9f5c-bfe9b0324221-image.png
      ועוד בעיות אחרות

      פורסם בשאלות ועזרה הדדית
      י
      ירוק