mrnooo2000

اليك اخى طريقة أخرى db1.rar

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

أخى الكريم أولا أنا لست معك فى وضع ذلك الحقل فى الجدول لأنك تعرف أكثر منى أنه حقل محسوب و الافضل له أن يكون من خلال استعلام ثانيا اليك الاستعلام الذى طلبته UPDATE Bills SET Bills.TotBill = DSum("SubTot","SubBills","NoBill=" & [NoBill]); اسف أخى tbazh لانى لم أ…

تفضل اخى هذا الكود يؤدى ما تريد Dim str_folder As String str_folder = CurrentProject.Path & "\fails\" & Format(Me.num, "0000000") ' folder to open If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If Call Shell("explorer.exe " & str_folder, …

تفضل اخى db1.rar

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

تفضل أخى جمع و طرح 3.rar

أخى لا افهم ما الذى تريده بالضبط أرجو التوضيح

تفضل أخى SALMAN.rar

اليك اخى التعديل المطلوب If Val(Format(Me.Age, "yy")) >= 50 Or Val(Format(Me.Emp_Space, "yy")) >= 10 Then Me.txt = 24 End If

تفضل اخى الكود موجود فى النموذج xcluded.rar

تفضل أخى هذا الكود يؤدى ما تريد Option Compare Database Option Explicit '----------------------------------------------------------------------------- ' Enums to easily refer to the correct color scheme. '-------------------------------------------------------…

ضع هذا الكود فى حدث فى الحالى للنموذج If DateDiff("yyyy", Me.Emp_BirthDate, Date) >= 50 Or DateDiff("yyyy", Me.Appointment_dt, Date) >= 10 Then Me.txt = 24 End If حيث اسم مربع النص المطلوب عرض الايام به هو txt او غيره بالكود الى ما تريد

الافضل اعادة تثبيت الاوفيس أخى

تفضل أخى Dim rst As Recordset, c, i, y As Integer Set rst = CurrentDb.OpenRecordset("Emploees") c = rst.RecordCount rst.MoveFirst For i = 1 To c Select Case DateDiff("yyyy", rst!birth, Date) Case Is >= 50 y = 45 Case Else Select Case DateDiff("yyyy", rst!date1…

اليك اخى ما تريد بقدر ما فهمت من شرحك ستخد التعديل بالاستعلام الثانى qq exp.rar

نفس الشىء اربط الجداول بأى من قواعد البيانات

اخى اعلم كل ما شرحته بالتأكيد لكن ما طلبته هو مثال لعدد الساعات التى يظهر عندها الخطأ

اضغط بزر الفأرة الايمن ثم اختار طباعة

أخى اولا autoexac هو اسم الماكرو و ليس الامر الامر هو open form ثانيا اليك الطريقة الاسهل هذه هى الخطوات ( بالانجليزية ) و ستجدها فى الصور 1. Click the Microsoft Office Button (upper left corner) 2. Click the Access Options button in the bottom right corner of…