sayed_hu95

ليس هذا المطلوب امل مراجعة ما كتبته

اشكرك على التجاوب مرفق البرنامج degree.rar

الا يوجد في المنتدى من يساعد في الرسم البياني أو حتى على الاقل يتم تحويل الرسم البياني الى أعمدة

وجدت على النت البرنامج المرفق رائع جدا لعمل zoom ولكن لا اعرف كيف اقوم بتطبيقه هل يمكن لخبراء الاكسس شرح هذا البرنامج المرفق ZoomChart_A2003.rar

مرفق ملف اكسل والذي امل في عمل نفس الطريقة في الاكسس او أي طريقة اخرى لعرض البيانات chart.rar

أرجو الافادة بالبحث في النت وجدت كود للاكسل ولكن كيف يمكن تطبيقه على الاكسس Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) Dim ElementID As Long Dim Arg1 As Long Dim Arg2 As Long Dim chart_data As Variant Dim chart_label As Variant Dim last_bar As Long Dim chrt As Chart Dim ser As Series On Error Resume Next Me.GetChartElement x, y, ElementID, Arg1, Arg2 Application.ScreenUpdating = False Set chrt = ActiveChart Set ser = ActiveChart.SeriesCollection(1) chart_data = ser.Values chart_label = ser.XValues Set txtbox = ActiveSheet.Shapes("hover") If ElementID = xlSeries Then If Err.Number Then Set txtbox = ActiveSheet.Shapes.AddTextbox _ (msoTextOrientationHorizontal, x - 150, y - 150, 100, 100) txtbox.Name = "hover" txtbox.Fill.Solid txtbox.Fill.ForeColor.SchemeColor = 9 txtbox.Line.DashStyle = msoLineSolid chrt.Shapes("hover").TextFrame.Characters.Text = "$ " & Application.WorksheetFunction.Text(chart_data(Arg2), "???.??") & " bn" & Chr(10) & Chr(10) & chart_label(Arg2) With chrt.Shapes("hover").TextFrame.Characters.Font .Name = "Arial" .Size = 12 .ColorIndex = 16 End With With chrt.Shapes("hover").TextFrame.Characters(Start:=1, Length:=11).Font .Name = "Haettenschweiler" .Size = 20 .ColorIndex = 1 End With last_bar = Arg2 End If ser.Points(Arg2).Interior.ColorIndex = 44 txtbox.Left = x - 150 txtbox.Top = y - 150 Else txtbox.Delete ser.Interior.ColorIndex = 16 End If Application.ScreenUpdating = True End Sub

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

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

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

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

أرجو منكم الافادة , بحثت كثيرا في النت ولم اجد حل كيف يمكن جعل زر أمر ضروري قبل الانتقال لسجل جديد مثل زر حفظ النموذج بحيث اذا بدأ ادخال البيانات لا يمكن الانتقال للسجل الجديد الا بعد الضغط على الزر لكن اذا لم يتم ادخال أي بيانات ينتقل الى أي سجل دون الضغط على زر حفظ

عند محاولة تغيير مصدر البيانات لوضع معادلة حسابية (تحت مربع بيانات في الخصائص) اجد البرنامج يلغي ارتباط الحقل بالجدول الاصلي واي حسابات لا تنعكس قيمتها في الجدول الاصلي ما هو الحل لهذه المشكلة ,

كيف يمكن ايجاد اقصى قيمة داخل مجموعة من الحقول وليس السجلات

هل من مجيب؟

الهدف هو عمل برنامج واحد لعدد 3مخازن متماثلين(كمثال) ولا اريد الدخول الى الاكواد وتغييرها