jjafferr

وعليكم السلام أخي وليد انا لم انظر في اصل المعادلة ولا كيف توصلت لها ، ولا ولا ... وانما ذهبت الى الحل بحسب معطياتك الحقل (1) هو حقلك الاصلي ، والحقل (2) A_1 (تستطيع ان تجعله مخفي) هو نسخة من حقل (1) ، ولكن بتغيير في اعدادات الحقل ، فجعلت المجموع تراكمي ، اما الحقل (3) A_2 فهو يساوي A_1 وبس . والنتيجة: . جعفر 294.تقارير.mdb.zip

وعليكم السلام شوف المثال اللي ارفقه أخي الاستاذ عبدالرحمن في الرابط التالي: http://www.officena.net/ib/topic/65649-إدراج-القيم-التابعة-لمربع-تحرير-وسرد-من-نموذج-في-نموذج-فرعي/?do=findComment&comment=427227 جعفر

وعليكم السلام الموضوع هذا جدا كبير ومتشعب لذلك ، ارفق لنا ما عندك وما توصلت اليه ، وعلى قدره نعمل لك التعديل ان شاء الله بما يفيدك جعفر

أخي الفاضل bakoraus انت صاحب السؤال ، فرجاء اعط سؤالك حقه من الوقت بشرحه بالتفصيل الدقيق ، وتأكد من ان رابط المرفق يعمل (لأنه للمرة الثالثة لا يعمل)!! جعفر

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

وعليكم السلام ابومصطفى انت رابط النموذج الرئيسي والفرعي بأربعة حقول: nSrNo;BillnSrNo;BillnSrDate;supplierid ولكن هل لاحظت ان الحقل nSrNo مخفي وانك لم تدخل فيه اية قيمة!! هذه رسالة الخطأ ، ان القيمة فاضية!! ادخل القيم في الحقول الاربعة في النموذج الرئيسي ، ثم انتقل الى النموذج الفرعي جعفر

؟؟؟

هلا والله

وعليكم السلام المفروض هذا يؤدي الغرض Private Sub أمر2_Click() ' Dim fileLocation As String ' Dim diagFile As FileDialog ' Set diagFile = Application.FileDialog(msoFileDialogSaveAs) ' diagFile.Title = "Save Bitmap File As..." ' diagFile.InitialFileName = Me.id & ".jpg" ' If diagFile.Show Then ' fileLocation = diagFile.SelectedItems(1) Dim scanDiag As Object Dim image As Object Set scanDiag = CreateObject("WIA.CommonDialog") Set image = CreateObject("WIA.ImageFile") Set image = scanDiag.ShowAcquireImage() ' image.SaveFile fileLocation image.SaveFile Me.patth & "\" & Me.id ' End If End Sub ولكنه لم يعمل عندي ، يمكن بسبب ربط الاسكانر عندي آه نسيت اقول ، ولا حتى الكود الاصلي اشتغل عندي جعفر

تفضل وهذا هو الكود الاخير: If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then MsgBox "Error !! SELECT A VALID Date." txtMonth.SetFocus Exit Sub ElseIf Len(Me.NCcp & "") = 0 Then MsgBox "Error !! SELECT A VALID N CCP number." Me.NCcp.SetFocus Exit Sub End If On Error GoTo Err_cmdTransfer_Click 'DoCmd.OpenReport "rptTransfer", acPreview 'DoCmd.OpenReport "rptTransfer", acViewPreview Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From CCP") rst.MoveLast: rst.MoveFirst rst.FindFirst Month(txtMonth) & Year(txtMonth) = Month(Me.txtMonth1) & Year(Me.txtMonth1) Dim Msg, Style, Title, Response If rst.NoMatch Then Msg = "This month is NOT in the table CCP" & vbCrLf & _ "Do you want to ADD A NEW RECORD ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "No values in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.AddNew rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If Else Msg = "The following values exist in the table CCP" & vbCrLf & _ "Account number=" & rst!NCcp & vbCrLf & _ "Month=" & rst!txtMonth & vbCrLf & _ "Value=" & rst!TheValue & vbCrLf & vbCrLf & _ "Do you want to UPDATE ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "values found in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.Edit rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If End If 'DoCmd.OpenQuery "qry_1-5_Sum" 'S = DSum("[TV]", "[qry_1-5_Sum]") 'MsgBox S Exit_Sub: rst.Close: Set rst = Nothing Exit_cmdTransfer_Click: Exit Sub جعفر 288.krimo2015V1.mdb.zip

اخي كامل بدل ان تكتب الكود اعلاه مباشرة في الرد ، ويكون تنسيقه عديم الفائده ، استخدم الاداة التالية (انظر السهم الاحمر): ليصبح التنسيق مقروء هكذا: DoCmd.ApplyFilter , " اللقب like '*" & [Forms]![اسم النموذج]![اسم مربع النص] & "*'" جعفر

انا لم ارى اي مرفق ، لذلك قولي ارتجالي لا تستطيع استعمال كومبو متغير في نموذج مستمر ، اي ان الكومبو تتغير قيمه حسب حقل آخر في السجل. جعفر

