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

اتفضل استاذ اليك هذا Public Sub OpenDocument(DocPath As String) Dim A As Long A = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & DocPath, vbMaximizedFocus) End Sub Private Sub Command1_Click() Call OpenDocument("C:\Users\Shivan\Desktop\TEST.pdf") End Sub

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

تنبيه.xlsx

اتفضل استخدمت فانكشن لبقية الكود مع متغير Public YesOrNo As Integer Public Function PrintMyRep() If YesOrNo = 1 Then DoCmd.OpenReport "Rprnt", acViewNormal, , "[orderno] = " & Me![orderno] Form_f_order.SetFocus DoCmd.GoToRecord , , acNewRec If Me.orderno > 0 Then Exit Function Else Refresh Call MyOutoNum F_ordersubform.SetFocus DoCmd.GoToControl "itemcode" Refresh End If End If End Function msg form (1).rar

وعليكم السلام ورحمة الله وبركاته تفضل: مع تغيير اسم الكومبو الى Snf ضع هذا الكود في حدث بعد التحديث للكمبو السابق For i = 1 To 5 Select Case Me.Snf Case "ضابط" Me("m" & i).Visible = False Me("d" & i).Visible = True Case Else Me("d" & i).Visible = False Me("m" & i).Visible = True End Select Next i

شوف الصورة في ثلاث خطوات

السلام عليكم عندي هذا الكود يفتح ملفات بي دي اف ولكن تظهر رسالة تحذير قبل فتح الملف كيف يمكنني التخلص من رسالة التحذير Dim strFile As String On Error GoTo Failure strFile = Me.track If Len(Dir(strFile)) Then FollowHyperlink strFile Else MsgBox "no file found" End If Exit Sub Failure: MsgBox err.Description err.Clear وان كان هناك كود افضل منه فلا مانع المهم ان استطيع فتح ملف بي دي اف من النموذج

السلام عليكم و رحمة الله بناءا على طلب بعض الاخوة الاعضاء الى اخوانى مسئولى كنترول التعليم الثانوى التجارى اليكم شيت كنترول الصف الثانى مرفق ملف الشيت و معه ملف وورد لشرح طلريقة الاستخدام و انا مستعد لأى استفسار ثانية تجارى.rar

تنسيق شرطي

هل الملف المرفق يجيب على طلبك؟؟ Book6.xlsx

واضافة الى ما تفضل الأستاذ شيفان يتم تغيير القيمة الافتراضية برمجياً بهذا الكود: Me.YourTxt.DefaultValue = """القاهرة"""

.net framework

رائع جدا ممكن الخطوات بالتفصيل ؟؟ عندي قائمتين منسدلة أريد اربطهم وضعت ID بالاولى وربطته بحقل بالقائمة الثانية وسويت علاقة ؟ بعدها اضع كود vb او ماذا ؟؟؟

السلام عليكم أخي أبو الحارث : كما اوضحت لك فى الموضوع السابق ، يرجى ارفاق الملفات هنا مباشرة و ليس روابط فى مواقع اخرى و قد قمت باضافة الملف لمشاركتك الاولي ، و لامانع من اضافة اي تحديثات فى مشاركات تالية. و هناك خاصية يمكن استخدامها فى مكتبة الموقع لرفع الملفات المقيدة و اصداراتها المختلفة. و السبب فى هذه القاعدة المتبعة هو عدم ضمان حذف او تعديل الملفات الخارجية بعد ان يكون النقاش قد بني عليها ، و ايضا عدم اضطرار القارئ للتسجيل فى مواقع اخرى لتسجيل الملف ، و قد واجهتنا سابقا حالات متعددة دفعتنا لهذا الخيار. الأخ Aaccessna أولاً ، ارجو منك تغغير اسم الظهور لما نستطيع مناداتك به بسهولة و أريحية اكثر ثانيا: مرحبا بعودنك للمشاركة ، و نشكر الاخ ابو الحارث على موضوعه الذي اعادك للمشاركة بعد قرابة سبعة سنوات من الغياب ، ثالثاً: نشكر لك حرصك على جهود أصحاب المشاركات المميزة فى المنتدى. و حفظ حقوقهم الفكرية. و ارجو ان يكون ذلك فى اطار من رحابة الصدر لتقبل وجهات النظر الاخرى و التي قد تكون صجيجة كليا او جزئيا. الي الأخوة جميعاً : اتمنى مراعاة الحرص فى اختيار جمل المشاركة ، فنحن لا نسمح باي حوارات تشمل سخرية او حتى تلميحات. وسيتم تعديلها فورا مرحبا بطرح اي وجهة نظر تفيد النقاش و لكن مع مراعاة ما اعتدنا عليه من طريفة فى الحوار ، حتى و ان كنت متاكدا من وجهة نظرك ، فارجو طرحها برفق و بطريقة ملائمة. لكي نحافظ على طريفة الحوار فى المشاركات التالية اننا فى مجال منتديات التبادل المعرفي كلها ، يفترض اننا لسنا فى منافسة او سباق ، و المعلومات متاحة للجميع ، للاستفادة منها و البناء عليها. آمل ان يكون الحوار مقارنة فنية دون تحيز لوجهة نظر و الا يغلب على الحوار محاولة لاثبات شيء ما او نفيه فهذا افضل حتى فى سبيل الوصول الي الاثبات او النفي بطريفة حضارية تتفق ما اعتدنا عليه من أدب الحوار .و لنستفيد جميعا من الحوار البناء.

