ناقل

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

تفضل المستخدم ناقل والباس 123 encoder replacement.rar

للاسف هذه الطريقة لا تستورد العلاقات انت تحتاج طريقة استيراد نسخة احتياطية ... حتى تتم استيراد الجداول مع العلاقات ابحث عن طرق استيراد نسخ احتياطية في المنتدى وسوف تجد العديد والعديد منها

كدة .... عند اضافة البيانات ..... عند اضافة عدد الشهور .... يظهر تاريخ النهاية تلقائيا .... file.rar

جرب كده المستخدم ناقل باس 123 Usrse1.accdb

تفضل ....... ابا الحسن ... استيراد_ناقل.accdb

وعليكم السلام ضع هذا في حدث الحالي مثلا ..... مربع البحث a Me.a.SetFocus

هل هذا ماتريد ؟؟؟؟ استيراد_ناقل.accdb

من خصائص النموذج .....

في حدث عند التغيير لمربع نص بداية الشهر ...... او ارفق مثال للتعديل عليه

x = DateAdd("m", 5, Date()) ضع مكاة الخمسة الحقل الذي فية الزيادة المطلوبة

ابو زهرة هناك طرق عديدة في المنتدى لتحديث برنامجك لدى المستخدمين ... ابحث تجد ... منها هذا ...

بل انا تلميذ وطالب علم اتعلم من الاساتذة امثالكم بارك الله فيك ....

استخدم هذا ..... Me.a = WeekdayName(Weekday(Date), False) أو ..... Me.a = Format(Date, "ddd")

اصنع زر في النموذج وضع فيه هذا الكود بارك الله فيك ...... بعد اختيار السجلات اضغط على الزر ليفتح لك استعلام وبه السجلات المختارة On Error GoTo Err_cmdRunQuery1_Click Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String, strWhere As String Dim i As Integer Set db = CurrentDb strSQL = "SELECT Data_Tech.* FROM Data_Tech " strWhere = "Where a1 IN( " For i = 0 To SearchList.ListCount - 1 If SearchList.Selected(i) Then strWhere = strWhere & "'" & SearchList.Column(0, i) & "', " End If Next i strWhere = Left(strWhere, Len(strWhere) - 2) & ");" strSQL = strSQL & strWhere db.QueryDefs.delete "qryMyQuery" Set qdf = db.CreateQueryDef("qryMyQuery", strSQL) DoCmd.OpenQuery "qryMyQuery", acNormal, acEdit Exit_cmdRunQuery1_Click: Exit Sub Err_cmdRunQuery1_Click: If Err.Number = 3265 Then Resume Next Else MsgBox Err.Description Resume Exit_cmdRunQuery1_Click End If تفضل مرفقك بعد التعديل عليه واضافة الزر .... طبق اعلمنا بالنتيجة ..... بيانات التوجبه (1).rar

لا تحتاج معذرة بين الاخوة ولكن انظر الصورة .... بارك الله فيك

مين سعيد ...... !!!!!😂😂😂😂

قصدق يكون ملف الاكسل متواجد على سطح المكتب والبرنامج في مكان اخر ؟؟؟؟ لان البرنامج الذي لديك هو نقل البيانات الى الملف وليس تكوين ملف جديد ّ!!!!! على كل حال جرب وضع ملف الاكسل على سطح المكتب والبرنامج في مكان اخر ..... تفضل التعديل ... aaa.rar

طيب حددت بعدين ؟؟؟؟ اشرح بالكامل رجاءا

هذا الموضوع ممكن يفيدك ......

نعم يصلح ولكن انتبه جيدا للتعديلات !!!!!!

هل تريد تصدير الصفوف المختارة في ملف اكسل واحد ..... ام تريد ترحيل كل صف الى ملف اكسل مستقل ؟؟؟؟ ( الرجاء ارفاق ملفك )

عدل مصدر النموذج الرئيسي والفرعي

وبارك فيك ز...

تم يعطيك العافية ..................................