المشاركات : 202
المواضيع 60
الإنتساب : Mar 2017
السمعة :
7
الشكر: 37
تم شكره 243 مرات في 130 مشاركات
السلام عليكم
عندي قاعدة بيانات لمعلومات شخصية الاسم والمواليد والعنوان وصورة الشخص
هل يمكن استعمال ريبورت اكتف لاظهار البيانات ؟
مع خالص التقديـــــــــــــــــــــــــــــــــــر
المشاركات : 1,262
المواضيع 16
الإنتساب : May 2016
السمعة :
291
الشكر: 801
تم شكره 2223 مرات في 1168 مشاركات
وعليكم السلام ورحمة الله وبركاته
اكيد بتقدر..
ولكن انا ما جربت من قبل..
اذا عندك مثال .. ارفعه حتى نجرب فيه
العمليه هي اكواد ربط اداة عرض الصور بالحقل المناسب بقاعدة البيانات لا اكثر.
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
المشاركات : 202
المواضيع 60
الإنتساب : Mar 2017
السمعة :
7
الشكر: 37
تم شكره 243 مرات في 130 مشاركات
شكرا لكم على اهتمامكم سارفع المثال في وقت لاحق
المشاركات : 897
المواضيع 167
الإنتساب : May 2015
السمعة :
78
الشكر: 791
تم شكره 1504 مرات في 709 مشاركات
نعم يوجد وعندي مشروع سأحاول رفعه لك عندما ادخل من الحاسوب
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 202
المواضيع 60
الإنتساب : Mar 2017
السمعة :
7
الشكر: 37
تم شكره 243 مرات في 130 مشاركات
شكرا لك على الاهتمام وانتظر منكم واناشاكر لك
المشاركات : 897
المواضيع 167
الإنتساب : May 2015
السمعة :
78
الشكر: 791
تم شكره 1504 مرات في 709 مشاركات
خذ هذا الكود عدل فيه حسب اسم قاعدة البيانات والجدول واسم التقرير
كود :
If Trim(TextID.Text) = "" Then
MsgBox "يجب إختيـار الاســم", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
TextIDI.SetFocus
Exit Sub: End If
Dim x As String
x = TextID.Text
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data.Base\Data_Base.mdb;Persist Security Info=False"
If RS.RecordCount <= 0 Then
MsgBox "عفــواً ... لا يوجد سجل ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
TextID.SetFocus
Exit Sub: End If
Report1.DataControl1.Source = "Select * From [TBL_Student] Where [ID_Code] = '" & x & "'"
If Not Textpic.Text = "" Then
Report1.Image1.Picture = LoadPicture(Textpic.Text)
Else
Report1.Image1.Picture = LoadPicture()
End If
'Report1.LName.Caption = Form_school.Text3.Text
'Report1.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ØÇáÜÜÈ" & " " & Form_documents.CombCategory.Text
'Report1.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ÇáØÇáÜÜÈ : " & " " & Form_documents.Textname.Text & " * ááÕÜÜÜÝ : " & Form_documents.CombClass.Text & " * ÇáÔÚÈÜÜÜÉ : " & Form_documents.CombCClass.Text & " * ÕÝÉ ÇáÞíÏ : " & Form_documents.CombCategory.Text
'Report1.LT.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ØÇáÜÜÈ" & " " & Form_documents.CombCategory.Text
Report1.Show: Report1.Visible = True: Report1.Show
ولو لم يضبط معك سوف أرفع لك مثال
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 202
المواضيع 60
الإنتساب : Mar 2017
السمعة :
7
الشكر: 37
تم شكره 243 مرات في 130 مشاركات
شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم
المشاركات : 897
المواضيع 167
الإنتساب : May 2015
السمعة :
78
الشكر: 791
تم شكره 1504 مرات في 709 مشاركات
(11-09-22, 01:24 PM)gonm64 كتب : شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم
من المستحسن حفظ الصور في ملف خارجي .
على كل حال عندما ادخل الجهاز أحاول عمل مثال إن شاء الله
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