نجوم المشاركات

الآن انت الوحش

السلام عليكم ورحمة الله بالضغط على زر الزيادة والنقصان ستتغير الاسماء فى الورقة المطلوبة اليك الملف الصف الرابع والخامس 2016-2017.rar

السلام عليكم تفضل المرفق لعل فيه ما تريد... بن علية حاجي Q.rar

جرب التعديل التالي وسوف تتضح الصورة لديك اختر Admin أو A.Salah UsersAutho.zip

وعليكم السلام ورحمة الله أنت بحاجة إلى وسيط ثالث يقوم بتحديد هوية المستخدم أولا حتى تتمكن من تطبيق الفكرة. يمكن تحديد هوية المستخدم بأحد الطرق التالية: * الطريقة التقليدية.. وهي عمل نموذج إدخال لهوية المستخدم وبعد ذلك تقوم بمطابقة هوية المستخدم مع الهوية في جدول التوجيه بالطريقة التالية DoCmd.OpenForm Dlookup("[Wanted]","Table1",UserName='" & Me.UserName & "'"), acNormal * الطريقة غير التقليدية.. وهي الاستفادة من هوية مستخدم ووندوز كوسيط للدحول، لكن هذه الطريقة تحتاج إلى أن تكون قاعدة البيانات في مجلد مشترك وفي بيئة متعددة المستخدمين، إما على جهاز واحد، أو أجهزة شبكية متعددة بالطريقة التالية DoCmd.OpenForm Dlookup("[Wanted]","Table1",UserName='" & Environ("UserName") & "'"), acNormal لتطبيق هذا الخيار بشكل أفضل يستحسن عمل وظيفة للقلاع مع الميكرو Autoexec

جرب doc.Quit

اسال الله العظيم ان ينفع بك الإسلام والمسلمين استاذي شفان برد قلبي كذا ما قصرت سلمت يديك ربنا يجزيك خير والقائمين على المنتدي الرائع الذي باذن الله اتخرج منه شاكر اليك تحياتي

اذن اليك هذا الكود Private Sub n1_AfterUpdate() On Error Resume Next Dim R As Integer R = Mid(DLookup("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'"), 6) If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "Mid([rajmasand],6)='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "Mid([rajmasand],6)='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If End Sub واليك المرفق بعد تعديل طبق-بهدا.rar

تفضل doc.ActiveDocument.ActiveWindow.PrintOut _ Range:=wdPrintFromTo, From:="2", To:="2" باعتبار ستطبع الصفحة رقم 2

شكرا بس انا مش عارفه ابدأ البرنامج من انهو نموذج

نعم القي نظرتا الى الصورة عملت لك كما مبينة في الصورة القي نظرتا الى الصورة عملت لك كما مبينة في الصورة اتفضل مع المرفق افتح نموذج واكتب فيها سنة و شهر مثلا 2017/07 وافتح التقاریر test 5000.rar

اجعل الفقرة على ضبط وبالنسبة للأسطر القصير اضغط فى نهاية السطر على Shift+ Enter مرة واحدة وقولى على النتيجة اذا استفدت فلا تنسنى من الدعاء لى ولوالدى ووالدتى وأمة محمد أجمعين