mrnooo2000

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

استخدم هذا الكود DoCmd.Rename "NEWNAME", acTable, "OLDNAME"

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

هذا الاستعلام يقوم بتحديث بيانات الحقل degree2 بالبيانات الموجودة فى الحقل degree1 UPDATE tbl1 SET tbl1.degree2 = [tbl1].[degree1]; دائما تسبقنا أم عهود

تم التعديل على نموذج CUSTOMER1 ROSE HOTEL.rar

المشكلة فى هذا السطر أخى txtItemsName.Value = txtItemsName.Value & Me.ListBox1.Value و خصوصا فى الجزء الاخير منه Me.ListBox1.Value و للحصول على ما تريد عدله الى txtItemsName.Value = txtItemsName.Value & Me.ListBox1.ItemData(i)

لا نقول الى ما شاء الله جزاك الله خيرا أخ كمال

بعد اذن استاذتنا زهرة هذاه طريقة اخرى ضع هذا الكود فى حدث عند فقد التركيز لحقل مبلغ السداد Me.Parent.TXTQTY.SetFocus حيث أن TXTQTY هو حقل الباقى

يرجى رفع الملف بالمنتدى مباشرة لان الرابط معطوب

المرفق به مثال سريع Access.rar

أخى الدالة round ستقوم بالمطلوب بشكل أبسط و لكن سيتم التقريب و أنت طلبت عدم التقريب لذلك استخدمنا الدالة int لتعطينا الرقم الصحيح ثم جمعنا عليه الكسر المطلوب عموما مادام ذلك يناسبك فهذا الكود أفضل لاحتمال أن يكون الكسر أقل من رقمين Dim frc As Double hdd = (RHt…

أخى الكريم ما دمت تريد اجراء عمليات حسابية يفضل أن يكون نوع البيانات فى الجدول أرقام و ليس نصوص عموما جرب هذا التعديل على كود الحساب hdd = (RHt) / 45 * (Ret) Me.Correct.Text = Int(hdd) + Left(hdd - Int(hdd), 4)

تفضل أخى الكود بعد التعديل Dim strWhere As String Dim lngLen As Long If Not IsNull(Me.lakeb) Then strWhere = "[اللقب العلمي]='" & Me.lakeb & "'" End If lngLen = Len(strWhere) If lngLen <= 0 Then MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث" Else M…

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

ضع هذا الكود فى مصدر مربع النص =IIf(IsError([Customer_Deposit_History Subform].[Form]![Text22]);0;[Customer_Deposit_History Subform].[Form]![Text22])

لا يمكن تنفيذ ما تريد من خلال الجدول لكن يمكن من خلال النموذج او الاستعلام جرب هذا الاستعلام سيوفر لك ما تريد SELECT orders.ORDERID, orders.OrderDate, Format([orderdate],"yy") & " - " & Format([orderdate],"mm") & " - " & Format(DCount("ORDERID","orders","year(…

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

حتى تنفذ ذلك الامر يحتاج الى جدول منفصل للتحاليل و جدول للمرضى الاسعار.rar

تفضل اخى لكن حاول ان تقرأ فى تصميم قواعد البيانات الاسعار.rar