helmy_foad

الشكر كله يجب أن يوجه لأستاذتنا زهرة ، فهى مبدعة هذا المثال وهى التى لم تمنع عنا علماً أو أى مساعدة فى يوم من الأيام

اعتقد ان هذا المثال سيفيدك و هو من عمل الأستاذة زهرة zaChoose_Printers_And_Reports_.rar

تحت أمرك يا أخى helmy_diet@hotmail.com foad.helmy@gmail.com

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

أعذرنى لجهلى أستاذ أبو أسامة أين أجد هذا الخيار و هل عمل لديك البرنامج جيداً بدون اخطاء ؟

ألف شكر على ردك المشجع أستاذ أبو أسامة لكن لماذا يعمل البرنامج عندى جيداً و عند بعض أصدقائى يعطى رسالة خطأ runtime error subscript out of range

و لدى سؤال ، لماذا يعمل البرنامج عندى جيداً و عند بعض أصدقائى يعطى رسالة خطأ runtime error subscript out of range

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

انا فهمت طريقة عمل الكومبو بوكس بس المشكلة أنى مش عارف أعمل العلاقات بين الجداول مش عارف أحط مفتاح أساسى فين ؟ و بعدين لما أعمل إستعلام و أنا بأعمل الكومبوبوكس ، أعملة على كل الجداول و لا جدول واحد فقط

أشكرك أستاذ رضوان أتعبتك معى هل ما فعلته الان هو ما تقصدة ؟ food.rar

شكراً أستاذ رضوان على إهتمامك أرجو أن أكون قد قمت بعمل ما طلبتة منى food.rar

للرفع

السلام عليكم أنا أخصائى تغذية و فكرت فى أن أقوم بعمل برنامج يساعدنى فى تحليل الوجبات بمعنى أننى إذا أدخلت فى البرنامج قائمة بها أسم الصنف و كميتة فإنة يقوم بحساب السعرات الحرارية و كمية الصوديوم و البوتاسيوم و الحديد و و و و ..... و ذلك فى الصنف الواحد و كذلك إجمالى الوجبة ككل يعنى لو وضعت 50 جم فول و الصنف الثانى 50 جم بيض فإنة يقوم بجمع سعرات البيض و الفول معاً و يضعهم لى كإجمالى السعرات الحرارية فى الوجبة أنا حاولت كثيراً لكن لم أفلح ما إستطعت عملة هو جدول دونت به بيانات أغلب الأصناف محتويات الفول من كل عناصرة الغذائية ( فى ال 100 جرام )... أى أن الرقم المدون هو مثلاً فول - 1000 سعر حرارى - هذا يعنى أن هذة الكمية فى 100 جرام يعنى عندما ندخل الكمية 50 جرام فإن الحساب سوف يكون 50 *1000 /100 = 500 سعر حرارى ثم تجمع على سعرات البيض و الخبز و هكذا أنا لا أطلب الحل الكامل للبرنامج لأننى لا أريد أن أتعب أحد فقط أريد تلميحات أو طريقة أبدأ بها و أشكركم شكراً جزيلاً food.rar

فعلاً البرنامج لم يعمل معى على الأوفيس 2003

للرفع

هذا برنامج شئون موظفين بسيط يصلح لقسم فى مؤسسة و ليس لشئون الموظفين فى المؤسسة كلها هو لم يكتمل بعد و هناك بعض المشاكل التى تواجهنى مثل 1 - فى الاجازات كيف أجعل كل سنة مستقلة بذاتها و يتم تسجيل أجازاتها فى السنة دون الإختلاط مع اى سنة أخرى و حتى التقارير سوف تكون بالاجازات الخاصة بسنة بعينها و ليس فى كل السنوات 2 - حقل الرقم القومى أريدة ان يقبل 14 رقماً و لا أعرف كيف أشكركم للمساعدة إسم المستخدم احمد حلمى كلمة السر 200 _____________________.rar

الف شكر يا اخى على الكتاب و أرجو إستكمالة فهو يبدو قيماً و الشرح بة مفصل و واضح

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

