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

@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

ועוד בעיות אחרות