اعطينا نسخة مصغرة من القاعدة لكي نقدر نعطيك الحلول

عطينا نسخة مصغرة من المرفق نعطيك الحلول

السلام عليكم موضوعك غير مشروحة بالتفصيل شو بيظهر في ذلك القائمة شو بيعمل لك ذاك القائمة

ممتاز أنا عاجز عن الشكر استاذي الكريم @kanory وأسف جدا اني تعبت حضرتك معايا

تفضل جرب هذا ..... نسخ حقل في 1النماذج.rar

نحن نعمل هذا من اجل ذلك

السلام عليكم ورحمة الله وبركاته راح ارد على بعض الردود واولا انا ما حبيت هذه الطريقة ولا اشوف ان هذا بيكون طريقة علمية !! نفترض انا مستخدم وعندي برامج تجريبي واذار فتحت اكثر من 10 مرات راح يقفل هناك احتمال ان تغلق الجهاز في اليوم مرتين او اكثر ... او هناك احتمال ان لا نغلق الجهاز لمدة طويل اي لكم يوم او هناك 2 من المستخدمين الجهاز والاخر لا يعرف ما هو بالضبط بيفتحه و بيغلقه هذا سينقص عدد مرات والا هذا اسهل من الفترة التجريبية لعدد ايام المحدودة هذا موجودة ان شاء الله كما قلت مسبقا لا احب هذه الطريقة اولا لان اللوحة الام لا يظهر لبعض الاجهزة اليك هذا https://www.officena.net/ib/topic/76477-معرفة-سيريال-الهارد-الحقيقي-والمعلج-واللوحة-الأم/?do=findComment&comment=491182 ثانيا اليك هذا https://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/?do=findComment&comment=440567 لذلك انا ابتعد عنه نعم يمكن لكن هذا الموضوع معنونة كشرح ... وانا استخدمت جدول فيه لكي يسهل على الجميع لكي يفهم خطواته ... واذا تريدون ذلك فقط تقدر تضيف حقل اخر في جدول وعند فتح القاعدة يعمل تحديث الحقل ويضيفه رقم واحد على الرقم المكتوبة وفي محرر الاكواد تكتبون شرط ايف اذا الرقم الموجودة بيكون اكبر او يساوي هذا الرقم اغلق القاعدة قبل هذه الملاحظة انا عملت القاعدة ... لكن رأيت هذه الملاحظة مفيدة جدا لذلك غيرت القاعدة والان انا اشتغل على ذلك حضرتكم بيطلب لي ذلك لكي لا يظهر عند المستخدم ... على طلبكم كان اريد اغير لكن للاسف انا الان لا اقدر ان اعمل تعديلات عن الشرح الاعلى لاني ليس لدي حق التعديل بعد الان وكما قلت مسبقا الموضوع هو الشرح لذلك قمت بعطاء الحق للمستخدم ان يختار مدة التفعيل وبعدين يتصل للمبرمج لكي يعطيه كود التفعيل لذلك المدة المحددة بنفسه وللعل ذلك الكود يستخدم لذلك الفترة فقط ولا يمكنه ان يستخدمه لفترة اخرى وبذلك المستخدم راح يعرف ان هذا البرامج بها فترات محدودة للتجربة منذ البداية انا اقرأ ملاحظاتكم لكن لم ارد عليكم لاني كان مشغول

السلام عليكم يمكنكم تجربة هذا البرنامج بالأكسيس بارك الله فيكم المحاماة.rar

بعد اذن اخي علي Book12.xlsm

تفضل ..... [اسم_الحقل_المراد_نقل_التركيز_إليه].SetFocus

تتميز الفكره بادخال حركات المخزن على صفحات الاكسيل مباشره لا على نوافذ حيث السرعه ستكون اكبر ومن الممكن انزال البيانات Copy و PAST اهدى اليكم الفكره لكل اصدقاء المنتدى مع المطالبه لكل مفكرى المنتدى باى اضافات ممكنه وذلك للافاده للجميع كارته مخزن.rar

=SUM(INDIRECT("b"&A19&":b"&A20)) ممكن يكون طلبك .. حسب مافهمت من سؤالك

ضع هذا الكود تحت زر النسخ .... DoCmd.RunSQL "UPDATE safy_madfoa INNER JOIN tasweat ON safy_madfoa.emp_code = tasweat.emp_code1 SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa], tasweat.mn1 = [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