يا أستاذ accessna لم أقصد أن ما قمت انت بعملة كان سهلاً ففعلا لم يستطع احد ان يقوم بهذا التعديل الذى قمت انت بة و انا مدرك تماماً بانك قمت بجهد غير عادى و أن ما فعلتة فى موضوع الشجرة كان يدل على تمكن و مهارة و عبقرية فى مجال البرمجة بالاكسيس و لكن لم أقصد ان أقول ان ما قام بة الأستاذ عمار هو الأصعب هذا كان غير مقصود كلا المشكلتين كانا يحتاجان إلى مهارة عالية و لا أعرف لماذا أخذت الموضوع على اننى أقلل من شان مجهودك ، و اعلى من شأن جهد الاستاذ عمار لم يكن فى نيتى المقارنة بينكما ابداً و انا لا أصل إلى 1 % من اى منكما فى هذا المجال حتى أقارن بينكما و اعتذر إذا كانت كلمتى قد ضايقتك فانا اكن لك كل الإحترام و التقدير و هو نفس الإحترام و التقدير للأستاذ عمار و كذلك لجميع المشرفين الذين طالما ساعدونى فى مواضيع اخرى و أسف مرة أخرى للجميع

ألف الف شكر لك يا أستاذنا عمار على إستكمال المطلوب و الله يجعلة فى ميزان حسناتك لان الكثيرين سوف يستفيدون منة إن شاء الله و أحب ان اوضح أن التعديل الاول على البرنامج كان من تصميم الأستاذ Accessna و هو الذى قام بتعديل الشجرة و إدخال السلاسل فيها و بقيت الجزئية الصعبة الخاصة بفتح الكتب من داخل قاعدة البيانات و قد أتمها الأستاذ عمار زيد مشرفنا الهمام بفضل الله تعالى و أستاذن الجميع فى اننى سوف أقوم ببعض التظبيط فى البرنامج ، من ناحية التعريب و ضبط النماذج و التقارير ، لتتلائم مع التعديلات الجديدة ( طبعاً دى أسهل حاجة ) بعد ما تركت الصعب كلة للأساتذة الكبار و انتظروا منى النسخة المعدلة إن شاء الله

لم أعتاد على هذا التجاهل فى منتديات أوفيسنا !!!!!!!!!!!!!!!!!!! طيب نتناقش فى الحل و نطرح الأفكار و نحاول كلنا مع بعض أنا منتظر

للرفع

و وجدت الان مثالين عن هذا الموضوع ، مع شرح فى ملف وورد لكن مشكلتى اننى لا أفهم فى ال vba لذلك لم أستطيع الإستفادة منهما أرجو المساعدة يا إخوانى ، فأنا لى الأن 3 أيام أبحث و أحاول و لم أصل لشئ accarch53.zip accarch103.zip

و أثناء بحثى وجدت معالج لل tree control بإمتداد mde و يعمل على أكسيس 97 فقط فى المرفقات و هذة الصفحة من ميكروسوفت تتحدث عن الأمر و رغم أننى أجيد الإنجليزية ، إلا أننى لم أفهم شيئاً http://support.microsoft.com/kb/209891 و هذة أيضاً http://www.databasejournal.com/features/ms...cle.php/1483461 و هذة http://www.databasejournal.com/features/ms...cle.php/1546091 ______tree_control_________97.rar

