Shivan Kurdi - شڤان کوردی

هل وصلت للمطلوب ام بعد ؟ واذا لا ما تريد بالضبط ؟ توضح لنا المطلوب

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

اخي ههـ 88 اخي @hh88 انت ما ارفقت القاعدة لذلك استاذنا الحبيب @محمدنجار اعطاك الكود

استخدم هذا Private Sub WorkScope_AfterUpdate() Dim rst As DAO.Recordset Dim D 'As Integer Dim X As Integer ' = Cycles Dim E ' = CSN Dim F ' = CSO Dim Z ' = VisitSeq Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst X = rst!Cycles rst.MoveNext D = rst!VisitNo E = rst!CSN F = rst!CSO Z = rst!VisitSeq rst.MovePrevious If D = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.VisitNo) Then rst.Edit rst!VisitNo = D + 1 rst.Update rst.Close: Set rst = Nothing Else End If End If If E = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.CSN) Then rst.Edit rst!CSN = E + X rst.Update rst.Close: Set rst = Nothing End If End If If IsNull(Form_frm_WORKSCOPE.Visit_Seq) Or Form_frm_WORKSCOPE.Visit_Seq = "" Then rst.Edit rst!CSO = "" rst.Update rst.Close: Set rst = Nothing End If If Z = "0" Then rst.Edit rst!CSO = X rst.Update rst.Close: Set rst = Nothing End If If Z >= "1" Then rst.Edit rst!CSO = X + F rst.Update rst.Close: Set rst = Nothing End If Me.frm_WORKSCOPE.Requery End Sub اليك مرفقك qs-4.rar

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

اتفضل استاذ اليك هذا الاستعلام SELECT tbData.ID, tbData.SALAIRE, DSum("[Janvier]","tbMois","[Data_id]=" & [ID])+DSum("[Février]","tbMois","[Data_id]=" & [ID])+DSum("[mars]","tbMois","[Data_id]=" & [ID])+DSum("[avril]","tbMois","[Data_id]=" & [ID])+DSum("[mai]","tbMois","[Data_id]=" & [ID])+DSum("[Juin]","tbMois","[Data_id]=" & [ID])+DSum("[Juillet]","tbMois","[Data_id]=" & [ID])+DSum("[Août]","tbMois","[Data_id]=" & [ID])+DSum("[Septembre]","tbMois","[Data_id]=" & [ID])+DSum("[Octobre]","tbMois","[Data_id]=" & [ID])+DSum("[Novembre]","tbMois","[Data_id]=" & [ID])+DSum("[Décembre]","tbMois","[Data_id]=" & [ID]) AS Total_Jour, ([SALAIRE]/30)*[Total_Jour] AS Debiteur, DSum("[Montant]","tbDch","[Data_id]=" & [ID]) AS Creancier, [Creancier]-[Debiteur] AS [Rest Apye] FROM (tbData INNER JOIN tbDch ON tbData.ID = tbDch.Data_id) INNER JOIN tbMois ON tbData.ID = tbMois.Data_id GROUP BY tbData.ID, tbData.SALAIRE; ملفك بعد اضافة الاستعلام Database.rar

اتفضل اليك هذا On Error Resume Next Me.RecordSource = "" Me.البحث_العام.SourceObject = "" Dim sql As String Dim sql1 As String 'sql = "ALTER TABLE السجل ALTER COLUMN التسلسل COUNTER PRIMARY KEY" ' تحديد حقل کمفتاح اساسي 'sql = "ALTER TABLE السجل ADD id INT AUTO_INCREMENT;" ' اضافة حقل نمبر sql = "ALTER TABLE السجل DROP COLUMN التسلسل" sql1 = "Alter TABLE السجل ADD التسلسل AUTOINCREMENT(1)" DoCmd.RunSQL (sql) DoCmd.RunSQL (sql1) Me.RecordSource = "السجل" Me.البحث_العام.SourceObject = "البحث العام" سيحذف الحقل التسلسلي ويعمل حقل جديد بارقام جديدة تصفير الارقام التسلسلية.rar

شكرا على سعة صدرك استاذي الحبيب

اتفضل انا غيرت حقل رقم السند الى نصي اليك هذا كقيمة افتراضية لمربع نصي باسم رقم السند لنموذج ايرادات ="A000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "إيرادات'");"A0000");2;10)+1 وهذا لسند سداد ="S000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "سداد'");"S0000");2;10)+1 وهذا لنموذج القبض ="G000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "قبض'");"G0000");2;10)+1 وهذا لنموذج المصاريف ="M000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "مصاريف'");"M0000");2;10)+1 اليك الملف بعد تعديل 3333.rar اعتذر منك استاذ @jjafferr الموضوع كان مفتوح وما انتبهت لردك

