الطالب المثابر

السلام عليكم ورحمة الله وبركاته اخواني الافاضل هل يمكنك شرح الكود التالي لي بالتفصيل لان بعض النقاط مو واضحه لي Option Compare Database Option Explicit ' Code to display standard "Open File" dialog. Type OPEN_FILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (OFN As OPEN_FILENAME) As Boolean Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (OFN As OPEN_FILENAME) As Boolean Private Const ALLFILES = "All files" Function MakeFilterString(ParamArray varFilt() As Variant) As String ' Create filter string. ' Returns "" if there are no arguments. ' Expects an even number of arguments (filter name, extension). ' Adds *.* if the number of arguments is odd. Dim strFilter As String Dim intRes As Integer Dim intNum As Integer intNum = UBound(varFilt) If (intNum <> -1) Then For intRes = 0 To intNum strFilter = strFilter & varFilt(intRes) & vbNullChar Next If intNum Mod 2 = 0 Then strFilter = strFilter & "*.*" & vbNullChar End If strFilter = strFilter & vbNullChar End If MakeFilterString = strFilter End Function Private Sub InitOFN(OFN As OPEN_FILENAME) With OFN ' Initialize fields user doesn't want to know about .hwndOwner = hWndAccessApp .hInstance = 0 .lpstrCustomFilter = vbNullString .nMaxCustFilter = 0 .lpfnHook = 0 .lpTemplateName = 0 .lCustData = 0 .nMaxFile = 511 .lpstrFileTitle = String(512, vbNullChar) .nMaxFileTitle = 511 .lStructSize = Len(OFN) ' Use default filter if not specified. If .lpstrFilter = "" Then .lpstrFilter = MakeFilterString(ALLFILES) End If ' Pad lpstrFile with null chars. .lpstrFile = .lpstrFile & String(512 - Len(.lpstrFile), vbNullChar) End With End Sub Function OpenDialog(OFN As OPEN_FILENAME) As Boolean Dim intRes As Integer InitOFN OFN intRes = GetOpenFileName(OFN) If intRes Then ' Remove trailing null chars from lpstrFile. With OFN .lpstrFile = Left$(.lpstrFile, InStr(.lpstrFile, vbNullChar) - 1) End With End If OpenDialog = intRes End Function

جزيت خيراً استاذ اسامى ووفقك الله والله يعطيك ألف عافيه

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

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

أستاذي اسامى اشكرك على هذا الكود ولاكن الكود لم يعمل بالشكل المطلوب لدي هل هو يكتب بهذه الطريقة ام يوجد طريقه اخرى Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser DoCmd.Close DoCmd.OpenForm "form1", acNormal DoCmd.OpenForm "TVV" Else اخي اسامى انا اريده ان يعمل فقط إذا أرت انا كمدير الدخول والتعديل على البرنامج

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

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

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

اخي knight22666 انا عندما قراءة ردك اردة فقط ان ابين اني فعلاً تخصصي اوركل وهذا كل مافي الامر ولو حبية اني اكمل المشوار واشرح لك بعض ماتعلمة في عالم اوركل الواسع فانا في اتم الإستعداد استاذي العزيز اسامى انا اقدرك تقدير خاص لانك ماقصرة معاي في البداية وتعلمة منك اشياء كثيرة بنسبه لاخي Knight22666 فان صدري لم يضيق من قوله باني لم اتعلم الاوركل فهذا خلاف بسيط يحدث كثيراً بين الاعظاء وفي ردي فقط بعض الإثباتات فقط لا غير اخي ircpal الكريم انا ماني عارف اش المشكلة بالضبط هل البرنامج كامل مايشتغل او ان اسم المستخدم وكلمة المرور موجوده ولاكن عندما تضغط موافق لا تفتح معاك النموذج الارئيسي انا اقترح عليك ان تقوم بارفاق البرنامج والاساتذه في هذا المنتدى مايقصرون إنشاء الله ونا راح اشوف اش المشكله لان البنامج زبط معاي وما فيه اي مشكلة

