-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-

aftfm
اعضاء-
عدد المشاركات
177 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
0 عاديعن aftfm
-
الرتبة
عضو
- تاريخ الميلاد 04/24/1996
معلومات الملف الشخصي
- الجنس ذكر
- الدولة : المملكة العربية السعودية
أحدث الزائرين لملفلك الشخصي
4,431 زياره للملف الشخصي
-
السلام عليكم ورحمة الله وبركاته محتاج كود يتم من خلاله استخراج مسار واسم البرنامج اضافت هذا الكود Dim OpenFileDialog1 As New OpenFileDialog OpenFileDialog1.Title = "open file" OpenFileDialog1.Multiselect = False OpenFileDialog1.Filter = "All Files|*.*" OpenFileDialog1.ShowDialog() Me.lblBrowse.Text = OpenFileDialog1.FileName ولكنه بعض البرامج لا يظهر مسارها تظهر كما في الصورة
-
السلام عليكم ورحمة الله وبركاته لدي جملة استعلام من خلال ما هو مكتوب في اداة اللست بوكس ولكن لا تظهر حسب ما هو مطلوب هذا الكود يتم اظهار النوع ومن ثم الغرف مع اني كاتب له ORDER BY RoomNum وهو يظهرها حسب TypeDev المطلوب اظهار بيانات TypeDev حسب الغرف اي جميع الانواع الموجودة في الغرفة رقم 1 مثلا ثم جميع الانواع الموجودة في غرفة رقم 2 وهكذا هو هنا يظهر نوع واحد في الغرفة رقم 1 حتى اخر غرفة ومن يم يعيد النوع الثاني في الغرفة رقم 1 حتى نهاية الغرفة ومن ثم النوع الثاث في الغرفة 1 حتى نهاية الغرف dim dt as new DataTable For i =0 to ListBox1.Items.Count -1 dim sql AS String = "Select * From tbl1 Where TypeDev ='" & me.ListBox1.Items(i) & "' ORDER BY RoomNum ASC" Dim da as new OleDbDataAdapter(sql, Con) da.Fill(dt) dim rpt As new CRComByRoom rpt.SetDataSource(dt) Dim frmPrint as new FormPrint frmPrint.CrystalReportViewer1.ReportSource = rpt frmPrint.ShowDialog() Next
-
السلام عليكم ورحمة الله وبركاته تظهر رسالة خطأ في امر الطباعة Dim sql As String = "SELECT * FROM tblUniversity WHERE Dep_Name= '" & Me.cmbDepartment.Text & "'" Dim da As New OleDbDataAdapter(sql, Con) Dim dt As New DataTable da.Fill(dt) If Me.BindingContext(dt).Count = 0 Then MsgBox("خطأ") Exit Sub Else Dim rpt As New CrystalReport1 rpt.SetDataSource(dt) Dim frmPr As New frmPrinting frmPr.Text = "تقرير" frmPr.CrystalReportViewer1.ReportSource = rpt frmPr.ShowDialog() End If
-
السلام عليكم ورحمة الله وبركاتهاخواني جزاكم الله خيرقمت بتنصيب برنامج فيجوال استديو 2015وكلعادة نجد في الادوات CrystalReportViewer1 حتى عند ما اريد اضافة تقرير الكريستال مع العلم اني قمت بتحميل الكريستال ريبورت وقمت بتنصيبة على الجهازلكن في 2015 لم تظهرهل يتم تحميل الكريستال ريبورت بمفردة ام هو من ضمن ال فيجوال استديو
-
هذا مثال ولاحظ الاستعلام اهظر الاسم ورقم الهوية ورقم الموظف علاوة على مالدية من (جوال و تحويلة ) من جدول الجوالات ومن جدول التحويلات ولكن في سجل واحد المطلوب يكون في سجلين بمعنى نضيف في الاستعلام بدلا من حقل TyepD , Ex المكررة من الجدولين تكون فقط واحدة TyepD للجدولين و Ex للجدولين Example.accdb
-
السلام عليكم ورحمة الله وبركاتهلدي عدد ثلاث جداول واريد عمل استعلام الجدول الاول / في الاسم / رقم الموظف / المرتبةالجدول الثاني والثالث متشابه اسماء الحقول مثلا / النوع / الرقمالمطلوب عمل استعلام بحيث يظهر / الاسم / رقم الموظف / المرتبة / النوع / الرقم فقطولكن النوع والرقم من جدولين مختلفينبحيث لو كان هناك بيانات مثلا ل احمد في الجدول الثاني والجدول الثالي في حقل النوع وحقل الرقمتظهر بعدد سجلين تحت بعض مع تكرار (الاسم ورقم الموظف والمرتبة) واختلاف ( النوع / والرقم) حسب الموجود في كل حقل من الجدول الثاني والجدول الثالثومهما يكون عدد السجلات
-
السلام عليكم ورحمة الله وبركاته لا استطيع المشاركة في المنتدى سواء بموضوع جديد او بمشاركة الاضاء في مواضيعهم ما هي المشكلة
-
اشكرك اخي العزيز محمد على اهتمامك لكن ممكن تشرح كيف اقوم بعمل التقرير وهل وضحت فكرة التقرير الذي اريده لك
-
الف شكر اخي العزيز تم تحميل الكتابين وقرائتهم لكن لم اجد فيهما جواب على سؤالي لدي اعمدة متغيرة موجودة في استعلام بقاعدة بيانات اكسس قد تزيد وقد تنقص هل هذا ممكن لتكوين تقرير بهذه الطريقة
-
السلام عليكم ورحمة الله وبركاته لدي استعلام يقوم بجمع ما لدى الاقسام من اجهزة حاسب وبطبيعة الحال الاجهزة ليست محصورة قد تزيد وقد تنقص وقد تتغير لذا عملت هذا الاستعلام واعطاني نتائج جيدة لكن المشكلة في كيفية عمل التقرير على كريستال ريبورت نصحوني بتقارير الكريستال الديناميكية وهذه صور الاستعلام ونتائجه لانه في هذه الحالة سيتغير عدد الاعمدة بعدد الاجهزه مثل زيادة ماسح ضوئي أو فاكس أو هاتف الخ,,,,,, وقد يزيد وقد ينقص حسب اضافة الاجهزة فيكف يمكن عمل التقرير في هذه الحالة ارجوا افادتي عن طريقة مثالية لذلك
-
aftfm بدأ بمتابعة كيفية عمل التقارير الديناميكية CrystalReport
-
السلام عليكم و رحمة الله وبركاته اخواني جزاكم الله خير عندي كما ذكرت جدول للمواد فيه Name Num Type + حقل من نوع نعم/لا اسمه Co استخدم هذا الحقل للدلاله على ان المواد مسلمة في حالة ان الحقل True وفي حالة أن الحقل False يعني ان المادة ليست مسلمة المطلوب البحث في القريد بخانة Num و خانة Type اي بالرقم والنوع ولا يهم الاسم فإذا كان مودود في قاعدة البيانات يجعل حقل Co = False وإذا لم يكن موجود في الداتا قريد لا يغير شي اي التعديل على سجلات الجدون من خلال الموجود في الداتا قريد سواء كانت واحد او اكثر حسب الموجود اتمنى ان اكون قد وفقت لشرح المطلوب
-
aftfm بدأ بمتابعة كيف اعدل بيانات جدول من خلال الداتا قريد
-
اين المحترفين هذه قاعدة بيانات كمثال QueryType1.rar
-
هذا المثال المطلوب نقل بيانات الاستعلام p and c كلا الى جدوله p الى جدول tblMonthP C الي جدول tblMonthC QueryType1.rar
-
بقي الايام تظهار من 1 الى 31 مهما كانت عدد ايام الشهر
-
تم التوصل للعام Format(Now();"yyyy")