نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود تحت امر تحديث في النموذج لديك Dim rst As Recordset Set rst = Me.RecordsetClone With rst .MoveLast .MoveFirst Do Until .EOF Me.Bookmark = .Bookmark Me.Refresh Me.End = Text1 .MoveNext Loop .MoveFirst Me.Bookmark = .Bookmark End With Khalaf2018.rar

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود تحت امر تحديث في النموذج لديك Dim rst As Recordset Set rst = Me.RecordsetClone With rst .MoveLast .MoveFirst Do Until .EOF Me.Bookmark = .Bookmark Me.Refresh Me.End = Text1 .MoveNext Loop .MoveFirst Me.Bookmark = .Bookmark End With

شكرا للاستاذ العزيز kaser906 لما يبذل من وقته وجهده اخي الكريم في التقرير لست بحاجة الى اكواد ، يوجد خاصية الفرز والتجميع انظر الصورة تتحدث ، في الاصدارات الاحدث ابحث عن الفرز والتجميع قد لا تجده كما في الصورة الأعلى يكون له الاولوية في الفرز ثم الذي يليه .. وهكذا ...

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

السلام عليكم ورحمة الله وبركاته هل تخيلت يوماً أنك تستطيع إستعراض سجلات قاعدة بيانات أكسس بواسطة برنامج الباوربوينت (وما أدراك ما البوربوينت ) قاعدة البيانات المرفقة تحوي بداخلها نموذجين وهما كالأتي :- أولاً : النموذج: CreateFromAccessData هذا النموذج يوجد عليه زر بأسم "PowerPoint Example " بمجرد النقر عليه ينشىء شريحة عرض بالباوربوينت جديدة ، يتم من خلالها عرض أحد سجلات قاعدة بيانات أكسس المرفقة مع المثال. وشفرة الكود كالتالي :- Sub cmdPowerPoint_Click() Dim db As Database, rs As Recordset Dim ppObj As PowerPoint.Application Dim ppPres As PowerPoint.Presentation On Error GoTo err_cmdOLEPowerPoint ' Open up a recordset on the Employees table. Set db = CurrentDb Set rs = db.OpenRecordset("Employees", dbOpenDynaset) ' Open up an instance of Powerpoint. Set ppObj = New PowerPoint.Application Set ppPres = ppObj.Presentations.Add ' Setup the set of slides and populate them with data from the ' set of records. With ppPres While Not rs.EOF With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1 .SlideShowTransition.EntryEffect = ppEffectFade With .Shapes(2).TextFrame.TextRange .Text = CStr(rs.Fields("LastName").Value) .Characters.Font.Color.RGB = RGB(255, 0, 255) .Characters.Font.Shadow = True End With .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50 End With rs.MoveNext Wend End With ' Run the show. ppPres.SlideShowSettings.Run Exit Sub err_cmdOLEPowerPoint: MsgBox Err.Number & " " & Err.Description End Sub ثانياً : النموذج: UseExistingPresentation هذا النموذج يقوم بعرض شرائح مشروع باوربوينت (Access2PowerPoint) الذي ستجدو ملفه من ضمن المرفقات على النموذج المذكور وذلك بمجرد النقر على الزر "Get Presentation" وشفرته كالتالي :- Private Sub insertShow_Click() On Error GoTo insertShow_Click_Error ' Open PowerPoint Dim strPowerPointFile As String Dim pptobj As PowerPoint.Application Set pptobj = New PowerPoint.Application pptobj.Visible = True pptobj.WindowState = ppWindowMinimized strPowerPointFile = CurrentProject.Path & "\Access2PowerPoint.ppt" ' Fill a collection with all Slide IDs. With pptobj.Presentations.Open(strPowerPointFile) Set mcolSlideIDs = New Collection Dim ppSlide As PowerPoint.Slide For Each ppSlide In .Slides mcolSlideIDs.Add ppSlide.SlideID Next .Close End With ' Close PowerPoint pptobj.Quit Set pptobj = Nothing ' Make object frame visible and enable "navigation" buttons. pptFrame.Visible = True frstSlide.Enabled = True lastSlide.Enabled = True nextSlide.Enabled = True previousSlide.Enabled = True ' Specify OLE Class, Type, SourceDoc, SourceItem and other properties. With pptFrame .Class = "Microsoft Powerpoint Slide" .OLETypeAllowed = acOLELinked .SourceDoc = strPowerPointFile End With SetSlide 1 frstSlide.SetFocus insertShow.Enabled = False Exit Sub insertShow_Click_Error: MsgBox Err.Number & " " & Err.Description Exit Sub End Sub وكذلك تستطيع بواسطة بقية الأزار التي على النموذج التحكم بعرض كل شريحة من ناحية التقديم أو التأخير ... إلخ. ملاحظة: يجب أن يكون لديك Access 2000 أو الإصدار الأحدث وكذلك PowerPoint 2003 وستحتاج أن يكون لديك في قائمة المراجع References إلى مكتبات الربط التالية : Microsoft PowerPoint 9.0 Object Library Microsoft DAO 3.6 Object Library وأخيرا أترك لك الفرصة لإنزاله وإستكشافه من الرابط التالي : http://www.microsoft.com/downloads/details...&displaylang=en ------------ المصدر : http://msdn.microsoft.com/office/default.a...2Powerpoint.asp بعد إنزال المثال سيتم تنصيبه داخل المجلد التالي : C:\Office Samples\OfficeAccess2PowerPointSample

