اذهب الي المحتوي
أوفيسنا

رمهان

الخبراء
  • Posts

    2,390
  • تاريخ الانضمام

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

  • Days Won

    24

Community Answers

  1. رمهان's post in تصفية البيانات بأول حرف فقط was marked as the answer   
    فكرة
     
    test140_up.rar
  2. رمهان's post in التصفية عند الكتابة was marked as the answer   
  3. رمهان's post in تعديل علي كود was marked as the answer   
    مشاركه مع احبتي وعذرا اكتب من الجوال
    مع العلم ان سؤالك فيه لبس شويه
    انت تقول اول ثلاث ارقام تساوي ٧ وهذا متناقض حسب فهمي تقول اول ثلاث ارقام تساوي ٧٧٧
    وهنا استخدم نفس تعبيرك وباستخدام الداله لفت وبعدد ٣ للباراميتر
    If Left(Me.serh_Barcod, 3 )= 777 Then وقد تحتاج لوضع الرقم ٧٧٧ في علامة تنصيص كنص
    بالتوفيق
  4. رمهان's post in تصفيه او فلتره نموذج حسب مربع الاوبشن جروب was marked as the answer   
    مرحبا اخ حلبي
    هذه مشاركة ولو تحذف القيمة الافتراضية للخيار افضل
    Private Sub Fram_AfterUpdate() DoCmd.ApplyFilter , "MOVTYP='" & Choose(Fram, "مشتريات", "مرتجعات") & "'" End Sub بالتوفيق
  5. رمهان's post in تحديث بيانات حقل لعدد معين من السجلات was marked as the answer   
    مشاركة مع الاستاذ محمد
    تفضل : اختار الكورس ثم اختار عدد السجلات ثم انقر "ابدأ"
    بالتوفيق
    DATA_BASE.accdb
  6. رمهان's post in توزيع الخصم العام على الاصناف في الفاتورة was marked as the answer   
    @ابوآمنة
    الصق هذه الجملة في استعلام جديد
    SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1 FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo; بالتوفيق
  7. رمهان's post in فتح قاعدة بيانات بواسطة اكسس 64 بت was marked as the answer   
    شغاله تمام في ما يخص الاصدار 64
    لو سمحت روح لاي صفحة بالاكواد واعمل كمبايل من debug وشوف الاخطاء هناك عناصر تحتاج تعديلات
    قد تكون المشكلة لدى صديقك هو تعريف اللغة العربية
    وهنا الطريقة
    https://www.officena.net/ib/topic/87478-حل-مشكلة-الترميز-في-الاكسل/
    بالتوفيق
  8. رمهان's post in دوال api والتي تبدا ب declare function تعديلها الى declare ptrsafe function was marked as the answer   
    السؤال الان :
    هل لديك دوال api  في وحدات نمطية عامة ؟
    الصقها هنا للتعديل
    وعلى العموم اذا كان لديك دوال تبدا كالتالي
    private declare function
    عدلها ب
    private declare ptrsafe function
    وهذا رابط للفائده
    https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/
    بالتوفيق
  9. رمهان's post in توليد تواريخ بين فترتين ليومي الخميس والجمعة لمدة سنة was marked as the answer   
    جرب ياغالي
     
    saleh2.accdb
  10. رمهان's post in محتاج كود للذهاب الى سجل معين was marked as the answer   
    جزيت خيرا اخينا ابو زاهر
    اخي السائل
    انا فكرت خارج الصندوق واعطيك فكرة سهلة
    هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب
    Private Sub Text21_AfterUpdate() DoCmd.GoToRecord , , acGoTo, Month(Text21) Me.DateMTarget_Subform.SetFocus DoCmd.GoToRecord , , acGoTo, Day(Text21) End Sub جرب وان شاء الله تمام
  11. رمهان's post in نقاش حول تشغيل أكسس على أندرويد was marked as the answer   
    اهلا اخ عمرو
    دائما لابد ان نعرف ان كل منتج صمم لاهداف محددة ومعروف من هم عملائه
    الاندرويد صمم لاهداف ومنها ان يعمل على اجهزة الهاتف وهنا صمم البرنامج لاهداف والجهاز نفسه لاهداف
    والاكسس كذلك لاهداف
    فالاكسس قادة بيانات بمعنى معالجة اليانات مطلب ومشاركة البيانات مطلب وغيرها من التقارير وغيره
    السؤال الذي المفروض ان يظهر الان : لماذا الاكسس مش مضمن يعمل على اجهزة الهاتف التي تعمل بنظام تشغيل ميكروسوفت نفسها ؟ اذا ميكروسوفت لم تعمل هذا تريد قوقل تعمله ؟؟؟؟؟؟؟؟؟؟؟؟
    هذه من ناحية فنية
    من ناحية ادارية : لو فكرنا وحللنا سنجد انه ليس من المنطق ان يعمل قاعدة بيانات مخازن على جوال ؟ 
    على سبيل المثال واحد التحليلات هل امين المخزن اللي جالس على جواله عم يصرف ويضيف مواد مش وراه محاسبين ؟ ملاك ؟ اداريين ؟
    بالتوفيق
  12. رمهان's post in وظيفة لا تعمل فى مربع نص إلا عند وجود الحقل فى التقرير و ليس فى الاستعلام was marked as the answer   
    السلام عليكم
    يوجد مشاركات تم حذفها ولا اعلم السبب قد يكون اعتبار انها زائدة وهنا لي وجهة نظر
    عندما استفسر ولو بمزحة او مداعبة فانه يهمني رد السائل 
    هنا كان يوجد مشاركة للاخ عبدالفتاح وبرد على احد استفساراتي ولم اجده الان وانا بحاجة اليه لاشارك بفكرة اخرى
    وعلى العموم اخ عبدالفتاح هناك فكرة اخرى ! مارايك ؟ وهي عبارة عن تحويل مربع النص بالتقارير الى مربع سرد مصدره الاستعلام for_combo  وبضبط خاصيتي عدد الاعمدة وعرض الاعمدة . هنا سييظهر العمود المقابل للرقم وهو عبارة عن وصف الفصل وليس هناك حاجة لكود او دالة
     
    تقبلو تحياتي
  13. رمهان's post in المساعدة في تكوين إستعلام was marked as the answer   
    جرب
    Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.ItemData(itm) & "','" Next xt = "'" & Left(xt, Len(xt) - 2) Me.tt.Form.Filter = "[Item]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق
  14. رمهان's post in مطلوب طريقة حذف (الاستعلامات - النماذج - التقارير) برمجيا was marked as the answer   
    مرحبا اخ عمرو
    الحقيقة وجدت كود لا يجاد رسالة الباسسوورد ثم تمرير القيمة لها وهي اول ما خطر في بالي وهذا الرابط
    http://www.siddharthrout.com/2013/04/24/unprotecting-vba-project-password-using-a-password-that-you-know/
    ولكن قلت اجرب فكرة تمرير القيمة باستخدام sendkeys  ونجحت معي ولا اعلم معكم لانه تعتمد على اختصار القوائم واعتقد ان جميع الاصدارات لن تختلف لانه واجهة المشروع متشابهة ولو حصل اختلاف نغير فقط في حروف الاختصار الممررة
    الان جرب التالي
    ضع دالة عامة كالتالي (طبعا قبل وضع الحماية):
    Function ramhan(pass) SendKeys "%{F11}%TE" & pass & "~~%{F11}", True DoEvents End Function ثم تنادي الدالة من زر الامر الذي به حذف الكائن ممرا كلمة المرور وكاتالي مثلا حيث الباسسور=1 واسم التقرير rep1 به حدث عند التحميل
    Private Sub Command0_Click() Call ramhan("1") DoCmd.DeleteObject acReport, "rep1" End Sub الان احفظ ثم ضع باسسورد للمشروع =1 
    اغلق القاعدة وحاول الحذف عن طريق النافذة لن يقبل وسيقبل من خلال الزر
    هنا ولو زبطت التجربة اعتقد انه موضوع جديد كليا وحماية جديدة نتمتع بها 
    تحياتي
  15. رمهان's post in البحث في استعلام مع وجود حقول خالية was marked as the answer   
    السلام عليكم
    اولا اعتذر من الاستاذ ابا خليل وتطفلت بان حاولت اطبق فكرته وقد يكون الواقع والذي في باله غير ذلك وهذه ضحايا الموانة الزايدة 
    اخي جمال شكرا واعتقد انك تستحق خبير من الان ومن خلال قرائتي لمشاركاتك
    اخي الزهراني
    جرب الاستعلام التالي وكمصدر للنموذج : اي اذهب لمصدر النموذج والصق هذا الاستعلام بديلا لمصدر السابق ثم اذهب لعرض التصميم للاستعلام لتختبر المحاولة وهل هي لما تريد وتقصد
    SELECT Table1.ID, Table1.User, Table1.Section, Table1.Status FROM Table1 WHERE (((IIf(IsNull([forms]![Form1]![SectionSearch]),1,InStr(1,[Section],[Forms]![Form1]![SectionSearch])))>0) AND ((IIf(IsNull([forms]![form1]![UserSearch]),1,InStr(1,[user],[Forms]![Form1]![UserSearch])))>0) AND ((IIf(IsNull([forms]![form1]![StatusSearch]),1,InStr(1,[status],[Forms]![Form1]![StatusSearch])))>0)); بالتوفيق
  16. رمهان's post in حذف الصوره من المجلد المرفق بعد ادراجها was marked as the answer   
    عزيزي
    هناك دالة getimagefolder  يمكنك استخدامها
    ولكن حيث انني لا استطيع التجربة على مثالك حيث الحاجة لتسجيل الاداة
    ويمكن تجربة الكود التالي بديلا لما تفضل به اخي اوس وهو مشتق من حله مشكورا
     
    Kill currentproject.path & "\images\" & EmpPIC.Value بالتوفيق
  17. رمهان's post in اغلاق التقارير المفتوحة was marked as the answer   
    بعد اذن الاستاذ شيفان
    انتي عامله المقارنة على اساس قيمة الاوبشن نفسها
    والاصح على مربع الخيار والذي قيمته حسب الاوبشنز
    Private Sub CmdSearch_Click() Do While Reports.count > 0 DoCmd.Close acReport, Reports(0).Name Loop If إطار8 = 1 Then DoCmd.OpenReport "ShabakaReport", acViewPreview End If If إطار8 = 2 Then m1.Visible = True m2.Visible = True DoCmd.OpenReport "StationsReport", acViewPreview End If If إطار8 = 3 Then m1.Enabled = True m2.Enabled = True m3.Enabled = True DoCmd.OpenReport "LinesReport", acViewPreview End If End Sub وبعدين راح نعمل لك اختصار وتحسين
    بالتوفيق
  18. رمهان's post in تسلسل نتائج البحث حسب طريقة البحث was marked as the answer   
    السلام عليكم
    ضع هذا الكود خلف زر البحث وكما هو ظاهر
    وان شاء الله احصل وقت واختزل الكود اكثر
    Private Sub cmbsearch_Click() xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = "" For i = 1 To 20 If Not IsNull(Me("inv" & i)) Then xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = Me("inv" & i) End If Next i If n = "" Then xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" Else xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1) End If Me.esano_1.Form.RecordSource = xsql Me.Refresh End Sub بالتوفيق
  19. رمهان's post in رسالة التأكيد بنعم أو لا قبل الحدث was marked as the answer   
    كل عام وانتم بخير اولا
    ثانيا : اضف السطر الجديد للكود خلف زر تحديث ليصبح كالتالي :
    Private Sub أمر33_Click() If MsgBox("تاكيد العملية ؟ ", vbYesNo) = vbNo Then Undo DoCmd.Requery End Sub بالتوفيق
  20. رمهان's post in اظهار الصوره في التقرير was marked as the answer   
    تفضل
    وضع الصوره في التقرير.rar
  21. رمهان's post in اظهار السجلات الفارغة و غير الفارغة و الكل بواسطة مجموعة خيار was marked as the answer   
    تفضل وعلى نفس طريقتك في البحث ومن خلال الاستعلام وليس باستخدام الفلترة 
    1. ضع هذا التعبير كعمود جديد في الاستعلام
    Expr2: IIf([Forms]![for17]![إطار61]=1;[fid09] Is Not Null;IIf([Forms]![for17]![إطار61]=2;[fid09] Is Null;1=1)) ثم ضع  1-  كقيمة في معيار هذا العمود
     
    2. الحدث التالي 
    Private Sub إطار61_AfterUpdate() Me.for18.Requery End Sub بالتوفيق
  22. رمهان's post in كيف أحول نوع البيانات في الجداول من نص إلى تاريخ ووقت was marked as the answer   
    اولا عليك باختيار استخدام التقويم الهجري ومن خيارات الاكسس >> اعدادات العميل
    ثانيا هذه المعادلة ويمكن في استعلام او في مربع نص نموذج او تقرير بادئا بعلامة =  :
    Year(Date())-[تاريخ الميلاد] بالتوفيق
  23. رمهان's post in طلب..صياغة معلمة للبحث عن تاريخ فقط من حقل تاريخ ووقت was marked as the answer   
    اي طريقة ؟؟؟ !! 
    هل تقصد هكذا :
    SELECT LY.ID, LY.[PT-NAME], LY.DATEE, LY.datee1 FROM LY WHERE (((CDate(Format([datee],"d/m/yy"))) Between CDate(Format([ادخل تاريخ اليوم المطلوب],"d/m/yy")) And CDate(Format([ادخل تاريخ اليوم المطلوب2],"d/m/yy")))); تحياتي
  24. رمهان's post in تنسيق مربع نص was marked as the answer   
    تفضل
     
    لاحظ: النظام يشيك اولا على محتوى t1  فاذا وجد - نمر بشروطها او less than  ويمر بشروطها !
    Private Sub t2_AfterUpdate() If InStr(1, [t1], "-") > 0 Then If (Val([t2]) > Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) > Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbRed ElseIf (Val([t2]) < Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) < Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbBlue Else t2.BackColor = vbWhite Exit Sub End If End If If InStr(1, [t1], "than ") > 0 Then If Val([t2]) >= Val(Right([t1], Len([t1]) - 10)) Then t2.BackColor = vbRed Else t2.BackColor = vbWhite End If End If End Sub بالتوفيق
  25. رمهان's post in كيفية تحديث جزء من حقل was marked as the answer   
    تفضل باشا !!
    وما تتعاودها مرة ثانية باسئلة زي كذا ! !!! مرة ثانية حندفعك  !!
    Set rs = CurrentDb.OpenRecordset("t1"): rs.MoveFirst Do Until rs.EOF For i = 1 To 9 If InStr(1, Trim(rs(0)), i & " ") > 0 Then xx = Replace(Trim(rs(0) & " "), i & " ", "0" & i) rs.Edit rs(0) = xx rs.Update End If Next i rs.MoveNext Loop DoCmd.RunSQL "update t1 set clas = Replace([clas],Right(Trim([clas]),2),Format(Right(Trim([clas]),2),' 00')) where clas is not null" DoCmd.OpenTable "t1" بالتوفيق
×
×
  • اضف...

Important Information