jjafferr

انا اعطيتك الجواب لما كتبت لك المشكلة:

هذا لا علاقه له بسرعة فتح النموذج. تعديل: نعم هذا ليس له علاقة بسرعة فتح النموذج ، ولكني لما عملت تغيير الجدولة ، رأيت ان اول حقل يحصل على التركيز هو الحقل Li ، واذا لاحظت ان الاعدادات فيه تختلف عن بقية الحقول التي في النموذج.

الاكسس عندي بالانجليزي ، فما اعرف جميع المصطلحات العربية هذا لا علاقه له بسرعة فتح النموذج. قم بتغيير جميع الاعدادات في المربع الاحمر الى System للحقل nname و الحقل idd ، فبعض الكمبيوترات التي الاكسس غير مُحدّث تواجه بطئ شديد في التنقل بين الحقول اذا كانت الاعدادات كما هي في برنامجك . جعفر

شو قصدك بهذه العبارة؟

لوسمحت تشوف هذا الموضوع ، فقد يكون فيه الحل: جعفر يا جماعة ، شوفوا الرابط الثاني ، المخصص لفتح ملفات pdf : جعفر

اضف السطر باللون الاحمر لإظهاره Private Sub Form_Current() On Error GoTo err_Form_Current 'On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] Me.ImagePath.Visible = true Exit Sub err_Form_Current:  If Err.Number = 2220 Or Err.Number = 13 Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub اما اذا لم تريد اظهاره ابدا ، فقم بحذف جميع الاسطر التي بها هكذا كود: Me.ImagePath.Visible جعفر

السلام عليكم وهذه طريقة اخرى جعفر

وانا كذلك اتفق مع اخي الاستاذ شفان اذا كان كُلٌ ولابد ، اعمل قاعدة بيانات جديدة ، استورد اليها كائنات البرنامج القديم ، ثم اعمل جعفر

هذا صحيح ، وبدقة اكثر ، اعدادات Unicode ، وهذا السبب وهذه طريقة الحل جعفر

السلام عليكم الظاهر من الصورة ان الكائن اللي تظهر فيه صفحة الانترنت يستخدم عنصر nitro ، والذي يجب تنصيبه على كل كمبيوتر تريد استعمال النموذج فيه ، انظر في المثال المرفق ، فهنا تستطيع التصفح بعنصر IE الموجود اصلا في كل كمبيوتر . وهذا مثال اشمل جعفر

السلام عليكم اجريت بعض التعديلات على الكود ، فرجاء حذف الكود القديم واستعمال هذا الكود Private Sub cmdAdd_Click() Dim strFilter As String Dim lngflags As Long Dim varFileName As Variant ' strFilter = "All Files (*.*)" & vbNullChar & "*.*" _ ' & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*" strFilter = "jpg" & vbNullChar & "*.jpg" _ & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*" lngflags = tscFNPathMustExist Or tscFNFileMustExist _ Or tscFNHideReadOnly varFileName = tsGetFileFromUser( _ fOpenFile:=True, _ strFilter:=strFilter, _ rlngflags:=lngflags, _ strDialogTitle:=" الرجاء اختيار ملف ") If IsNull(varFileName) Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else Me![ImagePath] = varFileName Me.ImagePath.Visible = True Me.ImageFrame.Visible = True Me.ImageFrame.Picture = Me.ImagePath End If cmdAdd_End: On Error GoTo 0 Exit Sub cmdAdd_Err: Beep MsgBox Err.Description, , "Error: " & Err.Number _ & " in file" Resume cmdAdd_End DoCmd.Requery End Sub Private Sub Form_AfterUpdate() On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] End Sub Private Sub Form_Current() On Error GoTo err_Form_Current 'On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] Exit Sub err_Form_Current: If Err.Number = 2220 Or Err.Number = 13 Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 968.AddPhoto.mdb.zip

وعليكم السلام في هذه الاله نريد ان يصفي التقرير البيانات بنفس الحقل/المعيار الذي قام به في النموذج ، 1. يمكنك استخدام هذه الطريقه (طبعا مع مراعاة تغيير الاسماء والمعيار) : DoCmd.OpenReport "rptDiscount", acPreview, , "[transfer] = 'مكتب4'" او يمكنك جعل الاستعلام هو مصدر بيانات التقرير ، وتضع المعيار في الاستعلام ، فتحصل على البيانات جاهزة في التقرير جعفر

