jjafferr

حياك الله :) جعفر

وعليكم السلام :) في البرمجة ، كل شئ يمشي :) بالنسبة لبرنامجك ، واذا اردت ان تواصل ، فاقترح: 1. ان تجعل المستخدم يختار المنطقة اولا ، وبدون ان تظهر سعر الصالون او الفان ، 2. لما تختار السيارة (وعندها تعرف هل هي صالون او فان) ، حينها تظهر السعر الصحيح من رقم 1 ا…

يمكنك عمل هذا عن طريق webbrowser والذي VBA Reference حقه هو: C:\Windows\System32\ieframe.dll وبه تقدر تفتح صفحات الانترنت كذلك :) جعفر

حياك الله ، ولا يهمك :) جعفر

وعليكم السلام اخي :) في الوحدة النمطية اعلاه ، غير السطر التالي: s = s & "start "" "" ""%~f2.%3""" & vbCrLf الى s = s & "start "" "" " & Application.CurrentProject.FullName & vbCrLf :) جعفر

انا رديت عليك قبل ان تسأل: لم استطع ان استخدم رسالة التنبية (هذه حدود إمكانياتي :( ) ، لذلك عملت في النموذج خانة ذكرت فيها: جعفر

حياك الله :) في النماذج المستمرة ، اذا اردت التعامل مع حقول السجل الواحد ، فيجب عليك استعمال if الشرطية ، هكذا: اختار الحقل ، ثم اضغط بالفأرة اليمين ، واختار if الشرطية: لاحظ اننا وضعنا شرطين للحقل TR ، ولعمل الشرط ، اضغط على New Rule: اختار Expression is وادخ…

اخي فيصل :) بهذا الامر: SendKeys "{TAB}", True فانت تأمر الكمبيوتر ان يتصرف كأنه ضغط على زر TAB ، وهو ما يجعل تنقل الايقونه من حقل الى آخر ، ولما تعطيه الامر مرتين ، فانك كأنما تضغط مرتين ، اي الذهاب الى الحقل الاول ثم الثاني !! انا جربت مرفقك السابق ، واتضح ا…

وعليكم السلام اختي :) خلينا نتكلم بدون كمبيوتر وبدون برنامج :) أ. احنا علشان نحسب حسابات جعفر ، فلازم نشوف إضبارة جعفر بشكل منفصل عن بقية الاشخاص ، واذا كان عندنا دفاتر السجلات القديمة ، تلقين ان لكل شخص صفحته الخاصة به ، ب. البائع في هذه الدفاتر ، يسجل دائن/م…

الله يطول في عمرك اخوي :) ، انا قلت لك بصريح العبارة: ولو مو قصدي ازعلك ، لكنك الله يسلمك ما اخبرتني بكل اللي تريد :( انت ابدا ما جبت طاري شركة :( فكان سهل عمل البرنامج بجميع المتطلبات من البداية :) يالله ، في المرة الجاية ان شاء الله خلي جميع المعطيات من البد…

حياك الله أخي رمهان :) جعفر

الله يسلمك ويعافيك أخي ابوحاتم ، والسلام موصول لأخينا عبيدالله ، صاحب الهدية :) جعفر

تسلم ايدك اخي ، البرنامج شغال :) جعفر

هل جربت الكود والطريقة اللي انا اقترحتها عليك؟ جعفر

الحمدلله :)

وعليكم السلام :) آسف لم افهم هذه النقطة :( استعمل هذا الكود: Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Frame55 = 3 And Len(Me.TR & "") = 0 And Me.RR = 0 Then Me.Frame55 = 2 End If End Sub جعفر

:)

لأن الفانوس السحري والجني اللي فيه ، لم يخبرني انك محتاج هذا :) ، واعتقد بأنك اكدته كذلك: ولكن ، تحت أمرك ، اليك هذا الكود:) Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_StopMdfy") rst.MoveLast: rst.MoveFirst For i = 1 To rst.R…

تفضل :) انت لا تحتاج الى كود لهذا العمل ، وانما لإعادة تنظيم Tab Index الحقول ، فكل الذي عليك فعله هو اعادة الترقيم كما هو في الصورة المرفقة: جعفر

وعليكم السلام :) على حدث معاينة التقرير ، استعمل الكود التالي حيث اننا نربط التقرير بالتاريخ الذي في النموذج: Dim myFilter As String myFilter = "[date_working]= #" & Me.date_working & "#" ' myFilter = myFilter & " AND " ' myFilter = myFilter & "[id_mach_w] = "…