الفهرى

جرب ان تكون الصور فى صيغة bitmap يعنى bmp

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

الدالة get_point للحصول على الحروف المنقطة طرحاً من 50 حرف Public Function get_point(ByVal l As Integer) As String Dim i As Byte get_point = "" For i = 1 To 50 - l get_point = get_point & "." Next End Function يتم استدعاءها من الإجراء exit لعنصر النص 1.accdb

فى الإجراء DEL_Click أضف السطرين التاليين SetAttr Me.ImagePath, vbNormal Kill Me.ImagePath EMP.rar

لا علم عندى إذا كانت هناك دالة مضمنة تفعل ما تريد قمت بإنشاء دالة sub_prev لتقوم بالعمل المطلوب فى الإستعلام Q_Vehicle Recipient sub_prev.accdb

يعنى تريد نص مقابل رقم إذا كان هذا صحيحاً فالأمر بسيط جدول يحتوى على حقلين (جدول "التفقيط" مثلاً) الحقل الأول للرقم والحقل الثانى للنص أدخل الأرقام ومقابلها النصوص فى سجلات الجدول استخدم الدالة DLookup للحصول على النص المقابل للرقم فى النماذج المختلفة

السؤال هو لماذا تحتاج إلى Multiselect أن شاء الله الملف المرفق يعمل testb1.zip

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

إذا كان الأمر كما فهمت وهو أنك تريد حين الدخول باسم مستخدم أن يسجل هذا المستخدم كمدخل للبيانات فى النماذج (سجلات الجدوال) حيث تحتوى هذه الجداول على حقل لاسم للمستخدم (مدخل البيانات) إذا كان هذا هو الأمر فسأشرح لك حل لهذه الأمر كنت قد فعلته منذ بضع سنين فى برنا…

اعتقد انك تحاول ادخال رقم للدالة hex آعلى مما يمكن أن تتعامل معه. احسب ان المدى المسموح به هو 2,147,483,648- <==> 2,147,483,647

الحل بعد تنفيذ الخطوات السابقة تقرير1.rar

حاول الحل التالى يمكن ينفع.pdf

city gym 17.rar

زر واحد فقط يكفى كود فى form load Private Sub Form_Load() Command1.Caption = "المداخيل" Page2.Visible = False End Sub وكود فى command click Private Sub Command1_Click() If Command1.Caption = "المداخيل" Then Command1.Caption = "المشتريات" Page1.Visible = False …

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

هذا صعب ولن يحدث إلا فى حالة أنهما ضغطا على زر الإضافة فى نفس الوقت ولكن حتى فى هذه الحالة قد يكون هناك حل مثلاً يجب أولاً أن يكون لديك دالة تعود بالمستخدم الحالى لقاعدة البيانات ولتكن الدالة باسم current_user بعدها فى زر 1071 الخاص بالإضافة يكون كود تحديد رقم…

إذا هل تقصد بالمستخدم العميل فقد أضفت الدالة التالية إلى الوحدة النمطية back Public Function Get_last_invoice() As Long Dim dbs As Database, rst As Recordset, strsql As String Get_last_invoice = 0 Set dbs = CurrentDb strsql = " SELECT ÌÏæá1.*" strsql = strsql …

الملف مش بيفتح معايا No archives found

الملف المرفق لا يحتوى على شئ مفيد يمكن أن يساعد فى الحل كما قال الأخ superhot3000 جرب عبارة SQL فى استعلام وتأكد أنه يعمل ويمكن ادخال بيانات عليه تأكد من النموذج الذى تعمل عليه تأكد من الخصائص Lock و Allow Additions و Allow Edits

بالمناسبة لم اتمكن من تنزيل ملف المرفق من خلال Google chrome ولكن قمت بتنزيله من خلال Windows internet explorer - iexplore وكذلك الملف الذى قمت أن بإنشاءه