وعليكم السلام قد يفيدك المثال هنا جعفر

وعليكم السلام الطريقة اللي تشتغل لكل الاحتمالات هي: Main Form Name = اسم النموذج الرئيسي Sub Form Name = اسم النموذج الفرعي Control Name = اسم الكائن في النموذج اذا كان في النموذج الرئيسي Forms![Main Form Name].setfocus Forms![Main Form Name]![Control Name].setfocus اذا كان في النموذج الفرعي Forms![Main Form Name].setfocus Forms![Main Form Name]![Sub Form Name].setfocus Forms![Main Form Name]![Sub Form Name]![Control Name].setfocus جعفر

وعليكم السلام السؤال ابدا غير واضح ، لذا رجاء اخبارنا بالتفصيل عن الخطوات التي تقوم بها ، وما الذي تريد المساعدة فيه ، يا حبذا ارفاق هذه الجزئية من البرنامج ، واعطاء مثالك من بيانات البرنامج. جعفر

وعليكم السلام اخي حسام ، هذا ثالث موضوع لك عن نفس السؤال ، وثاني موضوع مخالف في اسم العنوان ، وبهذه الطريقة انت تخالف قوانين المنتدى بوضع نفس السؤال في اكثر من موضوع!! ولقد تمت الاجابة على هذا السؤال في 30/8 ، وهو لايزال مفتوح للمناقشة ، ويمكنك وضع اي استفسارات اضافية فيه: . وقد تم اغلاق الموضوع التالي لأنه مخالف: . عنوان هذا الموضوع مخالف ، والموضوع نفسه مكرر ، يُغلق. جعفر

يُحول الى منتدى إعلانات شخصية للاعضاء جعفر

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

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

اخي ابو عبدالله انا هنا اطلب من الجميع ، واتحدى ان يستطيع احد ان يرفق برنامج اكسس لا نستطيع اختراقه. ولكن ليس معنى هذا انه لا توجد ملايين البرامج المعموله بالاكسس ، ومافي مشكله بين المبرمج والزبائن ، والحماية الموجودة فيها ، هي نفسها اللي اخبرتك عنها الحرامي اللي يريد يسرق ، سوف يسرق ، بغض النظر عن توع الحماية اللي تضعها في برنامجك. جعفر

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

وعليكم السلام جرب طريقتي جعفر

السلام عليكم موقع البرنامج https://www.royal-technical.com/2018/03/psr-100.html وصفحة النسخة الخامسة https://www.royal-technical.com/2018/04/pos-program-psrsystem.html رابط كامل تحميل الحزمة الاخيرة للاصدار الخامس اخر تحديث+متطلبات التشغيل http://www.mediafire.com/file/v8pgaidu433s74n/بر+نامج+نقاط+بيع+متكامل+مجانا+PSR+System.rar ولكن ، صحيح ان برنامج حفظ البيانات هو اكسس ، ولكن البرنامج ليس معمول على اكسس ، لذلك ، ولأننا في منتدى الاكسس ، يجب ان ننقل هذا الموضوع الى إعلانات شخصية للاعضاء ، مع ترك رابطه في منتدى الاكسس جعفر

لازم نعمل حقل في جدول الفواتير (يكون مثلا نعم/لا ، وليكن اسمه Printed) والقيمة الافتراضية تكون 0 (لا) ، وعلى زر طباعة الفاتورة ، يكون عندك كود شبيه بهذا: if me.dirty then me.dirty=false if me.printed=-1 then msgbox "تمت الطباعة سابقا" else 'اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden DoCmd.PrintOut , , , , 3 DoCmd.close acReport, "Report Name" me.printed=-1 end if وكذلك يمكنك في حدث "الحالي" للنموذج ان تختبر قيمة Printed ، فاذا كانت -1 تعمل لزر الطباعة: if me.printed=-1 then me.cmd_Print.enabled=false else me.cmd_Print.enabled=true end if جعفر