ارجو ان يكون هو الحل محافظات.mdb

تفضل Sub Save() ThisWorkbook.Save End Sub

وعليكم السلام تفضل هذا المثال واذا طلبت المزيد يمكنك البحث في المنتدى او الدخول على قناة الاستاذ عبد اللعاطي حمدان ( A-Soft التعليمية ) قائمة منسدلة متربطة بقائمة اخرى.rar

أهلا بك اخ كريم بالمنتدى كان عليك استخدام خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/86688-مطلوب-كود-يجعل-شيت-الاكسيل-لا-يعمل-الا-على-كمبيوتر-واحد-فقط/ https://www.officena.net/ib/topic/86721-كيفية-منع-التعديل-على-الملفات/ بارك الله فيك

السلام عليكم بعد اذن الاستاذ خلف اخي محمد اليك الحل بتغير خاصية هيدر test 5000.mdb

السلام عليكم و رحمة الله و بركاته اخي جرب تغير كود زر "معاينة تقرير" الى: On Error GoTo Err_أمر12_Click Dim stDocName As String stDocName = "Testf" DoCmd.OpenReport stDocName, acPreview, , Datamasterform!TestF.Form.Filter Exit_أمر12_Click: Exit Sub Err_أمر12_Click: MsgBox Err.Description Resume Exit_أمر12_Click

وعليكم السلام ورحمة الله وبركاته تفضل: فقط اضف في التقرير تجميع لـ: EmployeeID وانقل التقرير الفرعي داخله newQ.mdb

السلام عليكم ورحمة الله اخى الكريم اليك ملف الصف الثانى كما وعدتك يؤسفنى انه يضم شعبتين فقط هما ( شعبة الادارة و شعبة القانون ) لانه مصمم حسب نظام المدرسة عندنا ان شاء الله تتحسن الظروف و استطيع اضافة الشعبتين الاخرتين اليك ملف الصف الثانى ثانية.xlsm

المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

مشاركة مع احبتي اخونا كريمو لعل هذا يلبي طلبك قيد العمل.rar

وعليكم السلام اذا قصدك مثل ما اعتقد فيجب ان يكون طول التقرير اقل من نصف طول الصفحة ، وعرضه كذلك اقل من نصف عرض الصفحة (هذا اذا اردت 4 تقارير) ، ويمكنك استخدام الصفحة بالعرض ، حسب احتياجك: . ثم في اعدادات الصفحة . والنتيجة . جعفر

السلام عليكم اخي العزيز شاهد المرفق التحكم في سجلات التقرير.rar

السلام عليكم تفضل أخي لعله المطلوب ata1.rar

تم دمج الموضوعين والتعديل على الملف المرفق حسب الطلب DB1.rar

السلام عليكم نكمل الدرس .......... كما يرى من قام بتحميل الملف في الدرس السابق ان هناك صفوف ملونة باللون الرصاصي و الاسود و الوردي ما معناة هذه الالوان ؟ ..... هذه الالوان تمثل الفعاليات الرئيسية و الفعاليات التابعة للفعاليات الرئيسية و الفعاليات الفرعية اي (main activities&subactivities ,branch activities ) الفعاليات الفرعية تمثل الخلايا ال غير ملونه بداية يجب ان نفهم كيف تقسم هذه الفعاليات و لناخذ هذا المثال الذي سنقوم بالشرح علي .... فلنفرض اخي الكريم انك اردت ان تبدأ بتحضير جدول للدراسة و ان لديك مجموعة من المواد المهتم بدارستها و هذه المواد 1- مايكروسوفت اوفيس 2-البرمجة 3-ادارة المشاريع 4- لغات 5-برامج و كتب الهندسة المدنية 6- قواعد البيانات هذه المواد و الفعاليات تمثل فعاليات رئيسيه اما التابع لهذه الفعاليات مثلا حسب ما تريد ان تدرس سيكون كما يلي 1- مايكروسوفت اوفيس * الوورد *الاكسل *الاكسيس 2- البرمجة * VBA *VB6 *SQL * VB NET 3- ادارة المشاريع * البرمفيرا * ال ام اس بروجيكت 4- لغات الانكليزية 5- برامج و كتب الهندسة المدنية * تصميم ال ستيل * تصميم الكونكريت 6- قواعد البيانات * الاكسيس * الاوراكل تخيلوا ان هناك شخصا يستطيع دراسة و اتقان كل هذه المواد اتمنى التوفيق للجميع و الان قمنا بتقسيم الفعاليات الرئيسية الى الفعاليات التابعة لها الان يجب ان نقوم بتقسيم الفعاليات التابعة الى فعاليات ثانوية سوف اقوم بتقسيمها داخل ملف الاكسل و سوف ابدا خطوة بخطوة و سوف يكون اسم هذا المخطط او المشروع Learning and practice Learning_and_practice.rar