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

الغي هذا 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 % لك مني كل الشكلر والتقدير

انا في انتظارك استاذي ماقصرت من اول الموضوع وانت من جاب الطلب وانا ممنون لك ربي يحفظك

يا اخوان انا عارف والله ان طريقتي ما تعجبكم بس بحب اوضح لكم شي انا عامل عند الاقلاع انه يقلع من مجلد البرنامج بالدي وعندما ادخل بينات ت Public Function acbRelink(strPath As String, Optional blnSilent As Boolean) As Boolean On Error GoTo alalal Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set DB = CurrentDb() For Each tdf In DB.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط\data\tailor" tdf.RefreshLink End If Next Call SysCmd(acSysCmdClearStatus) If blnSilent Then MsgBox " تم العوده الى النسخه الأصليه مره أخرى ", vbInformation, " بـرنـامـج الـخـيـاط : النسخه الأصليه " End If alalal: If err.Number = 3024 Then MsgBox " عفوا مجلد البيانات تم نقلة أو أعادة تسميتة " & Chr(13) & " لذا سوف يتم اغلاق البرنامج " & Chr(13) & " رجاء أذهب الى مصدر البرنامج وتأكد من وجود مجلد باسم " & Chr(13) & " بجوار ملف بـرنـامـج الـخـيـاط tailor ", vbYes, " بـرنـامـج الـخـيـاط : خطــــــأ " DoCmd.Quit End If End Function حفظ بالدي ولكن عندما اعمل ارتباط يجي اي واحد من العمال يدخل بيانات وعند الاقلاع تجدها غير موجوده ويستوي لخبطه انا لست خشيم الى هذة الدرجه كل واحد المهم الاستاذ ابو خليل بارك الله فيه جاب المطلوب وما قصر بقلى شي قليل اظن انه حله بسيط ليس صعب وقد يكون الخطاء مني انا

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