رمهان

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

وعليكم السلام اخ علي يبدو ان المره هذه حظك مع رمهان هل تريد الاستيراد كجدول جديد ام الحاقا بسجلات لجدول موجود ؟

تفضل ولعله ماطلبت لانه بصراحة لي تحفظ على طريقة الكود لديك ولكنك اخ وائل مصر عليه ! كما يمكنك اخذ فكرة الاخ حسين هنا http://www.officena.net/ib/topic/64121-ادراج-الكميه-في-مربع-حوار-استعلام-من-خلال-لوحة-ارقام-مصممه-داخل-النموذج/ خصوصا انه يبدو اخذ فكرة الزيادة والنقصان من برنامجك ! Sub mm(xx) Set rs = Me.F_ordersubform.Form.RecordsetClone rs.FindFirst "itemcode='" & xx & "'" If Not rs.NoMatch Then If MsgBox("الصنف موجود.. الاستمرار؟", vbYesNo) = vbYes Then [Forms]![f_order]![F_ordersubform].SetFocus DoCmd.GoToRecord , , acNewRec End If End If If IsNull([Forms]![f_order]![F_ordersubform]![itemcode]) Then [Forms]![f_order]![F_ordersubform]![itemcode] = xx DoCmd.Beep [Forms]![f_order]![F_ordersubform].SetFocus DoCmd.GoToControl "itemcode" DoCmd.GoToControl "qty" [F_ordersubform]![Qty].SetFocus [Forms]![f_order]![F_ordersubform]![price] = DLookup("item_sale", "tmenu", "itemcode='" & xx & "'") [Forms]![f_order]![F_ordersubform]![Qty] = 1 ElseIf ([Forms]![f_order]![F_ordersubform]![itemcode]) = xx Then [Forms]![f_order]![F_ordersubform]![Qty] = Nz([Forms]![f_order]![F_ordersubform]![Qty]) + 1 ElseIf ([Forms]![f_order]![F_ordersubform]![itemcode]) <> xx Then [Forms]![f_order]![F_ordersubform].SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![f_order]![F_ordersubform]![itemcode] = xx DoCmd.Beep [Forms]![f_order]![F_ordersubform].SetFocus DoCmd.GoToControl "itemcode" DoCmd.GoToControl "qty" [F_ordersubform]![Qty].SetFocus [Forms]![f_order]![F_ordersubform]![price] = DLookup("item_sale", "tmenu", "itemcode='" & xx & "'") [Forms]![f_order]![F_ordersubform]![Qty] = 1 Else [Forms]![f_order]![F_ordersubform]![Qty].Requery End If Me.F_ordersubform.SetFocus DoCmd.RunCommand acCmdSaveRecord ' DoCmd.GoToRecord , , acLast ' Me.F_ordersubform!Qty.SetFocus End Sub بالتوفيق

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

اخي الكريم ارجو توضيح موضع سحب من الاسكنر ! والية السحب كيف ستتم ! اشرح كيف خطوات السحب وكيفية الحفظ !

اعتقد استاذنا القدير ان المسالة مسالة ترتيب الاحرف في المتغير xletter ومايقابله من الحروف في الجملة النصية المكتوبة والتي تمثل المواقع المقابلة لكل حرف ! تحياتي

بارك الله فيك وفي وقتك اخي جعفر وانوه فقط انه يجب معرفة ان هذا تنسيق فقط ! فالقيم الحقيقية هي الارقام ! فلو هناك ربط بجداول اخرى فان الحقل بالجدول الاخر لابد ان يكون رقم ويحمل القيم الحقيقية في الترقيم التلقائي بالجدول الاساسي! وكذلك عند البحث ! كما انه يمكن وضع هذا التنسيق من خلال النماذج والتقارير ! تحياتي

جرب اخ احمد التالي : من خصائص الحقل اثناء عرض تصميم الجدول ومن الخاصية تنسيق "MR0"00000 بالتوفيق

وجزيتم بالمثل واكثر استاذ علي ! والعفو لسا شايف مرورك الكريم !

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

هذا موضوع للاخ ابوياسر واتوقع لماطلبت http://www.officena.net/ib/topic/61540-التقاط-صورة-بضغطة-زر/#comment-397251 بالتوفيق

معليش اخي كاسر ! صح الموضوع يخص اخي جعفر ولكن تطفلا لللتعلم ! هذا الكود لم اجده في في القاعدة المرفقة السابقة ! هل هذا صحيح ! وبالنسبة لكود الترقيم التلقائي الموجود بالموديول بالملف السابق : هوه عمله ايه بالظبط ؟ هل هي دالة بتعطيك خيار الترقيم خلال اسبوع او شهر او ربع سنوي او سنوي ؟ والا ايه ؟ وكمان ياليت تقول مصدر الكود ده من وين ؟ عايزين نتعلم ؟ ولك كل الشكر

