jjafferr

السلام عليكم 1. نغير اسماء حقول الاسعار في الجدول للذكور والاناث ، ثم نضيف حقل للذين اعمارهم اقل من 20 سنة: 2. نعمل الاستعلام التالي ، والذي يرسل مجموعة من البيانات الى الوحدة النمطية Prices ، والتي تقوم بفرز الاسعار: 1. سعر النساء ، 2. سعر الرجال ، 3. سعر الاقل من 20 سنة ، 4. حقل الجنس من النموذج ، 5. حقل العمر من النموذج ، وهذه هي الوحدة النمطية التي تقوم بفرز الاسعار: Function Prices(f, m, b, s, a) 'f = female price 'm = male price 'b = below 20 years of age 's = sex 'a = age If a <= 20 Then Prices = b ElseIf s = "male" Then Prices = m ElseIf s = "female" Then Prices = f End If 'OR One_Line = IIf(a <= 20, b, _ IIf(s = "male", m, f)) End Function ولاحظ في نهاية الوحدة ، فقد جمعت/اختزلت جميع اسطر الكود الى سطر واحد ، والذي يمكننا استخدامه في الاستعلام مباشرة بدون الوحدة النمطية (سأتحدث عن هذه النقطة لاحقا)، 3. والنتيجة حسب الجنس والعمر في النموذج: لاحظ الحقل One_Line ، وهو الحقل المختزل من الوحدة النمطية ، 4. عملت هذا الاستعلام لتجعله مصدر بيانات حقل food في النموذج الفرعي ، ولا يوجد داعي لإستخدام الحقل Grouping: جعفر 400.معيار (Parameter) 2003.mdb.zip

السلام عليكم أخي محمد ممكن تعطينا مثال عن كيفية استخدام السعر1 و السعر2: 1. ذكر ، عمره اكثر من xxx 2. ذكر ، عمره اقل من xxx 3. انثى ، عمرها اكثر من xxx 4. انثى ، عمرها اقل من xxx جعفر

السلام عليكم أخي احمد بالنسبة الى التاريخ ، رجاء قراءة الرابط التالي ، فقط تستفيد منه اما بالنسبة الى الدالة DSum والتي تُستخدم بنفس شروط الدالة Dlookup ، فالرابط التالي قد يفيدك ايضا: جعفر

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

الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد: 377_2.txt

الغيت المعادلة السابقة ، ثم ادخلتهافي الحقل Total2 (للأسف ، بسبب الكلمات العربية فالمعادلة ترتيبها غير صحيح) : . والنتيجة . جعفر 374.8A13.accdb.zip

التقرير مبني على استعلام ، ويمكنك اضافة/تغيير اي شئ في الاستعلام ، وبالتالي تستطيع إظهاره في التقرير جعفر

وعليكم السلام استخدم النموذج Form1 لطباعة التقرير ، وكود الطباعة: Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" DoCmd.OutputTo acOutputReport, "rpt_EMPDATAA", acFormatTXT, File_From, False File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 MsgBox "Done" End Sub جعفر 377.تحويل التقرير لتكست.accdb.zip

وعليكم السلام السبب اللي جعلني استخدم ID بدلا عن اسم المستخدم هو ، انه قد يكون عندك اكثر من مستخدم بنفس نوع الوظيفة ، فالطريقة الصحيحة هي استخدام ID المستخدم ولكن ، مادام البرنامج يشتغل معاك ، اعمل اللي يعجبك جعفر

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

القوائم في الطريقة الاولى ما راح تختفي ، ولكن لن يستطيع تغيير البيانات عن طريقها. بس في الطريقة الثانية ما يقدر يعمل بيها شئ ، جرب ، انت ما خسران عادة ، لا نخلط بين هذه النماذج ، فيكون عندك النموذج الرئيسي للبرنامج ، ويكون فيه زر فتح نموذج للقراءة ، وزر لإدخال البيانات لنفس النموذج ، وزر ثالث لتعديل البيانات ، طبعا هذه النماذج الثلاثة هي اصلا نموذج واحد ، ولكن تفتح كل نموذج حسب الطريقة التي ذكرتها لك في في الكود اما انك تكون في نموذج القراءة ، ثم تريد تضغط زر فيه علشان تعدل البيانات ، فالكود: Me.AllowEdits = True Me.AllowDeletions = True جعفر

