تعديل علي كود استعلامي اضافة وتحديث

[محمد صلاح1]

تعديل علي كود استعلامي اضافة وتحديث
أريد أضافة بعض الحقول وقيم خصائصها علي الكود التالي وهذه الحقول الجديدة المضافة هي:
ID_User رقم يزيد بمقدار 1 عند كل إضافة
ID_Group رقم
IAM نص مختصر
BIRTHDATE تاريخ/وقت
Email نص مختصر
PHONE نص مختصر
ImagePath نص مختصر

الكود

'If IsNull(DLookup("Uname", "Users", "Uname='الدعم الفني'")) Then
'CurrentDb.Execute "INSERT INTO Usys_Users ([Uname],[Pw],[AddingDate]) Values ('" & "الدعم الفني" & "','" & "12345" & "', '" & Date & "')"
'Else
'CurrentDb.Execute "UPDATE Users SET [Uname] ='الدعم الفني',[Pw]='" & "12345" & "',[AddingDate]='" & Date & "' WHERE Uname='الدعم الفني'"
'End If

 

[محمد صلاح1]

للرفع

[د.كاف يار]

اتفضل اخي الكريم

 Dim Rs, RsFile As Recordset
 Set Rs = CurrentDb.OpenRecordset("اسم الجدول")
     Rs.MoveFirst
Do While Not Rs.EOF

 If IsNull(DLookup("ID_User", "Users", "ID_User='" & [ID_User] & "'")) Then
    Rs![ID_User] = [ID_User]
    Rs![ID_Group] = [ID_Group]
    Rs![IAM] = [IAM]
    Rs![BIRTHDATE] = [BIRTHDATE]
    Rs![Email] = [Email]
    Rs![PHONE] = [PHONE]
    Rs![ImagePath] = [ImagePath]
    
    Else
        If Rs![ID_User] = [ID_User] Then
            Rs.Edit
            Rs![ID_Group] = [ID_Group]
            Rs![IAM] = [IAM]
            Rs![BIRTHDATE] = [BIRTHDATE]
            Rs![Email] = [Email]
            Rs![PHONE] = [PHONE]
            Rs![ImagePath] = [ImagePath]
            Rs.Update

        End If
End If
    Rs.Update
    Rs.MoveNext
  Loop
    Rs.Close

 

[محمد صلاح1]

أ @د.كاف يار السلام عليكم

شكراً جزيلاً لحضرتك علي كرم المشاركة والإفادة الإيجابية وأسمح لي نظراً لقلة علمي بعالم الأكواد والبرمجة بطرح استفسار من داخل الكود الذي تفضلت به إكمالاً للفائدة وهو

كيف أعرف الفرق إذا كانت الإضافة في هذه الحقول "أجبارية" أي أنه لن يتم اضافة بيانات في حقول الجدول إلا عندما إذا تم ادخال البيانات في كافة أسماء الحقول الواردة في الكود وبين إمكانية قبول اضافة إدخال البيانات في بعض الحقول الجدول دون البعض وأكرر خالص شكري وتقديري

[د.كاف يار]

لاجبار المستخدم على ملئ جميع الحقول 

اضف الفكشن التالي

Function IsNullTextbox()
Dim ctlNull As Control, I As String, X As Integer
   For Each ctlNull In Me.Controls
        If ctlNull.ControlType = acTextBox Or ctlNull.ControlType = acComboBox Then
            If IsNull(ctlNull) Then
                I = ctlNull.Name & vbCrLf & I
                X = X + 1
            End If
        End If
   Next ctlNull
        If X > 0 Then
            MsgBox I, , " توجد حقول فارغة "
        Else
            MsgBox "تم الحفظ بنجاح"
        End If

End Function

 

في الازرار استدعي الفكشن

Call IsNullTextbox()

 

[محمد صلاح1]

15 ساعات مضت, د.كاف يار said:

اتفضل اخي الكريم

أخي الفاضل بارك الله فيك

هذا الكود مهمته الأساسية تسجيل يوزر وباس الأدمن تلقائياً بمجرد فتح النموذج فأن كان موجود من قبل فبها ونعمه وإن لم يكن موجود سجله برمجياً دون إشعار بذلك وعليه

أين أضع القيم لاسم الأدمن ورمز مروره والواردين في المشاركة الأولي برأس الموضوع باسم "الدعم الفني" وكذلك رمز المرور "12345" داخل الكود الذي تفضلت به 

15 ساعات مضت, د.كاف يار said:

Rs![BIRTHDATE] = [BIRTHDATE]

وعند الرغبة في التعديل المسميات هل الاسم الأول كما في الاقتباس لاسم الحقل في الجدول والثاني لاسم الكائن بالنموذج أم العكس

وشكراً

 

تم تعديل سبتمبر 26, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

نظراً لغياب الأستاذ @د.كاف يار هل يمكن لأحدا الأخوة مساعدتي في مطلوب أخر مشاركة وشكراً

[ابو عارف]

تفضل أخي محمد

H_R0210.rar

[محمد صلاح1]

شكراً جزيلاً أستاذ @ابو عارف علي الاهتمام

سوف أطالع المرفق وأوافيك بالنتيجة وجزاك الله عني كل خير

[محمد صلاح1]

منذ ساعه, ابو عارف said:

تفضل أخي محمد

بعد التطبيق يدخل علي نموذج Home بفضل الله ثم بجهدكم المشكور لا أعلم سبب ظهور الرسالة التالية الموضحة بالصورة

 

تم تعديل أكتوبر 3, 2019 بواسطه محمد صلاح1

[ابو عارف]

3 ساعات مضت, محمد صلاح1 said:

بعد التطبيق يدخل علي نموذج Home بفضل الله ثم بجهدكم المشكور لا أعلم سبب ظهور الرسالة التالية الموضحة بالصورة

في حدث تحميل نموذج Home اوقف سطر الثاني On Error Resume Next

ثم حاول من جديد ثم صور رسالة خطاء  و ارفعها 

[ابو عارف]

تفضل أخي اليك التعديل  ولا تنس تطابق جميع خصائص عناصر عند تطبيقهم على برنامج الاساسي 

 

H_R0210.rar

تم تعديل أكتوبر 5, 2019 بواسطه ابو عارف
تبديل المرفق