AlwaZeeR

حبيبي أبا جودي بما ان الاسطر تضاف برمجيا فيجب إبقاء بعض هامش الصفحة من الأسفل عند المعاينة تظهر الورقة طبيعية لكن عند الطباعة يتجاوز حجم الورقة فيعطي صفحات متعددة ولا يتم طباعة البيانات انظر المرفق اطبع ووافني بالنتيجة Consumable Material Check List (30).rar

لانك عامل إيقاف لاهم شيء في الكود يعتمد على كم سطر تريد اظهار في الصفحة Consumable Material Check List waz (1).accdb

اتعرف ما يزيد العمل جمالا اخي العزيز جعفر وجودك هو ما يزين أي مشاركة في هذا الصرح الرائع تحياتي لشخصك الكريم

تفضل أيها العبد الفقير المسكين الطيب ليس لدي الوقت للابداع والتصميم لكن هذا مثال بسيط واعتقد انك ستصل به الى ما تريد Consumable Material Check List waz.accdb

الكود عبارة عن جملة شرطية (Select Case) ما الخطأ عزيزي؟

وعليكم السلام ورحمة الله وبركاته ضع في حدث بعد التحديث للحقل (الجنسية) الامر التالي: Select Case [الجنسية] Case "اجنبية" [المنطقة].Visible = False [العنوان].Visible = False Case Else [المنطقة].Visible = True [العنوان].Visible = True End Select

جميل جدا اخي صالح جعله الله في ميزان حسناتك

نعم تم غلق النسخة ولم يظهر امر الدخول

الظاهر انني نسيت ان اخبرك انها تعمل عندي اوفيس 365

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

واضافة لحل الأخ العزيز كاسر تعديل على نفس الوحدة Public Function DisplayImage(Imge As Control, Txtbxt As TextBox) As String On Error Resume Next Dim sImgPath As String Dim CopmN As String Dim Pic As DAO.Recordset Dim Tbl As String Set dbs = CurrentDb Tbl = "SELECT * FROM [PicTable]" Set Pic = dbs.OpenRecordset(Tbl) sImgPath = Pic.Fields("PictureFld") CopmN = Pic.Fields("CompName") '===============She3araaat============ If IsNull(sImgPath) Or sImgPath = "" Then Imge.Picture = "" Imge.Visible = False Else Imge.Visible = True Imge.Picture = sImgPath End If Txtbxt = CopmN End Function AzizN.accdb

شيء جميل جدا في انتظار النسخة المفتوحة ...

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

اهلا وسهلا بكم واعانكم الله كل الاحترام والتقدير

يعطيك العافية على الأفكار الجميلة الملف يفتح عندك فقط على اوفيس 2010 وعند الاخرين لا لانك قمت بتحويله الى ملف mde لذا سوف يفتح على اصدار اعلى من اوفيس 2010 على ما اعتقد انك تعتمد في جلب الاكواد على ملف تكست يتم تنزيله من حساب على الانترنت كما ورد في مشاركات سابقة لك وعلى الاغلب الدروب بوكس وعند فتح البرنامج يقرأ ما في ملف التكست ماذا لو قام العميل بتغيير التاريخ في ملف التكست الذي تم تنزيله ثم فتح البرنامج؟؟ هذا سؤال مبني على ما قلته انا بخصوص ان التفعيل يتم عن طريق ملف تكست يتم انزاله من الانترنت عموما في انتظار النسخة المفتوحة للاطلاع :: تحياتي

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

قد لا تستطيع تغيير الرسالة اذا كانت خصائص الحقل في الجدول مطلوب قم بتغيير خصائص الحقل من الجدول الى مطلوب: لا بعدها تستطيع وضع أي رسالة تريد في حدث قبل التحديث للنموذج حتى تستطيع تنفيذ امر الغاء الامر If Nz(Me.[اسم الحقل هنا],"") = "" Then Cancel = True Msgbox "لا يمكن ترك الحقل فارغ", vbExclamation, "قيمة مطلوبة" End If

وعليكم السلام ورحمة الله وبركاته On Error Resume Next If Len(Dir([zx])) = 0 Then Dim file As FileDialog Dim strFileName As String Set file = Application.FileDialog(msoFileDialogFilePicker) With file .Title = "اختر مكان الصورة" .Filters.Clear .Filters.Add "حدد الصورة", "*.gif; *.jpg; *.jpeg; *.pdf" .AllowMultiSelect = False If .Show Then strFileName = "\image\" & [idn] & Right(.SelectedItems(1), 4) Name file.SelectedItems.Item(1) As Application.CurrentProject.Path & strFileName DoCmd.RefreshRecord Else End If End With End If

هلا صديقي الغاالي أبا زاهر بما يسمح لنا الوقت تحياتي لشخصك الطيب

يعطيك الف عافية صراحة عمل تستحق الشكر عليه تحياتي

جميل جدا يعيطيك العافية تم التطبيق بنجاح احسنت

في معيار اسم المندوب ضع الامر التالي: Like "*" & [b] & "*" And IIf(IsNull([ادخل اسم المندوب]),[b],[ادخل اسم المندوب]) حيث b هو اسم حقل المعيار وعندك اظن: اسم المندوب

واذا اردنا نغير في me.form في أي مكان في قاعدة البيانات سواء نموذج او تقرير يتم الاستدعاء بنفس الطريقة Call DisplayImage(Pic1) مسار الصورة : Pic1 بمعنى آخر: مربع النص الذي يظهر فيه مسار الصورة هو Pic1

وعليكم السلام ورحمة الله وبركاته تم عمل وحدة نمطية لاستدعاء رابط الصورة في أي مكان سواء كان نموذج او تقرير وفي حدث الحالي او التحميل او الفتح Public Function DisplayImage(Imge As Control) As String On Error Resume Next Dim sImgPath As String Dim Pic As DAO.Recordset Dim Tbl As String Set dbs = CurrentDb Tbl = "SELECT * FROM [PicTable]" Set Pic = dbs.OpenRecordset(Tbl) sImgPath = Pic.Fields("PictureFld") '=====================She3araaat=================== If IsNull(sImgPath) Or sImgPath = "" Then Imge.Picture = "" Imge.Visible = False Else Imge.Visible = True Imge.Picture = sImgPath End If End Function يتم استدعاؤها هكذا: Call DisplayImage(Pic1) pic1 هو اسم التكست بوكس الخاص بمسار الصورة ويمكنك تغييره حسب المسار لديك الوحدات النمطية لفتح المستعرض للبحث عن الصورة كثيرة ومتعددة الاشكال وضعت لك وحدة استخدمها قديما وتفي بالغرض رغم ان هناك غيرها وبشكل مختصر تفضل المرفق Aziz.accdb

ما قصدك بلم ينجح معك أي كود؟ عموما ارفق مثالك ليتم التطبيق عليه سواء مني او من احد الاخوة كل حسب ما يسمح به وقته :: تحياتي