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

Shivan Rekany

عضو محترف
  • Content count

    1,403
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    40

Shivan Rekany last won the day on March 28

Shivan Rekany had the most liked content!

السمعه بالموقع

771 Excellent

عن العضو Shivan Rekany

  • الرتبه
    شفان ريكاني

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    كوردستان

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • Yahoo
    shivan_rekany212@yahoo.com

اخر الزوار

1,738 زياره للملف الشخصي
  1. عندي انتظرني سارفق قاعده‌ لكي يعطي كلا من سريال نمبر للمعالج ولوحه‌ الام
  2. نعم اخي واعتذر منك بشدة لاني ما فهمت قصدك بالضبط غدا ان شاء الله راح اعطيك الكود ارسال التقرير الى ايميل انتظرني غدا تحياتي
  3. الان وقت النوم غدا راح اشوف لاني عندي دوام وغدا ساتابع ان شاء الله اکید عندک شی ماعندنا کل مرة عندك حل اضافي
  4. استخدم هذا الكود Dim stDocName As String Dim TheFile As String TheFile = "D:\" ' اكتب المكان اللي تريد ان يحفظ فيه stDocName = "X" 'هو اسم التقريرك DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, TheFile & stDocName & ".pdf", False او هذا DoCmd.OutputTo acOutputReport, "X", acFormatPDF, "D:\" & "X" & ".pdf", False للعلم كلا من الكودين يحفظ التقرير باسم ئيكس في قرص دي باسم التقرير اي باسم ئيكس تحياتي
  5. اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي
  6. الله یجزیک كل خير اخي واستاذي رمهان انا مش مستحق لذلك وشكرا لك على كلامك تحياتي
  7. ما عليك الا خطوات التالية 1 : حدد جميع مربعات النصية 2: اختر قائمة Arrange 3: اختر Tabular وشوف النتيجه‌ تحياتي
  8. اهلا بك احنا في الخدمه‌ ان شاء الله بقدر مستطاعنا راح نساعد من يحتاج اليك الف تحية وجزاك الله كل خير
  9. فقط اضيف على كودك عند اوبديت اي عند اختيار احد من الجوابات Me.TimerInterval = 0 يعني الكود سيكون كالاتي Private Sub Frame3_AfterUpdate() Dim MyAnswer As String MyAnswer = MsgBox("هل انت متأكد من اجابتك" & vbNewLine & "Are you sure from your answer?", vbYesNo, "تأكيد") If MyAnswer = vbYes Then Call Submit Me.MyAnswers.Visible = True Me.L1.Visible = True Me.TimerInterval = 0 Else Cancel = True End If End Sub تحياتي
  10. بيقولون فهم السؤال نصف الجواب لذا اريد نعرف المزيد قلت اذا ولي امر عنده 3 ابمناء ومجموع المصروفات بيكون 13745 تمام هل تريد اذا اضاف سجل جديد اي سجل سجل جديد لاين اخر اي ابن الرابع ام اي ؟ فهمنا بالضبط واعطينا مثال توضيحي على ذلك بالارقام مثلا 2 + 3 نريد بيكون 7 مثلا
  11. هل تريد ان ترسل الفاتورة بصيغة pdf هل انا فهمتك بصحيح ؟
  12. اخي العزيز اذا ترفق قاعدة بيانات صغيرة الحجم وبه بيانات قليلة الجماعة راح يساعدك اكثر لانه سيفهم منك اكثر ما تريد تحياتي
  13. اتفضل استخدم هذا الكود قبل التحديث او عند هخروج من المربع النصي Private Sub Text0_BeforeUpdate(Cancel As Integer) If Len(Text0) <> 5 Then MsgBox "يجب ان تكتب خمسة ارقام فقط لا اقل ولا اكثر" Cancel = -1 End If End Sub غير تيكست 0 ب اسم مربع نصي عندك تحياتي
  14. هل تريد هكذا اتفضل تلوين السجلات.rar
  15. شكرا لك على مساعدتك وماكان عندي لابتوب لكي اعمله المطلوب مره‌ اخرى شكرا لك