Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Shivan Rekany

Expert
  • Content Count

    3,441
  • Joined

  • Last visited

  • Days Won

    151

Shivan Rekany last won the day on April 16

Shivan Rekany had the most liked content!

Community Reputation

3,047 Excellent

About Shivan Rekany

  • Rank
    شفان ريكاني
  • Birthday 12/02/1988

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    عراق / كوردستان / دهوك
  • Interests
    ادارة / برمجة

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com
  • Jabber
    shivanrekany212@mail.ru‎‏

Recent Profile Visitors

  1. اتفضل اليك ما طلبت القي نظرتا الى الصورة واليك المرفق بعد تعديل تقسيم الاسم الرباعي.mdb شفان
  2. السلام علیکم ورحمة الله وبركاته اخي الحبیب لا یمكن اضافة حقل خانة الاختیاریة في الاستعلام بدون اضافة الحقل في الجدول شفان
  3. شکرا لک في الحقيقة انا ما نظرت النتيجة هكذا تخياتي
  4. اتفضل اليك ما طلبت القي نظرتا الى صورة واليك الملف بعد اضافة تقرير hatem (1).accdb
  5. السلام عليكم ورحمة الله في قاعدة بياناتك ليس فيها معلومات كافية للعمل التقرير المطلوب اي ليس فيها حقل للبيان الجنسية
  6. مشاركة مع اصدقائي لكي يظهر كل السجلات فقط قم بتغير نوع العلاقة بين استعلامين كما مبينة في الصورة شوف النتيجة واليك مرفقك بعد تعديل علاقة TEST.accdb
  7. مبروك اخي @husamwahab اتمنى لك النجاح في كل امورك كن مستمر في طريقك طريق النجاح تحياتي
  8. عليكم السلام ورحمة الله وبركاته في مرة السابقة ايضا كان مشكلتك نفس المشكلة خلي توضح لك لكي تستفيد اكثر القي نظرتا الى هذه الصورة هناك حقل باسم bi لكن مصدره هو حقل user1 وفي مصدر التقرير والنموذج الغياب هناك شرط فيه وهو يجب ان يكون حقل bi يساوي بحقل bi في جدول الملفات1 اي يجب ان يكون مصدر حقل bi في جدول ملفات1 يكون حقل bi نفسه لذلك انا قمت بتسمية مربع bi الى user1 ومن جديد اضفت حقل bi في نموذج اتفضل اليك قاعدتك بعد تعديل ملفات.rar
  9. القاعدە المرفقة بها كومبوبوكس واحد اذا تبحث في الموقع ستجد كثير من الموضوعات على هذا ومنها
  10. السلام عليكم ورحمة الله وبركاته اخي نحن هنا لا نعمل لكي نضرر اخواننا القاعدة اللي ارفقته عنده صاحب اي احد من المبرمجين تعب به حتى عمله تقدر ان تتصل به وتتعامل معه وعلى رغم هذا هناك شيء اخر وهو ان تم تحويل القاعدة الى نوع mde ولا يمكن ان تفتحه في وضع التصميم لكي ترى الاكواد مع تحياتي
  11. اتفضل اليك هذا الكود Public Sub Terminate(Process As String, Optional PID As Long = 0) StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "") Set Obj = GetObject("winmgmts:\\.\root\CIMV2") Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48) For Each Obj In ColItems Obj.Terminate Next End Sub تقدر ان تغلق كل انواع البرامج بهذه الطريقة فقط عليك ان تكتب اسم البرامج عند تدعيه مثلا هنا نريد ان نغلق ملفات اكسل المفتوحة هكذا سنستدعيه عند الضغط على الزر Private Sub Command28_Click() Call Termin
  12. ،عم استخدم هذا الكود Private Sub AGE_AfterUpdate() If Not IsNull(Me.Age.Value) Then Me.DOB.Value = DateSerial(Year(Me.dDate) - Me.Age.Value, 1, 1) End If End Sub 2020 (1).rar
  13. اليك طريقتين لكن في البداية القي نظرتا الى خصائص كومبوبوكس قي هذه الصورة اذا تريد ان يكتب فيه ولا يقبل شيء احد غير اللي في مصدره استخدم هذا الكود معه Private Sub green_NotInList(NewData As String, Response As Integer) Response = Cancel End Sub لكن اذا تريد ان لا يكتب فيه حرف واحد فقط يجوز ان تختار استخدم هذا الكود معه Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub واليك المرفق بها كلا من طريقتين db1.mdb
  14. اتفضل القي نظرتا الى هذه الصورة اولا يجب ان تعرف كود اللون بصيغة RGB لكن ستسأل كيف ستعرفه اضغط بكليك على ثلاث نقاط الصغيرة لمربع Back Color سيفتح ذاك النافذة الاعلاه واختر اي لون سيظهر لكن كوده في الاسفل مثلا اللون 00B7EF# اللي حضرتك يريد شوف في الصورة كوده هو ( 0 و 183 و 239 ) وبعدين راح تستخدم ذاك الكود في النموذج هكذا Me.bb.BackColor = RGB(0,183,239)
  15. اتفضل اليك هذا فانكشن والكود Option Compare Database Function MyYearTxt(YY As Integer) Select Case YY Case Is = 1: MyYearTxt = "الاول" Case Is = 2: MyYearTxt = "الثاني" Case Is = 3: MyYearTxt = "الثالث" Case Is = 4: MyYearTxt = "الرابع" Case Is = 5: MyYearTxt = "الخامس" Case Is = 6: MyYearTxt = "السادس" Case Is = 7: MyYearTxt = "السابع" Case Is = 8: MyYearTxt = "الثامن" Case Is = 9: MyYearTxt = "التاسع" Case Is = 10: MyYearTxt = "العاشر" Case Is = 11: MyYearTxt = "احدى عشر" Case Is = 12: MyYearTxt = "اثنى عشر" Case Is = 13: MyYearTxt = "
×
×
  • Create New...