شرفتنا بالتعقيب والملاحظة استاذنا القدير ابو البراء ! والآن ؟ : Function ramhan(xinput As String) As String Dim i As Integer, xsum As String, xletter As String xletter = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" xinput = Replace(xinput, "أ", "ا") xinput = Replace(xinput, "إ", "ا") xinput = Replace(xinput, "ة", "ه") xinput = Replace(xinput, " ", "") For i = 1 To Len(xinput) xsum = xsum & " " & mid("يوهنملكقفغعظطضصشسزرذدخحجثتبا", InStr(1, xletter, mid(xinput, i, 1)), 1) Next i ramhan = Trim(xsum) End Function تحياتي للجميع

بالاستمرار : ماذا تقصد هنا الاستمرار الى اين ! لم افهمه خاصة ان الخيار الاخر هو الانتقال الى الصنف للتعديل عليه ! ام انك تقصد عدم الاستمرار ولغاء الامر ؟!! تحياتي

وجدت هذا البرنامج من خلال البحث في النت : https://www.foxitsoftware.com/products/pdf-reader/ وهو لما طلبت واتوقع يمكن تشغيله عن طريق command line وتمرير مسار الملف وكلمة المرور بكل سهولة ! لكن هل التكلفة مناسبة لك ؟ الله اعلم ! تحياتي ولنا عوده ان شاء الله

اهلا بك عزيزنا واخينا محمد سلامة شوف من وجهة نظري اولى خطوات الحلول هو وضع اطار الحل ! هنا راح اقول اطار الحلول ولا اعلم هل هي ممكنة التنفيذ لانه حسب علمي: 1. طريقة صيد النافذة تبع المطالبة بالباسوورد ووضع الباسوورد بها ثم مناداة الضغط على ok واعتقد باستخدام ال api وبالتحديد دالة sendmessage 2. هل هناك كائنات خاصة لل pdf نضعها في المراجع وتساعدنا في فتح ملفاتها المحمية 3. هل امر الفتح من خلال command line يقبل تمرير الباسوورد هذا ولنا عودة ان شاء الله !

عزيزي الاستاذ ابا خليل لا اقصد الاخفاء او التشفيرفي كلمة مجلد محمي وانما صلاحيات المستخدمين من قبل الويندوز على هذا المجلد بمعنى : المستخدم a له الصلاحية في فتح المجلد او عدم الفتح او القراءة فقط او القراء والتعديل ! هنا يتم وضع الصورة في مجلد عليه صلاحية القراءة فقط ! ويمكن كذلك تحديد مستخدمين معينين للقراءة ! فعندما يتم فتح الاكسس على يوزر ويندوز له صلاحية القراءة فانه يقرأ الصورة وغيرذلك لايستطيع ! هذا ويمكن كذلك استخدام الاكسس في منح هذه الصلاحيات وحذفها باستخدام دوال ال api او مكتبات الويندوز الخاصة بذلك ! هذا ويمكن ان تكون الوصول للصورة من خلال طبقتين : 1. طبقة الاكسس 2. طبقة الويندوز فمثلا اذا دخل المستخدم a على الاكسس اشيك صلاحياته على مستوى الاكسس وبعد قبوله اشيك صلاحيات مستخدم الويندوز الذي دخل به a على الجهاز الحالي ولاحظ من خلال الاكسس فاذا اعطاني قبول اي وجدت ان مستخدم الويندوز الحالي له صلاحية القراءة من المجلد يتم عرض الصورة وهنا ظهر لي استفسار ولم اجربه وهو : لو فرضنا ان اسم دخول شاشة الويندوز a ليس له صلاحية يقرأ من المجلد ! فبعد دخوله ثم ذهب يفتح المجلد سيظهر له رسالة من الويندوز بعدم الصلاحية ! ولكن هل ياترى لو هناك برنامج اكسس وبه ربط بصوره داخل المجلد هل سيتم عرضها بالاكسس ام ان الويندوز سيعرف ان الذي فاتح برنامج الاكسس هو a والذي ليس له حق الوصول للمجلد فلا يتم عرض الصورة داخل الاكسس !! تحياتي للجميع

العفو ولكم اوفر التحايا