اخي الكريم الذي تتهمني باني لا اعرف اوركل واني لا اعرف الاكسس انت لم تطلع على البرنامج جيد فانا تقريباً انتهيت من 80% من تصمم البرنامج ولاكن نضرن لقصر الوقت المسموح لي فيه بعمل البرنامج فاني واجهتني بعض المشاكل انا سوف اثبت لك اني متخصص في اوركل اولاً : الاوركل يختلف عن الاكسس في كل شي من الامور التي يختلفان فيها هي كالتالي: 1) ان الاوركل يستخدم الجداول في برنامج اسمه SQL PLUS وهي قاعدة قويه ومتينه وتستخدم في الشركات الكبيره على سبيل المثال أرامكو الإتصلات والمستشفيات ...... اما الاكسس فهو يستخدم الجداول في النفس البرنامج عن طريق جداول فهي قاعدة ليسة قويه بما يكفي ولا تستخدم إلى للبرامج البسيطه وليسة الشركات الكبيرة 2) الواجهات تعتمد الواجهات في الاوركل على برنامج يسماء Form Builder ويكون مرتبط بقاعدة البيانات SQL PLUS اما الاكسس فانك تقوم بتصميم الواجهات عن طريق نفس البرنامج من النماذج 3) الطباعة في اوركل يستخم برنامج اسمه FORM Reports اما الطباعة في الاكسس تستخدم التقارير وفي لقاء اخر إنشاء الله اكتبلك جميع الاكواد تبع الاوركل ولاكواد تبع الاكسس مع إرفاق برنامج من أوركل يسماء ( برنامج الحجاج التائهين ) انا عملته بنفسي والبرنامج هذا راح إذا تهت في الحج تشوفه السنه هذي إنشاء الله ولاكن لن اقوم بارفاق جميع البرنامج لان من الصعب إرفاق برنامج اوركل ومن الصعب نقله من جهاز إلى جهاز اخر ولحفظ الحقوق للبرنامج وقد حصلة على تقدير ممتاز من الإدارة وسوف ابدا في كتابة الاكواد الخاصة ببرنامج اوركل كامل وطريقة عمل واجهة وطباعة

اخي الفاضل بالنسبه للامان فهو سهل فقط قم بتحميل برنامج المبرمج محمد مهند عبادي فهو برنامج جميل جداً تفضل في المرفقات ________________________________________________________________________________________.rar

اخي العزيز دع البرنامج القديم جانباُ وإليك بعض التعديلات على البنامج إنشاء الله تعجبك بس انا شغلة إدخال البيانات بهذه الطريق ماهي عجبتني مادري له احس انها بايخه اش رايك اخوي 22______________Backup_Backup.rar

أخي منتصر اشكرك على الرد الجميل الممزوج بروح من العتاب الجميل اخي منتصر انا لم افعل هذا إلا عندما وقف البرنامج امامي ولم استطع ان افعل شي فأنا في ورطه الان وعندما قلة اني اريد ان اجد من يتعاون معي على الإميل وسوف يكون هناك مقابل مالي وذلك لانه سوف يهدر جزاء من وقته الثمين معي ولم أقصد الإسائه للمنتدى الحبيب اخي منتصر والله ثم والله ان هذا البرنامج ليس من تخصصي انا تخصصي اوركل هذا البرنامج لم اتوقع ان يكون هكذا اخي انا سوف ابدى جزا جزا بس ارجوك ان تكون معي إلى النهايه 1- سوف نبداء بشاشة إدخال البيانات اش رايك اخليها كذا ولا اغيرها يعني بدل ماتكون على شكل جدول تكون عموديه علمن اني اريد ان اجلب البيانات من الاكسيل اولا اريد ان اقوم بإدخال البيانت لاني حالما انتهي من حل مشكة شاشة الإدخال سوف اقوم بإدخال البيانات اخي العزيز لان لم يتبقى سوى اسبوعين فقط والبيانات بالالاف لانه بيانات بنك ولازم تكون القاعده قويه ونا ما أحناج اكثر من جدول اخوي الغالي نبدى في زر إعادة الترقيم ليه مو راضي يشتغل اش فيه الكود التالي: Private Sub أمر39_Click() Me.RecordSource = "TVV" DoCmd.SetWarnings False ' حذف الفهرسة من حقل الرقم DoCmd.RunSQL "DROP INDEX م ON TVV;" ' حذف حقل الرقم DoCmd.RunSQL "alter table TVV drop م;" ' إضافة حقل الرقم DoCmd.RunSQL "alter table TVV Add column M autoincrement" ' إضافة الفهرسة إلى حقل الرقم DoCmd.RunSQL "CREATE UNIQUE INDEX M on TVV(م);" DoCmd.SetWarnings True Me.RecordSource = "TVV" End Sub

