• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ramhan

اعضاء
  • عدد المشاركات

    158
  • تاريخ الانضمام

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

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

25 عادي

1 متابع

عن ramhan

  • الرتبة
    عضو
  • تاريخ الميلاد 07/01/1976

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : السعودية - الرياض
  • اهتمامات محلل نظم خبير
    خبير نظم ERP
    مستشار أعمال
    للتواصل
    [email protected]l.com

أحدث الزائرين لملفلك الشخصي

1,073 زياره للملف الشخصي
  1. اعتقد المشكله في وجود لون بديل في خاصية لون بديل في خصائص التفصيل قم بوضع الخاصيه= no color مع ان الموضوع قديم ولكن حبيت الايضاح ولعله الحل مع الشكر لصاحبة الحل  تحياتي
  2. تعديل على كود

    اخي الفاضل مارايك ان تستبدل الكود بالتالي فهو يمر على كل العناصر من نوع الخيار وياخذ العنوان وطبعا بشرط ان الخيار مفعلا Private Sub tar_GotFocus() For Each ct In Me.Section(0).Controls If ct.ControlType = acCheckBox Then If ct = -1 Then xt = xt & ct.Controls(0).Caption & " * " End If Next tar = xt End Sub بالتوفيق
  3. اعزائي اصحاب الصلاحية بالمنتدى الموقر اودتعديل اسم الدخول او الظهور الى رمهان ولكم جزيل الشكر
  4. تقضل ولعله ماتريد Private Sub Command316_Click() DoCmd.GoToRecord , , acFirst Me.Painting = False For i = 1 To Me.RecordsetClone.RecordCount - 1 Me.Abs = 0: Me.Abs_N = 0 DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst Me.Painting = True End Sub   وهذا كود اخر وبجملة ال sql Private Sub Command316_Click() DoCmd.SetWarnings False DoCmd.RunSQL "update MP_Que set [abs]=0,[abs_n]=0 where monthes=" & TempVars(0) DoCmd.SetWarnings False Me.Requery End Sub وهناك ملاحظة بتسمية العمود abs  حيث محجوز ولاسم دالة   بالتوفيق
  5. العفو اخي انا تركت الدوت نت من زمان وتفرغت لتحليل النظم لكن اعتقد ان الكائن كوماند بيطلب الكونكشن معاه ! اي جملة الاسكيو ال والاتصال مطلب له ! فانت عرفت الاسكيو ال ولم تعرف الاتصال !  اعتقد الكود بهذا الشكل con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\access\data1\data1.accdb;jet oledb:database password = syriainmyheart;" con.Open() Dim cmd As New OleDbCommand("insert into tblbill (donor, note) values ('" + TextBox2.Text + "', '" + TextBox3.Text + "')",con) cmd.ExecuteNonQuery() con.Close() Me.TextBox1.Text = Val(Me.TextBox1.Text) + 1 Me.TextBox2.Text = String.Empty Me.TextBox3.Text = String.Empty هذا والله اعلم
  6. اخي عبدالله مررت بالصدفة هنا اعتقد ان الخطأ هو وجود مسافة بعد الفاصة للباراميتر الثاني في جملة insert "', '" + TextBox3.Text لتصبح "','" + TextBox3.Text بالتوفيق
  7. عزيزي تفضل مع ملاحظة إضافة مرجع لمكتبة الاكسل من خلال محرر الاكواد >> أدوات >> مراجع وحسب اصدار الاوفيس لديك   Microsoft Excel xx.x Object Library وكذلك ملاحظة تغيير المسار الملف الصحيح Private Sub أمر1_Click()Dim xl As Excel.ApplicationDim xlwb As Excel.WorkbookSet xl = New Excel.ApplicationSet xlwb = xl.Workbooks.Open("C:\Users\Mohammed\Desktop\mm.xlsx") MsgBox (xlwb.Worksheets.Count)xlwb.Closexl.QuitSet xlwb = NothingSet xl = NothingEnd Subبالتوفيق
  8. اخي الكريم اذهب فقط الى خصائص  not  وفي خاصية القيمة الافتراضية الصق التالي =[Forms]![yomm1]![not]بالتوفيق
  9. اسمحو لي بالمشاركة معكم هنا ولكن بنقاط 1. انا لست مع من يكثر السؤال عن اخت أعطت من وقتها الكثير فمن ابسط حقوقها استثمار وقتها بما تراه مناسبا لها . طبعا المنطقي هو السؤال للاطمئنان فقط انها بخير فقط وغير ذلك فهو غير منطقي ! والا احنا قاعدين نشوف مصلحتنا بس ! 2 . من اتعب ذهنه يفكر ما سبب غيابها ثم يخرج بنتيجة توقع ان السبب خلاف مع الإدارة او غير ذلك : بالله اين المصلحة هنا او الفائدة هنا سواء عرفت انها مشكلة مع الإدارة او غيره وهذا مستبعد ! 3 . من يبحث عن المشرفين ويقول اين انتم : يا اخي المشرف هو شخص لا يرتبط باي شخص اخر بعلاقة الا من خلال الكتابة في المنتدى وخاصة ان كان الطرف الاخر انثى فيندر معرفة الاتصال المباشر . اقصد قد يكون المشرف مثلك يسأل عن الاستاذه القديرة للاطمئنان فقط ومش قادر يوصل لها . انا شخصيا وفي احد المشاركات في البداية طلبت ايميل لها فاعتذرت ! 4. أتوقع انه لم يعد هناك استفسار الا وقد تم تغطيته من خلال كتاباتها على مدى فترة ليست بالقصيرة فما على الشخص السائل الا البحث فقط . وكم راينا من مواضيع مكررة ومتشابهة ! 5 . يجب ان نعلم انه كم من خبير ومشرف هنا لم يعد لهم تواصل الان هنا كذلك ! وهذا حال أي منتدى والامر طبيعي !   وأخيرا : دعاؤكم لها وبظهر الغيب وبنية صادقة خير والف خير من سؤالك عنها ! ونصيحتي لكل الأعضاء : ان لا نجعل المنتديات هي مصدر التعلم بل الكتب أولا والتطبيق العملي ولا الجا للمنتدى الا بسؤال يستحق ان يطرح . بينما نجد الأعضاء يطرح كل ما يعمله في برنامج كسؤال هنا بداية من انشاء الجدول حتى انهاء البرنامج وهذا خطأ كبير في حقك انت أولا حيث لن تتعلم بالشكل المطلوب وفي حق المنتدى حيث ضياع الوقت والملل .   تحياتي للجميع
  10. معليش اسمحو لي بالتطفل هنا   بالنسبة لك يا اخ يوم في حياتي اسمح لي ان أقول : انك بمناقشتك اضفت لبرنامج الأخ tbazh أفكار جيدة ملامسة للواقع والتي كان يفتقدها نظامه والذي على ما اضن انه يملكه من زمان ولكن لم ينزل النظام كليا مرة واحدة . بل يقوم باستيراد الكائنات والتعديل البسيط ومن ثم رفعها . عالعموم يبقى مشكورا هنا . وعلى قوله انك لم تشكره بعد الله فلاحظ مناقشتي معه هنا http://arabteam2000-forum.com/index.php/topic/294593-توزيع-الحقول-بما-يشبه-المربع-السحري/ وكيف كان الأسلوب حيث عندما اساله استفسارا يكابر ويفتح نقاطا جديدة ولو كان يجاوب على قد الاستفسار لما طال النقاش بل لاحظ انه طنش اخر مشاركة  ولم يرجع !   بالتوفيق للجميع
  11. مطلوب كود لفتح اوت لوك مباشره

    اهلا بك اخي للتشغيل Shell "outlook.exe"للإغلاق Set obj = GetObject(, "Outlook.Application")obj.Application.Quitوبالنسبة للاغلاق بعد فترة معينة أتوقع انها مش صعبة عليك اخي سلمان . نفس الكود السابق للاغلاق تضعه داخل تايمر بالنموذج ثم اغلاق التايمر . وكذلك يمكنك عمل تحسينات مثل التأكد من ان البرنامج شغال قبل اغلاقه   بالتوفيق
  12. الأخ خضر:   لم احكم بشي وعلى احد !   ولكن اطلعت على مرفقك ووجدت انك عامل عناصر ومخفيها وعامل عمود من نوع ole ! المهم انا لدي خلفية بسيطة في الاكسس واخذت وقت علشان افهم السيناريو المتبع !   فبالله عليك كيف تريد اخت سائلة مبتدئة في الاكسس ان تفهم السيناريو مباشرة ! بدون شرح ! او العودة لك !!   انا اريد ان اضع طريقة سهلة مفهومة !       اختي الفاضلة :   نفترض ان قاعدة البيانات والصور في مجلد واحد . ونفترض كما قلتي ان اسم الصورة هي رقم الموظف وكما قال الأخ yms12  ولكن بدون حفظ المسار لان المسار اصبح نفس مسار قاعدة البيانات .   المهم : بعد الافتراضات السابقة ما عليك الا سحب مربع صورة من شريط الأدوات على النموذج وعند فتح مربع الحوار لاضافة صورة اختر الغاء ...  ثم الذهاب لخصائص مربع الصورة ومن خاصية مصدر عنصر التحكم اكتب الصق التعبير التالي :       =[currentproject].[path] & "\" & [emp_no] & ".JPG"       طبعا على افتراض ان اسم العنصر لرقم الموظف على النموذج هو emp_no   وكذلك الانتباه الى نوع امتداد الصورة       بالتوفيق    
  13. يبدو انك محضوض اخي الكريم !!!   حيث تفاعل الأعضاء بالمشاركة!!!!!!   انا مع فكرة الأخ yms12 . ارفقي مرفقا اختي الكريمة به جدول الموظفين ونموذجه وبدون بيانات ليتم تطبيق افضل الطرق واسهلها .   بالتوفيق
  14. ضع الكود التالي عند حدث عند الفتح للنموذج : If Me.RecordsetClone.RecordCount = 0 Then Cancel = -1بالتوفيق
  15. كفيت ووفيت أستاذ يوسف ! انا كنت اريد المرفق للتطبيق عليه لانه الأخ كافي مستخدم دالة البحث لعرض الملاحظات وكما هو بالكود بأول المشاركة . ولكن طلتك وكاحد المشرفين هنا هي باعث لروح الحياة في هذا المنتدى العريق وخاصة ان هناك مشاركات سهلة جدا ولكن بدون ردود عليها !   تحياتي