الله يعطيك العافية استاذ رمهان لكن لاحظت انه لايتم ترحيل الايام الى جدول اخر فقط يتم تسجيل الباقي من الساعات والدقائق في نفس الجدول تقبل تحياتي انا مشيت معاك حسب عنوان الموضوع ونص اول مشاركة ! ولكن يبدو ان غياب الاستاذ ابا خليل اليومين اللي راحت خلاك انت والاستاذ جعفر تشتغلو على كيفكم ! عالعموم تفضل اخوي كاسر وان شاء الله انه كل ماطلبت مع ملاحظة التالي : تم اضافة عمودي البداية والنهاية في نفس جدول ترحيل الوقت لانها تعتبر مرجع للعملية ! واتوقع حاجتها تاتي عند كل عملية ترحيل ! فاصبح سجل الترحيل به جميع البيانات بل استطيع ان اعرف ان الوقت الموجود هو بالاصل وقت مدخل ام وقت مرحل ! بالتوفيق sum_time.rar

وهذه محاولة مع الاساتذة Function ramhan(xinput As String) As String Dim i As Integer, xsum As String, xletter As String xletter = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" xinput = Replace(xinput, "أ", "ا") xinput = Replace(xinput, "إ", "ا") xinput = Replace(xinput, "ة", "ه") For i = 1 To Len(xinput) xsum = xsum & mid("يوهنملكقفغعظطضصشسزرذدخحجثتبا", InStr(1, xletter, mid(xinput, i, 1)), 1) Next i ramhan = xsum End Function بالتوفيق

اليك هذه الروابط : http://www.officena.net/ib/topic/25544-كيف-اتحكم-في-مربع-نص-غير-منظم/ http://www.officena.net/ib/topic/44935-تمت-الاجابة-الكتابة-باللغة-العربية-فقط/ http://www.officena.net/ib/topic/36516-كود-لكتابة-الارقام-فقط-و-بالعكس/ http://www.officena.net/ib/topic/47279-رسالة-تنبية-لإدخال-تاريخ-او-ارقام-او-حروف-فى-الحقل/ http://www.officena.net/ib/topic/47515-كتابة-نص-او-رقم-فقط-الحقل/ http://www.officena.net/ib/topic/32164-تمت-الاجابة-منع-كتابة-الحروف-في-مربع-نص-وكتابة-الارقام-فقط/ http://www.officena.net/ib/topic/36615-تحديد-نوع-المدخلات-في-مربع-النص/ ولماذا طلبتي برمجيا ؟ فيمكن عمله بطريقة قاعدة التحقق من الصحة ؟ بالتوفيق

حيا الله الجميع اخ وائل ممكن تقول اين الاختلاف مع الموضوع التالي: http://www.officena.net/ib/topic/61544-اضافة-صنف-الى-النموذج-الفرعي-من-خلال-رز-امر-بالنموذج-الرئيسي/?page=2 هل فقط الاختلاف التنبيه فقط : اذا كان هو فاعتقد التعديل سهل جدا وعلى الموضوع السابق ! كما انه اليك هذا الموضوع لنفس الهدف وعليك محاولة التطبيق : http://www.officena.net/ib/topic/63159-الذهاب-لسجل-موجود-عند-الاضافة/ بالتوفيق

وعليكم السلام ورحمة الله وبركاته اضافة الى ماتفضل به الاساتذه اقول : اعتقد انكم اباخليل تبحث عن الفكرة اكثر ! لذلك اشارك ب: 1. كاجابة على نص عنوان الموضوع بكيفية حماية صورة مرتبطة : نقول هنا اصبحت العملية تحت ادارة الويندوز فقد تفتح الصورة باي طريقة وعن طريق الويندوز لذلك يمكن وضع الصورة بمجلد محمي وحسب المستخدم وقد يتخاطب الاكسس مع الويندوز لاخذ صلاحيات او اعطاء صلاحيات لذلك المجلد وحسب المستخدم الداخل بالاكسس ! وهنا ممكن اشرح اكثر ولكن احتاج معرفة كيفية عمل البرنامج من ناحية تعدد المستخدمين والاجهزة ! فهل هو على جهاز واحد ام على اجهزة وهنا نود معرفة الية المشاركة هل هي على مجلد مشترك ام بتقسيم القاعدة ؟! 2. لو بعدنا عن نص عنوان الموضوع وذهبنا للهدف : فاذا الهدف هو تقليل حجم القاعدة بان لجأت الى ربط الصورة حيث تتكرر هذه الصورة في عدة تقارير ونماذج : هنا يمكن وضع الصورة في احد النماذج او التقارير ثم تكرار هذا النموذج او التقرير كنموذج فرعي مع ضبط بعض الخصائص! ملاحظة : ذكرت ابا خليل في نص المشاركة "او اقتراح اي طريقة للحماية عدا تضمين الصورة داخل قاعدة البيانات" : تضمين الملف داخل القاعدة في حقل من نوع مرفق او كائن ole لايضمن الحماية ! الا اذا كنت تقصد تضمينه داخل نموذج او تقرير ! تحياتي للجميع

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