Eng.Qassim

او في Formt النص ضع HH:mm:ss

😂انت اليوم فايق ورايق ياعم ..انت النجم بتاعنا

اعتقد باني اجبتك عن سؤالك في مشاركتك السابقة واليك النموذج جورج الطويل.accdb

وعليكم السلام دالة التحقق من النموذج النشط Function IsFormLoaded(StrForm As String) As Boolean Dim frm As Form For Each frm In Forms If frm.Name = StrForm Then IsFormLoaded = True Exit Function End If Next End Function نعمل سبروتين لفتح التقرير حسب المعيار لديك.. نقوم باستدعائه من زر في النماذج الثلاث Sub openR() If IsFormLoaded("F_Asset_Addnew") Then DoCmd.OpenReport "Asset_AddnewR", acViewPreview, "AssetID=" & [Forms]![F_Asset_Addnew]![AssetID] ElseIf IsFormLoaded("F_Asset_Addnew_withoutfilter") Then DoCmd.OpenReport "Asset_AddnewR", acViewPreview, "AssetID=" & [Forms]![F_Asset_Addnew_withoutfilter]![AssetID] Else DoCmd.OpenReport "Asset_AddnewR", acViewPreview, "AssetID=" & [Forms]![F_Asset_Edit]![AssetID] End If End Sub لاني حاولت مع الاستعلام فلم افلح

بالتوفيق يارب

انظر للمرفق على وجه السرعة ..لاقتراب وقت اذان الفجر exemple.rar

استبدل جملة التحقق من التاريخ كما يلي: ينقصها علامتي تنصيص ElseIf IsDate("strObjectContainFieldValue") Then

النموذج لديك نموذج بحث وليس ادخال معلومات ... اعتقد انك بحاجة الى اعادة تشكيل بعض العلاقات مع T_tafdili من اجل ان يكون هذا الجدول مصدر بيانات النموذج ليتسنى لك ادخال المعلومات

اضافة لاستاذ موسى واثراء للموضوع ..يمكن استخدام الجملة التالية: LastValue :Mid([Daignosis];InStrRev([Daignosis];",")+1) وان كان هناك فراغ بين الكلمات تستخدم LastValue :Mid([Daignosis];InStrRev([Daignosis];" ")+1)

اذا كان الحقل فارغا فأن دالة Nz تعيد اليك القيمة بصفر حتى لا يحصل عندك خطأ

بالاضافة لما تفضل به اخي ناقل تستطيع ان تضع الكود التالي في حدث الحالي او بعد تحديث الكمية Private Sub Form_Current() If Me.Text1 <= 10 Then Me.Text1.BackColor = vbRed End If End Sub

جرب الكود التالي..ضعه بعد تحديث اسم الاب .. واضف الى المعايير ماشئت ..وعند تكرار الاسم سوف يعيدك لصفحة الشخص Private Sub father_AfterUpdate() Dim stLinkCriteria As String Dim custNo As Integer stLinkCriteria = "[namee] = '" & Me.namee & "' and [family] = '" & Me.family & "' And [father] = '" & Me.father & "'" If Me.namee = DLookup("[namee]", "T_takrir", stLinkCriteria) Then MsgBox "هذا الاسم: " & namee & " " & family & " " & father & ", موجود مسبقا في قاعدة البيانات." & _ vbCr & vbCr & "الرجاء التاكد من الاسم", vbInformation, "معلومات مكررة" Me.Undo custNo = DLookup("[id_n]", "T_takrir", stLinkCriteria) Me.DataEntry = False DoCmd.FindRecord custNo, , , , , acCurrent End If End Sub

قصدت ان الرقم والتاريخ والنص جميعها في نفس النموذج

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

جرب المرفق اليك طريقتان في form1 &form2 invoice2.accdb

هذا الموضوع ربما يفيدك ..وهناك الكثير من المشاركات في الموقع

جرب الجملة التالية ..فقط قم بتغيير 'b' بالعبارة لديك لانها غير مفهومة Forms!MainScreen!lstLastTrans.RowSource = "SELECT TransactionsT.TransID, TransactionsT.idEmp, TransactionsT.TransSubject, TransactionsT.TransCreatedOn, TransactionsT.TransToDept, TransactionsT.TransStatus, TransactionsT.TransType, TransactionsT.TransTitle, DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) AS TransCreatedOn1 " & vbCrLf & _ "FROM TransactionsT " & vbCrLf & _ "WHERE (((TransactionsT.TransSubject) Is Not Null) AND ((TransactionsT.TransStatus) Not Like 'b') AND ((TransactionsT.TransType) Is Not Null) AND ((TransactionsT.TransTitle) Is Not Null)) " & vbCrLf & _ "ORDER BY DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) DESC;"

نسأل الله سبحانه وتعالى ان يديم عليك نعمة الايمان والعلم

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

فاتورة الارجاع تشبه فاتورة المشتريات .. بمعنى انك ستظيف مواد للمخزن ودفع مبالغها من الرصيد لديك

المستخدم لايحتاج ان يكون الباسوورد له على شكل نجوم ونموذج اكسس الخاص بالادخال لا اعتقد بامكانية التحكم به ..الا اذا عملت نموذج خاص بك

اليك اخفاء شريط الادوات ورسالة التاكيد للحذف DeleteWithPassword.accdb

اجماليات المبالغ يتم تحديثها بمجرد الانتقال لسجل جديد داخل النموذج الفرعي او عند الضغط على زر حفظ او يمكن التحديث بعد اختيار نوع العملة Private Sub نوع_العملة_Click() Forms![Invoice]![D22].Requery Forms![Invoice]![D11].Requery End Sub

استخدم كود استاذ ازهر علما ان كل الاكواد ليس يها مشكلة

ضع الكود في زر الحفظ DoCmd.GoToRecord , , acNewRec