أمير2008

جرب الكود ده Select Case Me.TEX999 Case "انهاء خدمات" Me.nhaee = [exittotal3] Case "استقالة" Select Case Me.TEX15 Case Me.TEX15 < 1800 Me.nhaee = [exittotal1] Case Me.TEX15 > 1800 And Me.TEX15 < 3600 Me.nhaee = [exittotal2] Case Me.TEX15 < 3600 Me.nhaee = [exi…

- فقط في حدث فتح التقرير الكود الصحيح : Private Sub Report_Open(Cancel As Integer) t1.ControlSource = "الاسم" End Sub أما الكود الخطا السابق : Private Sub Report_Open(Cancel As Integer) t1.Control_Source = "الاسم" End Sub Db.rar

اذا أردت الخروج بدون زر خروج فلا تفتح الفورم على سجل جديد لأنه سوف يطالبك بقيمة المفتاح الأساسي لذلك احذف كود اضافة سجل جديد من حدث فتح الفورم DoCmd.GoToRecord , , acNewRec

أنا أضفت التاريخ في الاستعلام مصدر التقرير وفي مصدر بيانات الرسم البياني كتبته في جملة الاختيار SELECT وفي التعديل الأخير عدلت في خيارات التنسيق للرسم البياني

بعد إذن أ/ أمير والاستاذة / زهرة بالطبع أرجو من أ/ أمير تغيير طلبه إلى (التصدير إلى ملف اكسل كقالب تمبليت ) وهذا الملف فارغ من الداتا به كل التنسيقات المرغوبة وبعدين تصدر له من الأكسس البيانات فقط لأنه كما تقول أستاذتنا زهرة صدرنا استعلام يعني داتا لذلك ثم تقو…

وعليكم السلام ورحمة الله بالنسبة لي سوف أجيبك على الطلب الأول بالمرفق Enjaaaz18for fixing.rar

أنا ملاحظ إن طلباتك قليلة ههههههه على العموم بصرف النظر عن التصميم أنا فقط اخترت حل النقطة رقم 5 بخصوص زر الترقيم التلقائي والباقي على الزملاء ‫New WorkO 13.rar

الحمد لله أخيرا أنا فهمت المطلوب ههههه بالمناسبة : لو عندك تعديلات أو تعقيد أكثر أخبرني بكل دقة لكن على آخر وضع للمرفق ومشكور على الدعاء وعلى التقييم وأيضا +1 ههههههه

- za-Print Diplicated-END4.rar

كلاكيت ثالث مرة Deccnum3.rar

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

اذا وجدت الكود بهذه الطريقة Private Sub ragmroksa_AfterUpdate فاعلم أن : الحدث هو AfterUpdate عنصر الحدث هو : ragmroksa الرخص.rar

أنا آسف أخي/ أبو حاتم لو تكرمت ممكن تشرح لي المطلوب استنادا على الملف الذي أرفقته لك سابقاً وأرفقه لك الحين لأني مش فاهم طلبك بمعنى ايه الفرق بين طلبك وبين الملف المرفق ؟! هل تريد تعديل ما ؟ Deccnum2.rar

أنا آسف أخي/ أبو حاتم لو تكرمت ممكن تشرح لي المطلوب استنادا على الملف الذي أرفقته لك سابقاً وأرفقه لك الحين لأني مش فاهم طلبك بمعنى ايه الفرق بين طلبك وبين الملف المرفق ؟! هل تريد تعديل ما ؟

ههههه الله يكرمك ويكون النموذج عند حسن ظنك (نسيت أخبرك اذا عملت عملية اضافة أو بحث عن مريض فاضغط دبل كليك ( مرتين بالزر الأيمن للماوس) لكي يتم تسجيل المريض في الحالة وطبعا الأرقام للميقاتي تكتبها بنفسك.) ولو اكتملت الطريقة الثانية سيكون لديك نموذج يجمع بين خصا…

عندك : User = VBA.Environ("UserName")MsgBox (User) وعندك كمان : Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSUserName() As String Dim lngLen As Long, lngX As Lon…

. za-Print Diplicated-END3.rar

وعليكم السلام ورحمة الله وبركاته والله كلامك جميل ودعواتك أجمل ودائما كل من ساهم بحل مشكلة يكون أكثر سعادة من صاحب المشكلة نفسه وأحب أن أثمن على أسلوبك وإلحاحك المحترم في طلبك فآخرون يمكن أن يسخطوا ويقولوا : أين العباقرة ؟ هي المسألة صعبة عليكم ولا ايه ؟ فين ا…

If [Toggle3].Value = False Then Me.Text0 = "تم الاستلام" Else Me.Text0 = "لم يتم الاستلام" End If

Private Sub ragmroksa_AfterUpdate() Dim db As DAO.Database Dim strSQL, rag, msg As String rag = Me.ragmroksa Set db = CurrentDb() Dim a a = DLookup("[ragmroksa]", "ArchiveRJ1", "[ragmroksa] =" & rag) If Not IsNull(a) Then msg = "'" & rag & "' موجود بالأرشيف ."…