لدى برنامج أجنبى أقوم بتعديلة ليتناسب مع إحتياجاتى واجهتنى مشكلتين بالبرنامج المشكلة الاولى فى ال treeviewcontrol حيث أننى أريد أن يكون المستوى الثانى فى الفروع هو السلسلة SeriesName و ليس عنوان الكتاب title و إذا لم تكن هناك سلسلة خاصة بالمؤلف يكون المستوى الثانى هو ال title طبعاً بمعنى إذا فرضنا ان مؤلف كالدكتور نبيل فاروق مثلاً ينتج 3 سلاسل ( رجل المستحيل ، ملف المستقبل ، كوكتيل 2000 ) كل منها تحتوى على عدد من الروايات قد تصل إلى 150 رواية و نجيب محفوظ لا ينتج سلاسل فالكتب الخاصة بة تكون منفصلة ( اللص و الكلاب - رادوبيس - زقاق المدق ...........) اريد ان يكون ترتيب الشجرة د / نبيل فاروق -------------- رجل المستحيل --------------------------- 1 - العدد الاول --------------------------- 2 - العدد الثانى --------------------------- و هكذا ------------- ملف المستقبل --------------------------- 1 - أشعة الموت --------------------------- 2 - العدد الثانى --------------------------- و هكذا نجيب محفوظ ------------- اللص و الكلاب ------------- رادوبيس ------------- زقاق المدق و المشكلة هنا فى هذا الكود : Function tvwBooks_Fill() ‘======================================================== ‘Modified from a procedure generated by the Treeview Control Wizard ‘ ‘PURPOSE: Fill the ActiveX Treeview Control ‘tvwBooks’ ‘ACCEPTS: Nothing ‘RETURNS: Nothing ‘CALLED FROM: Form Load event ‘======================================================== On Error GoTo ErrorHandler Dim strMessage As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim intVBMsg As Integer Dim strQuery1 As String Dim strQuery2 As String Dim nod As Object Dim strNode1Text As String Dim strNode2Text As String Dim strVisibleText1 As String Dim strVisibleText2 As String Set dbs = CurrentDb() strQuery1 = "qryEBookAuthors" strQuery2 = "qryEBooksByAuthor" With Me![tvwBooks] ‘Fill Level 1 Set rst = dbs.OpenRecordset(strQuery1, dbOpenForwardOnly) ‘Add a node object for each record in the "qryEBookAuthors" table/query. ‘For parent nodes, the Key property is based on the the level of the tree ‘in which the node exists and the Link Master field(s) you selected when ‘linking levels in the wizard. For child nodes, the Relative property ‘is based on the level of the tree in which the Parent node exists and ‘the Link Child field(s) you selected when linking levels in the wizard. Do Until rst.EOF Debug.Print "Adding Level 1 item: " & rst![AuthorID] strNode1Text = StrConv("Level1 - " & rst![AuthorID], vbLowerCase) Debug.Print "Node 1 text: " & strNode1Text strVisibleText1 = rst![LastNameFirst] Debug.Print "Level 1 visible text: " & strVisibleText1 Set nod = .Nodes.Add(Key:=strNode1Text, Text:=strVisibleText1) nod.Expanded = True rst.MoveNext Loop rst.Close ‘Fill Level 2 Set rst = dbs.OpenRecordset(strQuery2, dbOpenForwardOnly) ‘Add a node object for each record in the "qryEBooksByAuthor" ‘table/query. For parent nodes, the Key property is based on the ‘level of the tree in which the node exists and the Link Master ‘field(s) you selected when linking levels in the wizard. For child ‘nodes, the Relative property is based on the level of the tree in ‘which the Parent node exists and the Link Child field(s) you selected ‘when linking levels in the wizard. Do Until rst.EOF Debug.Print "Adding Level 2 item: " & rst![Title] strNode1Text = StrConv("Level1 - " & rst![AuthorID], vbLowerCase) Debug.Print "Node 1 text: "; strNode1Text strNode2Text = StrConv("Level2 - " & rst![AuthorID] & " - " & rst![Title], vbLowerCase) Debug.Print "Node 2 text: " & strNode2Text strVisibleText2 = rst![Title] & rst![BeenRead] Debug.Print "Visible text: " & strVisibleText2 .Nodes.Add relative:=strNode1Text, relationship:=tvwChild, Key:=strNode2Text, Text:=strVisibleText2 rst.MoveNext Loop rst.Close End With dbs.Close ErrorHandlerExit: Exit Function ErrorHandler: Select Case Err.Number Case 35601 ‘Element not found strMessage = "Possible Causes: You selected a table/query" & " for a child level which does not correspond to a value" & " from its parent level." intVBMsg = MsgBox(Error$ & strMessage, vbOKOnly + vbExclamation, "Run-time Error: " & Err.Number) Case 35602 ‘Key is not unique in collection strMessage = "Possible Causes: You selected a non-unique" & " field to link levels." intVBMsg = MsgBox(Error$ & strMessage, vbOKOnly + vbExclamation, "Run-time Error: " & Err.Number) Case Else intVBMsg = MsgBox(Error$ & "@@", vbOKOnly + vbExclamation, "Run-time Error: " & Err.Number) End Select Resume ErrorHandlerExit End Function و أثناء بحثى عن حل لهذة المشكلة ، علمت انة كان فى الaccess 97 معالج wizard يقوم بتحرير ال treeview و إختفى هذا المعالج مع إصدار 2000 و لم يعد مرة ثانية . لذا فإن البعض يقومون بتصميم الشجرة على access97 ثم يقومون بنسخ الكود ، و لصقة فى الأكسيس xp أو 2003 طبعاً الحصول على نسخة من ال access 97 الان أصبح صعباً و كذلك مثل هذة العمليات أكبر من قدراتى حتى لو حصلت على الاوفيس 97 و الطلب الثانى بعد أذنكم هو انة يوجد textbox أسمة file اريد لة زر إستعراض بحيث اربط الtextbox بال path الخاص بملف هذا الكتاب الإكترونى على جهازى ثم بالضغط على التكست بوكس نفسة ينفتح ملف الكتاب باى صيغة سواء كانت pdf او chm او word مثل مثال الاستاذ عمار زيد . ارجو من الجميع الإهتمام بمساعدتى لان البرنامج بالفعل جميل جداً ( على الاقل بالنسبة لى كمبتدئ ) البرنامج بالمرفقات Original_EBook_Companion.rar