jjafferr

وعليكم السلام المفروض هذا يؤدي الغرض 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 جعفر

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

أخي الفاضل هناك بعض الضوابط التي يجب ان تتبعها في مسميات الكائنات في الاكسس ، والتي سوف تساعدك كثيرا في المستقبل ، مثلا: 1. لا تترك مسافة بين الاسم ، وانما اجعله موصولا بحركة _ 2. لا تعطي الجداول والاستعلامات والنماذج نفس الاسم ، وانما ابدأ بـ t او tb او tbl للجداول ، و qry للإستعلامات ، و frm للنماذج ، و rpt للتقارير ، انا فككت لك الاستعلام Trade Account ، والذي هو مصدر معلومات النموذج Trade Account: . . وهنا تلاحظ اني عملت اول استعلام الحاقي للجدول tbl_Temp . وهذه حقول الجدول ، بحسب حقول الاستعلام Trade Account . ونتيجة بيانات الجدول ، ومقارنتها مع الاستعلام الاصلي Trade Account (يجب ان تفتح كل الاستعلامات الخمسة واحدا واحد وتصلح الخطأ ، فقد اكون الحقت احد القيم الى الحقل الخطأ) . وفي النهاية تغير مصدر النموذج Trade Account الى الجدول tbl_Temp . ولأني لم اعرف اين اشغل استعلامات الالحاق الخمسة ، فاني جعلتها في الحدث عند تحميل النموذج ، هكذا: Private Sub Form_Load() 'empty tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") 'Append Records without warnings DoCmd.SetWarnings False DoCmd.OpenQuery "qry_1" DoCmd.OpenQuery "qry_2" DoCmd.OpenQuery "qry_3" DoCmd.OpenQuery "qry_4" DoCmd.OpenQuery "qry_5" 'set the warnings ON again DoCmd.SetWarnings True 'lets read the correct values form the table now Me.Form.Requery End Sub واصبح النموذج الان يعمل بسرعة ، ولم ألحظ عليه مشاكل ، لذلك ، وتماشيا لتوصياتي في المشاركات السابقة ، فاستعمل هذا الجدول المؤقت (او اي جداول مؤقته اخرى) ، والمفروض ان لا تحصل على المشكلة التي تعاني منها . جعفر 285.INVNTORY.accdb.zip

الظاهر لسبب ما ان الاستعلام UPQ لم يتقبل اسم النموذج بالعربي ، فغيرته الى Employee_Data ، مع بعض التعديلات. ولكن رجاء تتأكد ان تضبط "وضع أمان الاكسس " الى منخفض. جعفر 278.1.accdb.zip

نعم ، انت قلت: فالرسالة الاولى تطلب المعلومة من النموذج FrmTransfer ، اما الرسالتين الباقيتين ، فلم اعرف مصدرها جعفر عفوا بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!! الرسالة الثالثة لم اعرفها من اين

صافي يا لبن

أخي كريمو شوف الفرق بين معادلتك ومعادلتي: معادلتي DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" ومعادلتك DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet جعفر

وعليكم السلام أخي كريمو ' stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag ' DoCmd.Close acReport, "rptTransfer" DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" في حدث النقر المزدوج ، اعمل هذا التغيير: جعفر

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