رمهان

بعد القراءة مرارا انصحك بان يكون هناك عمود ترقيم تلقائي في الجدول وهو يساعد كثيرا في مثل هذه الحالات ! وهذه محاولة حسب فهمي . طبقها في استعلام (الصقها) : Expr1: DMax("[التاريخ]";"الحركات";"[الفواتير] is not null and [اسم العميل]='" & [اسم العميل] & "'") بالتوفيق

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

ممكن رابط واحد فقط من هذه المنتديات ؟؟ وهل منتدانا احدها ؟ ام لا ولماذا ؟

مع اختيار first - last - max-min في عمود الرقم يمكن الاستفادة من فكرة التجميع ! بالتوفيق

ممكن مرفق ؟ ويبدو ان اخي المراغي وضع مفتاحا للحل مشكورا !

وعليكم السلام ابو جمانه لم افهم المطلوب تماما !! هنا استفسار : 1.حقل التاريخ بجدول الحركات هل يقصد به تريخ الحركة ام تاريخ الفاتورة ؟ 2. ممكن شرح : عدم وجود رقم فاتوره احيانا ؟ وشرح تكرار رقم الفاتوره احيانا لنفس العميل ؟ ومعا سنصل لما تريد باذن الله ! بالتوفيق

عزيزي قبل ان اجيب مباشرة اريدك تلقي نظرة على التالي للفائدة: افتح الجدول >> اذهب لايقونة الفلترة في عمود to_date >> اختر من القائمة الفرعية "عوامل تصفية التواريخ" مايناسبك ... حاول تجربة جميع الخيارات بالتوفيق

لربط المواضيع ! وبالصدفة اخوي جعفر وجدت اخونا العود سابقنا وهنا تحياتي

العفو

Private Sub أمر13_Click() For i = 1 To Nz(نص11, 0) If Me.NewRecord Then Exit Sub lik = IIf(lik = 0, -1, lik) DoCmd.GoToRecord , , acNext i = i + Nz(lik, 0) Next End Sub بالتوفيق

تفضل ياباشا محاولة تنفيذ الفكرة وعلى عجالة ! وباذن الله مع بعض حتى تضبط تماما ! بالتوفيق access to word.rar

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

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

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

افتح الملف في اول مشاركة ثم الورقة2 ستجد نفس ماقمت به اخ الشمال ! السائل يريدها بالاكسس ! بالتوفيق

جرب عزيزي في حدث بعد التحديث: Private Sub Category_AfterUpdate() On Error Resume Next Me.cobClient.Visible = (Me.Category = "الشركات") Me.cobEmployee.Visible = (Me.Category = "العمال") Me.Category.SetFocus End Sub وفي حدث الحالي للنموذج : Private Sub Form_Current() Call Category_AfterUpdate End Sub هذه فقط للاكواد ! اما كفكرة للتصميم فيكون عمود واحد في الجدول ! سيحتوي الاسم ! وطبعا سنعرف نوعه من خلال عمود الفئة! وهنا سيكون مصدر الكمبو في النموذج جملة اس كيو ال متغيرة حسب اختيار الفئة ! هنا عزيزي حبيت افيدك بفكرة وكمعلومة اضافية ! جنبا الى انك مؤدي كما تريد وبطريقتك وهي صحيحة الى حد ما! ولكن انبهك الى انه بطريقتك ستضيف اعمدة في الحركات حسب نوع الفئة وهذا به تحدي كبير خصوصا لما يكون هناك فئة جديدة بعد اغلاق البرنامج وتسليمه للمستخدم ! هذا واتمنى ان افدتك وبالتوفيق

يظهر لي مبدئيا الدالة val ليس بها قيم بين قوسيها ( الباراميترز) ! ولو تفيدنا بعمل الدالة جزيت خيرا انا شايف هي تعيد المعادلة كنص وعبارة عن قسمة العددين وكشكل للمعادلة ! ولكن لم اصل للهدف ! بالتوفيق

تفضل وحسب طريقتك ! ماحبيت اغير لكي لا تتشتت ! لا حظ الكود في حدث في الحالي للنموذج Private Sub Form_Current() Call Category_AfterUpdate If IsNull(Me.Category) Then Me.cobClient.Visible = False Me.cobEmployee.Visible = False End If End Sub بالتوفيق

عزيزي اعمل قاعدة جديدة واستورد لها فقط النموذج ومصدره ومصادر الكمبو بكسس الثلاثة ! ثم اضغط القاعدة وارفقها كملف مضغوط

المرفق ؟

اخي الكريم ارفق ملف اكسس به جدول به البيانات بالتوفيق

وهذه فكرة اخرى لفكرة الاخ عبدالله If Len(Dir(CurrentProject.Path & "\" & ID, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & ID MsgBox ("تم الانشاء بنجاح") Else MsgBox ("المجلد موجود مسبقا") End If بالتوفيق

اعتقد الموضوع مكرر وهنا يمكنك كتابة رفع هناك ! بالتوفيق

حياك الله اخي الكريم في الاكسس يتم الجمع بشرط او معيار باستخدام الدالة dsum وهي احد دوال المجال التجميعية ! لو بحثت في الموقع ب dsum ستجد معلومات وافية وكافية ! او ارفق ملفك وبه ماتريد للتطبيق عليه ! بالتوفيق

عزيزي الاستاذ اباعارف ملاحظة في مكانها وتم التعديل : Function ramhan_round(xnumber, xrounded) xn = Format(xnumber, "0." & String(iif(xrounded < 0, 0, xrounded), "0")) ramhan_round = Left(xn, Len(xn) + Int(Right(xn, 1) = ".")) End Function =ramhan_round(55, 3)) ولم افهم المقصود هنا : اذا على الاسم سميها زي ماتحب ابو عارف ! وهنا والله لم افهم المقصود كذلك ! فهلا ذكرت اسم الدالتين لافادتنا استاذنا ! تحياتي