آه فهمت الآن عندما تريد ان تفتح نموذج للقراءة فقط ، ولا تريد احد ان يستطيع تغيير البيانات ، ولا حتى من القائمة ، افتح النموذج هكذا: docmd.OpenForm "Form_Name",acDesign,,,acFormReadOnly لاحظ الجملة الاخيرة ، هي التي تجعل النموذج للقراءة فقط (acFormReadOnly) اما اذا اردت ان تقفل حقل معين ، فاكتب الكود التالي على حدث تحميل النموذج: me.Field_Name.enabled=false جعفر

ما فهمت ، وضاعت علينا ساعة الى الان ياريت تعطيني شرح مفصل ، فانا لم ارى برنامجك ، ولا اعرف شئ عنه إلا الذي تشرحه انا حتى زوجتي ما تدلعني بهالاسم بس لأنك دلعتني ، أأمر وتدلل جعفر

هلا احوي ابونادر ما قصدك بـ " تختفي علامة القوائم المنسدلة " ، يعني القائمة اللي تطلع لما تضغط بالزر اليمين؟ جعفر

وعليكم السلام السبب ظاهرا ، ان الاسطر الاطول ، اضافت vbcrlf او vblf (يعني انتقل للسطر التالي) في نهاية كل سطر العلاج ، احد اهم طرق العلاج ، هو معرفة السبب ، والذي هو في برنامجك ، ومثل ما قال اخي ابوعبدالله ، محتاجين نشوف برنامجك بينما ، اذا تركنا كل شئ كما هو ، واحنا نعرف اسم ومسار الملف ، فممكن نضع الكود التالي ، بعد عملية تصدير txt (طبعا لازم تغير اسماء الملفات ومسارهم) : Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 End Sub ومثل ما قال ابوعبدالله: (ويادار ما دخلك شر) جعفر

حياك الله جعفر

موجود في الكود غيّر المسار في السطر الاول ، واحذف السطر الثاني: 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" جعفر

تفضل هذا الكود: Private Sub رقم_الحافظه_DblClick(Cancel As Integer) 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" File_Name = Me.رقم_الحافظه & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "File not found." End If End Sub جعفر New Microsoft Office Access Application.zip

تفضل حقل الرتبة ، وبدون رؤساء الورش: . جعفر 374.8A13.accdb.zip

اذا بتتوقف عن الاسئلة ، سنطلب من المنتدى ان يُغلق ، فالله يخليك واصل اسئلتك ضع هذا الكود في الحدث الحالي للنموذج الرئيسي: Private Sub Form_Current() If Me.[مصروف Query subform].Form.RecordsetClone.RecordCount = Then MsgBox "No Records" End If End Sub للعلم ، الكود فيه صفر ، ولكنه لسبب ما ، لا يظهر: RecordCount =0 Then جعفر

وعليكم السلام هذه الرسالة لا علاقة لها بالرجوع الى الوراء ، وانما لها علاقة بتصغير/اخفاء الاكسس لهذا السبب ، لن نتمكن من معرفة المشكلة بدون فحص البرنامج جعفر

وعليكم السلام نعم ممكن ، تطبع التقرير بالصيغة اللي تراها مناسبة ، pdf او Excel او Rtf ، وتحفظها على الكمبيوتر ، ويمكنك ارفاق هذا/هذه الملفات بالايميل بعدة طرق ، والرابط هذا فيه طريقتين ، Gmail و Hotmail: جعفر

نعم بتسألني كيف ، بقول لك يعتمد على الشروط اللي تريدها لكل حقل ، بتقول لي عطني مثال ، بقول المثال لازم يكون من واقع برنامجك ، فلازم ترفق برنامجك وتشرح بالضبط اللي تريده جعفر

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