محمد أبوعبدالله

شكراً لاستاذنا جعفر على العيدية المميزة والف مبروك للاخوة الافاضل @اشرف و @Gamal.Saad على الترقية راجياً من الله للجميع دوام التوفيق تحياتي

وعليكم السلام ورحمة الله وبركاته سنفرض ان جدول المبيعات به حقل الكمية = ItmQty وبه ايضاً حقل الوحدة = CountInPacket لو ان الكمية مثلاً = 125 اذن الكمية بالكرتون = 10 الكمية بالقطعة = 5 ويتم ذلك في الاستعلام كالتالي اسم الصنف ItmName عدد الوحدات بالكرتونة X1: CountInPacket كرتونة X2: [ItmQty]\[X1] دستة X3: IIf([ItmQty]-([X2]*[X1])>11;1;0) قطعة X4: [ItmQty]-(([X2]*[X1])+([X3]*12)) انظر الاستعلام = ItmQry Db1.rar تحياتي

وعليكم السلام ورحمة الله وبركاته المشكلة ان لديك عناصر اسماء عربي اولاً قم باعادة تسمية جميع العناصر في جميع النماذج باسماء لاتينية ( انجليزية ) ثانياً قم بانشاء قاعدة بيانات جديدة واستورد اليها جميع الكائنات ( جداول - استعلامات - نماذج ... الخ ) تحياتي

وعليكم السلام ورحمة الله وبركاته في جدول data1 اجعل حقل ID = AutoNumber وفي جدول data اجعل حقل ID = Number تحياتي

يمكنك تغيير درجة الشفافية من الكود التالي Private Sub Form_Open(Cancel As Integer) System.Window.Translucent Me.hWnd, 160 End Sub غير الرقم 160 مثلا الى 55 وانظر النتيجة تحياتي

تفضل اخي الكريم za-Transparency-END.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل خاصية مربع النص BackStyle = Transparent تحياتي او ارفق المثال للاطلاع على المشكلة

باستخدام امر الاخفاء Me.Visible = False لن يتم اغلاق النموذج بل سيظل مفتوح ولكن مخفي فقط تحياتي

وعليكم السلام ورحمة الله وبركاته لانك تقوم باغلاق نموذج Fz_1 وذلك في الامر التالي DoCmd.Close Private Sub b2_Click() TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "الرقم السري مطلوب" str_Prompt = "ادخل الرقم السري" If InputBox(str_Prompt, str_Title) = "123" Then MsgBox "الرقم السري صحيح", , "تفضل بالدخول" DoCmd.Close DoCmd.OpenForm "Fz_12", acNormal Else MsgBox "الرقم السري خاطىء", , "لا يمكنك الدخول" Exit Sub End If End Sub والافضل استبدال امر الاغلاق بامر اخفاء كالتالي Me.Visible = False واليك الكود كاملاً Private Sub b2_Click() TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "الرقم السري مطلوب" str_Prompt = "ادخل الرقم السري" If InputBox(str_Prompt, str_Title) = "123" Then MsgBox "الرقم السري صحيح", , "تفضل بالدخول" ' DoCmd.Close Me.Visible = False DoCmd.OpenForm "Fz_12", acNormal Else MsgBox "الرقم السري خاطىء", , "لا يمكنك الدخول" Exit Sub End If End Sub 1_2.rar تحياتي

وعليكم السلام ورحمة الله وبركاته في البداية لا يجب ان يكون لديك في جدول ( جدول الكتب ) حقل لكل كتاب ( كتاب1 ، كتاب2 ،كتاب3 ، .... الخ ) يكفي ان تضع حقل اسم الكتاب فقط انظر جدول ( جدول الكتب ) ثم نقوم بانشاء جدول ( جدول توزيع الكتب ) ثم تقوم باضافة حقول ( رقم الطالب - رقم الكتاب ) حتى تعرف فيما بعد من الطلاب الذين تم توزيع الكتب عليهم ثم تقوم بربط حقل رقم الطالب من جدول ( الطلاب ) بحقل رقم الطالب في جدول ( جدول توزيع الكتب ) وربط حقل ( رقم الكتاب ) من جدول ( جدول الكتب ) بحق ( رقم الكتاب ) في جدول ( جدول توزيع الكتب ) انظر العلاقة بين الجداول ثم تنشىء استعلام به البيانات اللازمة لمعرفة الكتب التي تم توزيعها على الطلاب انظر استعلام Query1 وعدل عليه بما يناسبك ثم انشىء تقرير مبني على الاستعلام Query1 وسيعرض على النتائج مضبوطة ان شاء الله وذلك بعمل معيار او بعمل تصفية حسب النموذج سجل - .rar تحياتي

هذا نتيجة محاولاتك تحويل الملف الى accdb فتم تعطيل الاوامر بداخل البرنامج تحياتي

للاسف لا بد ان يكون معك الملف الاصلي accdb

وعليكم السلام ورحمة الله وبركاته لان هذا الملف تم تحويله من accdb الى accde ولا يمكن عرض التصميم فيه او تحويله الى accdb كما كان في البداية ويعد تحويل الملف الى accde لا يمكن عرض التصميم للنماذج والتقارير والوحدات النمطية تحياتي

للفائدة يمكن تحميل قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة http://qurandatabase.org وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil يمكن تحميل الملف بصيغة txt ثم نسخه الى ملف اكسيل ثم نسخه الى اكسيس ان شاء الله بكل سهولة http://tanzil.net/download تحياتي

لعدم وجود مجلد image بجوار البرنامج تأكد جيدأ من وجود مجلد image او يمكن اشنائه عن طريق الكود التالي ( ضعه في بداية الكود ) Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020" Set cf = fs.CreateFolder(strFolder) وهذا هو الكود كاملاً ان شاء الله Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "Pro2020" Set cf = fs.CreateFolder(strFolder) If IsNull([FCar_No]) Then [FCar_No].SetFocus Exit Sub End If Dim fpath As Variant Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" End If End With End Sub تحياتي

ما شاء الله لا قوة الا الله جزاك الله خيرا استاذنا الفاضل وارجو من الله ان يحعله في ميزان حسناتك اخي الكريم تحياتي

هذا الحقل هو لرقم المركبة لذلك يجب اضافة رقم المركبة اولاً قبل اضافة الصورة تحياتي

هذا افضل طبعا تحياتي

الف مليون مبروك استاذنا @husamwahab حقاً اخي الكريم تستحق بجدارة وارجو من الله ان ينفع بك دائماً دمت لاخيك تحياتي

تفضل اخي الكريم الكود يقوم بنسخ الصورة الى مجلد image الذي بجوار قاعدة البيانات If IsNull([FCar_No]) Then [FCar_No].SetFocus Exit Sub End If Dim fpath As Variant Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" End If End With FF.rar تحياتي

جميل استاذنا حسام بارك الله فيك تحياتي

كما وضحت لك اذا بحث بالاسم سيظهر الاسم لكن يمكن وضع مربع نص يظهر به رقم الموضف Database110.rar تحياتي

اذا بحثت بالاسم فإذاً سيعرض الاسم ولن يتم عرض الرقم لكن يمكنك وضع مربع نص بجوار مربع تحرير وسرد يعرض لك الرقم المحدد ولو ارفقت قاعدة البيانات سيكون ايسر باذن الله الحل تحياتي

وعليكم السلام ورحمة الله وبركاته لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة FF.rar تحياتي