د.كاف يار

اجعل الجدول بهذه الطريقة فلن يقبل تكرار رقم الموظف في نفس التاريخ

متسرع في ردك كالعادة المرفق يعمل بصورة جدا ممتازة و لا توجد عليه أي شوائب لكن قد يكون الفرز في عمود غير العمود الذي تريده في المعادلة فقط قم بتغيير اسم العمود الى العمود الذي تريده اخي @Barna مجهودك اكثر من ممتاز و اخونا @bumb هذه عادته دائما متسرع في الاجابة و اتوقع انه يطلع على النتائج و لا يطلع على الكيفية ارجوا ان تتفهموا وجهة نظري فهي للتقريب و ليست للتفريق شكرا لكم ,,, ,

تفضل listboxSearch (22).zip

تفضل هذه بعض الأكود تحتاجها في عملية الاضافة و التعديل و الحذف الإضافة Sub Add_New_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("INSERT INTO Table_Name " & _ "([column_name1], [column_name2], [column_name3]) " & _ " VALUES(" & _ "[some_value1]," & _ "[some_value2]," & _ "[some_value3]," & _ ")") rs.Close Set rs = Nothing End Sub التعديل Sub Edit_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("UPDATE Table_Name SET " & _ "[column_name1] = new_value," & _ "[column_name2] = new_value," & _ "[column_name3] = new_value," & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub الحذف Sub DELETE_Data() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim Address_Server As String, UserName_Server As String, Password_Server As String Dim strConnString As String Address_Server = "" UserName_Server = "" Password_Server = "" strConnString = "Provider=SQLOLEDB;Data Source=" & Address_Server & ";Persist Security Info=True;User ID=" & UserName_Server & ";Password=" & Password_Server & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("DELETE FROM Table_Name " & _ "WHERE column_name = some_value") rs.Close Set rs = Nothing End Sub

اتفضل هذا التعديل d (3).zip

اتوقع انك تواجه مشكلة مع التاريخ لكن الموضوع ببساطه عليك ان تنقل ملف Modil الى برنامجك و تضعط مصدر العنصر مثالما هو عليه استخدم هذا الملف d (222).rar

اخي عند التعامل مع ارسال او تلقي البيانات فلن تحتاج الى استخدام هذه الرموز هي فقط تضاف حين الاتصال بالجداول من خلال الاكسس و بما انك حولت الى sql فأنت بحاجة الى بعض التعديلات للاتصال بقاعدة البيانات من خلال الكود و اذا رغبت بالاستمرار على نفسك وضعك الحالي فقط قم بتغيير اسماء الجداول المرتبطة و حذف رمز التمييز منها

استبدل الكود بالتالي [am_Pu7] = Nz([d_10], 0) + Nz([F_1], 0) - Nz([Di_Pu7], 0) تعويض الفارغ بصفر 0

تفضل التعديل طلب الايداع.accdb

تفضل التعديل listboxSearch (1).accdb

تفضل هذا التعديل NILE LAB2.zip

اتوقع انك مستخدم ملف خطأ اتفضل هذا التعديل d (222).rar

هيا جرب الأن d (1).zip

تفضل 2120855148_NILELAB2.accdb

طيب جرب هذا التعديل d.zip

طيب اتفضل قاعدة 22.accdb

الله يبارك فيك و في الجميع تمام

طيب لابد تفهم شي اي برنامج عبارة عن ادخال و اخراج اداخل البيانات عن طريق النموذج - الفورم و الأخراج - عن طريق التقارير معالجة البيانات و تطبيق الشروط تكون عند الإدخال اي لابد من فورم لكي تعالج البيانات بالطريقة التي تريدها

طيب اين الفورم يا رجل ؟

تفضل التعديل قاعدة 22.accdb

احتاج افهم انت كيف بتستخدم قاعدة البيانات طريقة اداخل البيانات كيف ؟

اشترك في هذا السيرفر اشتراك مجاني و جرب اذا لقيت الامور تمام اشتري مساحة كبيرة و اسعارهم معقولة لكن ماهي رخيصة و لا غالية معقولة المهم في الأمر سرعة السيرفر

تفضل اخي الكريم لكن نصيحتي لك بأن تجعل المسميات باللغة الانجليزية حتى تستطيع التعامل بسهولة مع الجداول برمجيا d.zip

بسبب المعيار الموجود في الاستعلام المرتبط بالتقرير انا لغيت المعيار في الاستعلام في النموذج و جعلت الفلتر بالكامل بالكود طبق نفس الكود على التقرير

للأسف طلبك غير واضح لكن تفضل هذه التعديل قد يكون اقرب لما تريده الاتحاد.zip