اخي الكريم المشكلة لديك بسبب المعايير تفضل تم التعديل Data2.rar

مشكور حبيبى علمك الله بما نفعك ونغعك بما علمك

اجعل حقل الصنف Combo box نافذة منسدلة و أثناء التسجيل ستظهر تتمة الكلمة مع الانتباه أنه في حال وجود أكثر من صنف تبدأ بذات الأحرف فسيظهر أثناء الكتابة أول الأسماء ضمن القائمة .

السلام عليكم من الممكن ذلك If Me.[FUEL-oil] = 0 Then Me.[FUEL-oil] = DLast("[FUEL OIL TITAN LAST DAY]", "noon report", "[FUEL OIL TITAN LAST DAY] > 0") End If لقد غيرت اسم الحقل في النموذج الذي وضعته ، ضع الكود في زر أمر و كرره ليكون لكامل حقول النص في نموذجك و عند الضغط سيتم نقل الرصيد السابق إلى الحقل في السجل الجديد و الذي سيظهر بالنموذج الفارغ . أعتذر فلست ضليعا بكتابة الأكواد و لعل هناك طريقة أفضل من هذه .

جرب dim db1 as dao.database وتكرما مشاركة ابا خليل بدون ضغط حيث لم استطع رؤية ابداعه لعدم وجود النسخة الاخيره من الوينرار مشكورين

العفو

السلام عليكم ورحمة الله جرب هذه المعادلة =COUNTIF($B$2:$C$7;$A14 &"*")

شكرا لك اخي الكريم. ahmedfahmy2018 وجزاك الله خيراً وزادك علما . بقيت مشكلة في كشف الحساب انه أثناء ادخال الكود لا يتغير اسم الحساب في مربع النص تحته ولا يتغير نوع الحساب من مدين الى دائن

السلام عليكم ورحمه الله وبركاته استاتذتي الكريم اريد تعديل الداله حيث تكون تعمل بشرطين فعدلتها الي الاتي ولكن لم تعمل معي الا بشرط واحد IIf([Adfah]="اجل" And [Nwaha2]="14";[Asafi];0) And IIf([Adfah]="اجل" And [Nwaha2]="16";[Asafi];0) شاكرين احبتي

بعتذر منك استاذي الكريم بشده كان الخطاء اننا استخدمت بالداله رقم 14 وهو المفروض 13 الان صار تمام شكر اليك يالغالي تسلم يديك

السلام عليكم لقد شاهدت ملفك .. و أعتقد أن الخطأ في المعادلة هو في القوس المنكسر "asafi" كونه لا يوجد حقل بهذا الاسم و الذي بدا لي أنه قيمة فقط ، لذلك عدل الفورمولا لهذا الشكل IIf(([Nwaha2]="14" or ([Adfah]="اجل" And [Nwaha2]="16");"Asafi";0) و سيعمل الاستعلام بالصورة المناسبة إن شاء الله تعالى .

السلام عليكم اجعل المعادلة بالصورة الآتية IIf(([Adfah]="اجل" And [Nwaha2]="14" ) or ([Adfah]="اجل" And [Nwaha2]="16");[Asafi];0)

ربما كان هذا المطلوب TEST Salim.xlsx

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

إذا كنت تفتح التقرير من زر أمر فى نموذج ضع الكود التالى لفتح التقرير و تمرير اسم الحقل الذى تريد الترتيب حسبه وهو فى هذا المثال حقل اسمه name DoCmd.OpenReport "YourReportName", acViewPreview, , , , "Names" ثم فى حدث عند الفتح للتقرير ضع الكود التالى Me.OrderBy = Me.OpenArgs Me.OrderByOn = True

تفضل اخى الكريم TEST.xlsx

استاذنا الغالي عبد الفتاح كل الشكر التقدير لجهودك ملف رائع وفقك الله

تفضل كود للاستاذ ابو خليل strFilter = ("SELECT * FROM tbll ORDER BY tbll.name1 ASC;") strFilter2 = ("SELECT * FROM tbll ORDER BY tbll.name1 DESC;") If chk.Value = 1 Then DoCmd.OpenReport "rep1", acViewPreview, strFilter Else DoCmd.OpenReport "rep1", acViewPreview, strFilter2 End If يمثل الجدول مصدر البيانات و rep1 يمثل التقرير و chk حقل في النموذج لوضع قيمة كشرط ::بالتوفيق::