ياشباب فين الردود اخي kkdd لا تشكيلي وبكيلك والله ان حايس في هذا البرنامج مادري فين ربي حاطني ياأساتذت المنتدى فينك انا داخل على الله ثم عليكم شباب لا تخلوني في محنتي هذي

السلام عليكم ورحمة الله وبركاته أساتذتي في ملتقى مبرمجي الاوفس العربي اوجوا ان تلقو نضره على برنامج سجلات العملاء حيث اني لم استطع عمل إلى هذا الشكل من البرنامج اخواني قد واجتني مشاكل عندما اقوم بادخال قيم إلى الجدول حيث تضهر لي رساله تمنعني من عمل اي شي على البرنامج حتى الخروج اوجو ان تقوم بمساعدتي ويوجد اخطأ في الساعه وزر إعادة الترقيم وزر جلب البيانات من الاكسس وزر الطباعه ( الطباعه لم اتمكن من وضع تم السداد في قائمه منسدله بدل من كتابتها يدوي والتاريخ كذالك ) أساتذتي الكرام اما بالنسبه للبحث فاني لم اتمكن من جعل الخيارة الاربع في البحث من العمل ( حسب الرقم (السجل المدني ) او حسب الاسم او حسب رقم العميل او الفرع المهم في هذه الخيارات هو السجل المدني والاسم والفرع ) اما بالنسبه لتقارير فانى لاأفهم في التقارير لاني لا اريد طباعة جميع الاعمده بل اريد الاعمده التاليه (الترتيب التلقائي و رقم السجل واسم العميل ورقم العقد ورقم الفرق ورقم الحساب و السداد والتاريخ والملاحظات) وهذه بالنسبه لطباعة من صفحة إدخال البيانات او صفحة البحث حيث ان الفرق بين الطباعة من صفحة البيانات والطباعة من صفحة البحث هو ان صفحة البيانات تكون الطباعة لجميع البيانات المخزنه في قاعدة البيانات بس بشرط ان يكون حسب التاريخ و حسب السداد ( تم السداد او لم يتم السداد او الكل) اما البحث فانه يقوم بطباعة البيانات التي تم البحث عنها التي يريد المستخدم طباعته بالحقول المذكوره اعلا وليس جميع الحقول حيث ان الحقول الباقيه تترك للبحث فقط أساتذتي الكرام ارجوا منكم التكرم علي بوضع التعديلات على هذا البرنامج لاني صراحة خلاص وصلة إلى مرحلة الياس والتحطم وامل بالله عز وجل ثم فيكم يامبرمجي لاوفس العربي الذي لم اجد منتدى بجودته وانا قد قررة التعلم من هذا المنتدى ولاكني الان مشغول في هذا البرنامج وتعبان نفسين بسب عدم القدره على عمل المتبقي من البرنامج والوقت ضيق مع العلم ان متاخر على تسليم البرنامج باسبوع وانا مستعد لجميع الطلبات لكل شي تطلبوه كل شي ارجو ا ان تمدو لي يد المساعدة ومن احب ان يتواصل معي بالإميل فهذا هو إميلى وشكراً waleid4444@hotmail.com البرنامج في المرفقات اخوخم الطالب المثابر اسم المستخدم :group1 كلمة المرور:aass _____________.rar