ما رأیک ان ترفق نسخة مصغرة من قاعدة بياناتك وسنعمل المطلوب عليه

السلام علیکم اولا : ترید ان نعمل فلتر لأی استعلام ؟ پانیا : ادخل بیانات اکثر في جدول الرئيسي لان الان بها سجل واحد فقط ثالثا : للعلم ان نوع الحقول المطلوبة هو تاريخ و الوقت وليس الن لذلك اعمل التعديلات المطلوبة ... بعدين ارفع القاعدة من جديد تحياتي

هذا اهم شيء 1 / اقرأ بعض كتابات على الاكسس لكي تعرف ما هو بصورة عامة 2 / الجانب العملي سيعطيك الخبرة اكثر من قراءة الكتاب .. اي اعمل ما تريد و شارك مع الموضوعات وان شاء الله بمرور الوقت ستكون كما تريد هذا رأي

او فقط في حدث تحميل التقرير اكتب Private Sub Report_Load() Me.Filter = "[saf] = 10 And [ksm] = 1" Me.FilterOn = True End Sub

اتفضل افتح التقریر فی وضع تصميم واعمل كما في الصورة اليك المرفق بعد تعديل Database1 (1).rar

استخدم هكذا >=#16/04/2017# And <=#15/05/2017# وسيعطيك النتائج مقبولة ان شاء الله

وما هو الحال اذا يكون القاعدة من نوع ACCDB ACCDE ؟ اليك هذا لكل انواع ACCDB ACCDE MDB MDE غیر ھذا السطر من الكود If (Split(Forms!FORM1!txtPath, ".")(1)) = "MDE" Then بـهذا If Right(Split(Forms!FORM1!txtPath, ".")(1),1) = "E" Then

اليك هذا DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste

نقدر نستخدم هذا في البداية نكتب اون ايرور ريسوم نيكست On Error Resume Next Dim sql As String Dim sql1 As String Dim x As Integer x = Len(Forms!FORM1![txtPath]) - Len(Replace(Forms!FORM1![txtPath], ".", "")) If (Split(Forms!FORM1!txtPath, ".")(1)) = "MDE" Then sql = "UPDATE TdateT INNER JOIN [system.MDE].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" sql1 = "UPDATE TdateT INNER JOIN [system_admin.MDE].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" Else sql = "UPDATE TdateT INNER JOIN [system.MDB].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" sql1 = "UPDATE TdateT INNER JOIN [system_admin.MDB].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" End If DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.RunSQL (sql1) DoCmd.close acForm, Me.nAME لا فهمت مني خطأ .! انا قصدي ما اريد ان يتم تنزيل اي ملف الى جهاز بدون رخصتي اي يعني ما اريد تنزيل اي شيء فقد للتأكيد هل هناك تحديث ام لا بل اريد ان يتأكد واذا هناك التحديث بيعمل التنزيل

بعد هذه الخطوة يجب عليك ان تعمل كوبي باست هذا السجل الى سجل جديد وبعدين تعمل عليه التعديلات

فرضنا انا واحد من المستخدمين لا اريد ان يتم تنزيل اي ملف الا بعد موافقتي فرضنا انا عملت التنزيل الملف هذا شي ليس طبيعي ان تنزل ملف فقط لكي تعرف هل هناك تحديث ولا لا

الان ليس لدي شيء ولكن حسب فكري الان يجب ان يقرأ ما بداخل الملف تيكست قبل تنزيل من الانترنيت وليس بعد

ممكن تعطينا مثال مع نسخة مصغرة من قاعدة بياناتك مع توضيح الحقول المطلوب للعملية عليه

حسب مستطاعي انا حاضر لكن في الحقيقة انا لا اعرف ما هو اللازم علي ان افعل ... لأني بعد لا اعرف ماذا تريدون بالفعل ... وبحب العمل معك واذا تكون مستعد ان تشتعغل معنا هذا سيكون حافز لنا لكي نشتغل احسن ونقدم اتفضل اليك هذا الحل Dim sql As String Dim x As Integer x = Len(Forms!FORM1![txtPath]) - Len(Replace(Forms!FORM1![txtPath], ".", "")) If (Split(Forms!FORM1!txtPath, ".")(1)) = "MDE" Then sql = "UPDATE TdateT INNER JOIN [system.MDE].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" Else sql = "UPDATE TdateT INNER JOIN [system.MDB].Tdate ON TdateT.ID = Tdate.ID SET Tdate.demo = TdateT.demo" End If DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.close acForm, Me.nAME اليك القاعدة example.rar

اتفضل اليك ھذا الاختيار من المربع والحفظ.rar