Shivan Rekany

اخي الكريم السلام عليكم ورحمة الله وبركاته تمام عند زوم بيظهر الفراغات لكن عند الطباعة ماتشوف الفراغات على الرغم كل ذلك اتفضل اليك طريقة اخرى سيظهر هكذا عند تعمل زوم 500% اللي انا عملت هو زادت من حجم التخطيط بدرجة اتفضل اليك ملفك بعد تعديل القي نظرتا اليها New Microsoft Access Database (1).rar و هل وصلت للمطلوب بعد هذا ام بعد ؟ تقبل تحياتي

حسب فهمي لسؤالك واحتمال ان يكون فهمي لسؤالك بيكون غلط لكن اكتب الكود في نموذج قبل تحديث بدلا من حقل قبل تحديث هذا والله يعلم

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

استأذن من السيد جعفر فقط لزيادة الفائدة اليك هذا الرابط لعل به ما تريد

استأذن من الاستاذنا @jjafferr , @أمير2008 رغم من كثرة الاجابات اليك هذا Private Sub Form_Load() Dim sql As String sql = "UPDATE tbTable SET tbTable.[check] = True WHERE (((tbTable.dateend)<Date()));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub

اعتذر منك بشدة انا لا افهم ما تريد بالضبط هل تريد عملية البحث ام تريد جلب بيانات من جدول لعمل حركة جديدة ؟

اهلا بك في منتداك منتدى اوفيســــــــــــــــــــــنا اتفضل اليك هذا الكود Private Sub رقم_الكفيل_BeforeUpdate(Cancel As Integer) If Len(Me.رقم_الكفيل & "") <> 0 Then If DCount("[idyatem]", "[اليتبم مرسل]", "'=[رقم الكفيل]" & Me.رقم_الكفيل.Column(0) & "'" & _ " And [الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "يوجد يتيم آخر لنفس الكفيل " Cancel = -1 Else ارسال_Click End If Else End If End Sub واليك ملفك بعد تعديل لكن القي نظرتا الى كود الارسال عندك واعتذر منك استاذنا @ابوخليل ما رأيت مشاركتك لان النيت عندي ضعيف كتير yahya.rar

في خدمتكم ان شاء الله

استأذن من استاذنا @jjafferr هل تريد ان يظهر هكذا بدون ازالة لاي اوت اتفضل اليك هذا الحل وبعد عمل هذا خلي يكون مؤشر الماوس بيكون على Page Footer حتى يكون يغير شكل المؤشر الى سهمين للاعلى ولاسفل واسحبه الى اعلى لكي لا يكون هناك فراغ اليك قاعدة بياناتك بعد تعديل تقبل تحياتي New Microsoft Access Database.rar

اليك هذا الرابط به ماتريد واكثر تقبل تحياتي

السلام عليكم اخي الكريم ابو نظره اذا تريد ان يقبل بوينتات يجب ان تتغير نوع الخصائص الرقم للحقل في الجدول من Long Integer الى Double ابو نظره القي نظرتا الى المنتدى راح تشوف ما تريد واذا ما شفت افتح موضوع جديد وشرح ماتريد بالتفصيل تقبل تحياتي

اولا // انا اضفت حقل جديد باسم ID1 الى الجدول ثانيا // اليك هذا الكود Private Sub Combo2_BeforeUpdate(Cancel As Integer) If Len(Me.Combo0 & "") = 0 Then MsgBox "اولا يجب ان تختار نوع الحركة" Me.Undo End If End Sub Private Sub Combo2_AfterUpdate() If Me.Combo2 = "مستلزمات" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "صرف" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "A" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "مستلزمات" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "اضافة" Then Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 Me.Text4 = "B" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1 End If End Sub ثالثا // اتفضل اليك قاعدة بياناتك بعد تعديل New.rar

شكرا على الهدية الله يبارك فيك ويجزيك الفردوس الاعلى

اصبر فان الصبر مفتاح الفرج اذا ما وصلت عالنتيجة حتى غدا ان شاء الله غدا لي العودة تقبل تحياتي

الحمد لله وصلت للمطلوب قلت لك من قبل اصبر فإن الصبر مفتاح الفرج تقبل تحياتي

استأذن من استاذنا @أبو عبدالله الحلوانى اتفضل خذا هذا Private Sub المبلغ_AfterUpdate() Forms![نموذج1]![الشهر الحالي2].SetFocus Forms![نموذج1]![الشهر الحالي2].Requery End Sub

هناك سؤالين ما هو السبب ان تستخدم الازرار لتصفية السجلات ؟ هل كومبوبوكس واحد ما يوصلك الى حاجتك ؟

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

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم اولا // انا حذفت قيمة افتراضية "اي شيء" لحقل doc في نموذج رئيسي ثانيا // انا نقلت كود عند الفتح لنموذج الرئيسي لتابع حقل التاريخ zdate الى بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف Me.Zdate = Date ثالثا // انا نقلت هذا الكود من بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف الى قبل تحديث لنفس الكومبوبوكس Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True واضفت هذا الكود بعد كود الاعلى If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If اي يعني في الاخير الكود قبل تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف صار هكذ Private Sub Combo51_BeforeUpdate(Cancel As Integer) Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True Me.Zdate = Date If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If End Sub والبعد تحديث صار هكذا Private Sub Combo51_AfterUpdate() [Forms]![trans_top]![Transaction subform].SetFocus DoCmd.GoToRecord , , acNewRec End Sub اتفضل قاعدة بياناتك ex (1).rar تقبل تحياتي

اصبر ستتوصل للنتيجة اذا ما وصلت الى النتيجة غدا ان شجاء الله ساعود لك مع النتيجة واسف لاني الان عم استخدم موبايل

الان انا اعمل علبرامج وزبائني يريده مني ان اعمل لها باقصر وقت ممكن وبع ذلك ان شاء الله راح اكتب اسمي مع المتطوعين

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

كما قلت لك مسبقا يا سيدي وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7 اي الكلمة ( Area:{ ) حجز 6 مقاعد واحنا عطيته مقعد واحد بهذا صار 7 مقاعد ولكي نحذف تلك المقاعد يجب نعيه 7- جرب ان تحذف احد من الحروف البداية اذا حذف مثلا حرف A في Area:{ يجب ان تعطي رقم 6 - والله يعلم مع تقدير

هل تريد ان يظهر هكذا Area:{Qarain} بالتمام او فقط اللي بين قوسين