تعرف ليش الرسالة فارغة؟ انظر الى الكود مرة اخرى ، وستلاحظ انك استخدمت msgbox a بدل msgbox S !! اعطني دقائق وساعمل على بقية الكود جعفر تفضل هذا كود الالحاق للجدول CCP ، وطبعا تقدر قبل الادخال انك تتأكد من البيانات هذا الشهر اذا كانت موجودة (كما عملت انت في كود التقرير عند حدث الغلق) او بأي طريقة اخرى: والنتيجة: جعفر 288.krimo2015V1.mdb.zip

الظاهر انك استوردت أكثر من البيانات ، فاستيراد البيانات لا علاقة له ببقية البرنامج ، ولا يعمل لك الخطأ!! حاول مرة اخرى جعفر

تم عمل هذا ، وتم حساب الوقت بالدقائق (لسهولة جمعه وتغييره الى ساعات لاحقا): . الآن حتى لا تتكرر الايام ، سنعمل المجاميع ، ولكن ماذا تريد العمل مع الاشخاص الذين ليس لديهم تاريخ حضور؟ جعفر 280.2.New.accdb.zip

لا يا كريمو ، هذا مو انصاف منك!!! هذه المرة اشوفك متخربط!! انا قلت: وانت طبعا تطلع نتائجك خطأ ، لأنك كتبت المعادلة خطأ وبعد التصحيح الى معادلتي ، هذه نتيجة الاستعلام والتقرير والكود: . . انا اعطيتك البيانات وقلت لك: فيعني انا ما عملت اي شئ بالجدول CCP جعفر

هاك الخطوات: نستعمل الاستعلام من التقرير: . نحفظه باسم qry_1-5_Sum . في النموذج ، FrmTransfer نضع هذا الكود لعملية الجمع ، وتستطيع جمع نتائج الاستعلام مع هذه النتيجة: . وقد عملت حقل لرقم الحساب في النموذج ، والنتيجة : . الآن عندك رقم الحساب ، والمجموع والتاريخ من النموذج ، فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت جعفر

وعليكم السلام أخي سلمان انا بخبرك عن كمبيوتر اشتريته حق الاولاد من سنين ، واقول لك شو صار فيه: الكمبيوتر كان بمواصفات عاليه وافضلها في وقتها ، بعد مدة عملت فورمات ، لأنهم حطوا على الكمبيوتر ما هب ودب ، ثم قفلته بواسطة برامج DeepFreeze ، بعد مدة غيّرت القرص الصلب وأضفت واحد زيادة ، لأن الالعاب الجديدة صارت تيجي بالجيجا ، بعد مدة غيّرت motherboard ، لأنهم احتاجوا يستعملوا كرت خاص للعرض ، بعد مدة غيّرت كرت الشاشة ، علشان Rendering ، واللي احتاج ان يغيّر Power Supply ، علشان كرت الشاشة ، بعد مدة غيّرت الشاشة ، وحتى Keyboard و Mouse تغيروا ، نعم لم اغيّر CPU ولا الهيكل الخارجي فهل الكمبيوتر اللي ظل عندي هو نفس الكمبيوتر الاصل!! جعفر

انا قلت الاستعلام ، ولم اقل التقرير لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير مثلا ، هكذا: Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5") جعفر وتحصل على المجوع هكذا مثلا: S= Dsum ("[Thevalue]","[qry_1-5]") جعفر

وعليكم السلام البرنامج اللي ارفقته محمي وما ممكن النظر فيه جرب انزال الملف من الرابط: https://sites.google.com/site/masaderedu/ جعفر

شوف الرابط التالي: http://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/ جعفر

السلام عليكم قصدك ان (1) نعمل حقل بإسم Nccp في النموذج FrmTransfer ونخذ المعلومه منه ، (2) ومن الحقل txtMonth1 ، التقرير مبني على الاستعلام qry_1-5 ، فهذا معناه اننا نستطيع ان نستخلص (3) Sum([SumOfTheValue]) المطلوبة مباشرة من الاستعلام ؟ جعفر

السلام عليكم أخي كريمو والله من أمس وانا ادور في حلقه مفرغه وماني قادر استوعب المطلوب النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !! التحويل مرة واحدة فقط ؟؟ انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب جعفر

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

وعليكم السلام ورحمة الله وبركاته إزيك يا راجل ، وحشتنا ، اخبارك ايه، من زمان ما سمعنا منك ان شاء الله تكون والاهل بخير وعافية اما نحن فبخير الباري ونعمه والطافه وبعد رد السلام ، تفضل: أفضل طريقة في اخفاء صف (المسمى الاصح هو تصفية سجل) ، هو ان تجعل الاستعلام مصدر لنموذجك او تقريرك ، واذا افترضنا ان اسم الحقل الذي تريد اجراء التصفية عليه اذا كان فارغا ، myID ، فضع المعيار التالي له في الاستعلام: is not null AND [myID]<>'' او ان تجمع هذين المعيارين في امر واحد: len([myID] & '')<>0 جعفر