ابو ياسين المشولي

بالتوفيق اخي

شوف هل هذا ماتريد حذفتها حسب طلبك شو اخي ضع هذا الكود عند الحفظ DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO user (phone,uid,uname) VALUES (phone,uid,uname)" DoCmd.SetWarnings True وهذا قبل او بعد الحدث في اي حقل تريده Me.uid.Value = Nz(DMax("[uid]", "user") + 1, 1) وفبل هذا اجعل الرقم بدل ترقيم تلقايل اجعله رقم تحياتي

صدقت اخي Shivan Rekany الاسم يدل على المسمى ولكن اخونا عمل الاسم غير والقصد غير

الغي هذا DoCmd.GoToRecord , , acNewRec

بالتوفيق اخي

جرب هذا "EmpPdfFiel\" & "[emp_id]\" & "[name_morfke]")

الله ياعافيك بالتوفيك اخي ابو زاهر

اتفضل هذا طلبك سالب.rar

اجعل مصدر قاعدة التحكم في التقرير =DLookUp(" [PIC] ";"tblpics")

العفو اخي بارك الله فيك

جعلت بينات التقرير بهذا الشرط SELECT MM.[اسم العقار], MM.[مالك العقار], MM.[موقع العقار], MM.[رقم العقار], MM.[موقع الشقه], MM.[اسم المستاجر], MM.[رقم الفاتوره], MM.[رقم الحساب], MM.[القراءه الحاليه], MM.[القراءه السابقه], MM.[كميه الاستهلاك], MM.[قيمه الاستهلاك], MM.[قيمه الخدمات], MM.[اجمالي القيمه] FROM MM WHERE (((MM.[رقم الفاتوره])=[Forms]![M]![رقم الفاتوره])); اعمل تصميم التقرير وشوف من فين مصدرة مصدرة مشرط برقم الفاتورة

اتفضل جرب هذا اتمنى يكون حسب طلبك BF000.rar

جرب هذا Dim stLinkCriteria As String stLinkCriteria = "[SN]=" & "'" & Me![SN] & "'" DoCmd.OpenReport "EE5", acViewPreview, , stLinkCriteria

ممتاز بارك الله فيك

Dim xFname As String Set xFile = CreateObject("Scripting.FileSystemObject") Set Stshell = CreateObject("WScript.Shell") ' مسار واسم الملف xFname = "D:\data.mdb" 'بحث عن الملف في المسار في المتغير السابق If xFile.FileExists(xFname) = True Then 'اذا وجده شغل الملف Stshell.Run xFname 'غير ذلك اي لم يجد الملف Else MsgBox "غير موجود تاكد من مسار الملف" End If Set xFile = Nothing Set Stshell = Nothing جرب هذا

اتفضل اتمنا يكون المطلوب حفظ التاريخ بجدول الاصناف.rar

اخي ابو زاهر اجعل الكود عند الخروج تحياتي

العفو اخي ابو زاهر بالتوفيق

اتفضل ارجو ان يكون طلبك اللون عند التركيز.rar

مانفع استاذي ابو خليل هو كان هذا On Error GoTo MyErr Exit Sub MyErr: MsgBox " مصرح بإسترجاع البيانات المنسوخه أو المحفوظه " & Chr(13) & " عن طريق ( بـرنـامـج الـخـيـاط ) فقط ", vbInformation, " بـرنـامـج الـخـيـاط : خطــــــــأ " شوف حاول تحذف اي خانه في اي جدول وشوف لم يقبل او حاول تستورد من اي قاعده لم يقبل

ضع الامر في الوسط DoCmd.SetWarnings False هنا ضع امر الكود DoCmd.SetWarnings True

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

بارك الله فيك وجزاك الله خير

اتفضل اذا طلعت رساله خطاء اخبرني On Error GoTo MyErr DoCmd.RunSQL "DELETE friends.NameOfFriends " & vbCrLf & _ "FROM friends " & vbCrLf & _ "WHERE (((friends.NameOfFriends)=[ادخل الاسم]));" Me.Requery Me.Refresh MyErr: If Err.Number = 25 Then MsgBox " يـجـب عليك ادخال الاسم " & _ Chr(13) _ & "تم الغاء الحـذف" _ , vbInformation, _ "مع تحيات ابو ياسين المشولي" Cancel = True End If

تسلم استاذي ابو خليل بس هذة خطيرة جدا الاولى افضل بنسبة 95 % لك مني كل الشكلر والتقدير