بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
kanory
-
Posts
2,199 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
134
Community Answers
-
kanory's post in فرز نموذج حسب ثلاثة حقول was marked as the answer
جرب كده ..............
عند حدث الفتح ...
DoCmd.SetOrderBy "datet, fonction, name ASC"
-
kanory's post in اظهار وقت وتاريخ التقرير عند تصديره بصيغة الاكسل was marked as the answer
تفضل <><><><><><><><>
وممكن تختصر الفلم الموجود في التقرير بهذا .... انا تركتها للتوضيح فقط
للتاريخ =Format(Date();"dd/mm/yyyy") للوقت =Format(Time();"hh:nn:ss ampm") sptialtest.accdb
-
kanory's post in مطلوب كود يغلق جميع النماذج والتقارير المفتوحة was marked as the answer
طيب طالما انه زر ... جرب هذا ...
Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj
او ادرج مثال مصغر للتطبيق ....
-
kanory's post in hypirlink in shortcut menu الارتباط التشعبي في القائمة المختصرة was marked as the answer
اعمل زر وضع فيه التالي ::::
Me.QareeWeb.SetFocus DoCmd.RunCommand acCmdInsertHyperlink جرب واخبرنا
-
kanory's post in عدم ظهور أسماء الحقول المستوردة من اكسيل was marked as the answer
انظر هل هذا ما تريد """"""
test (1).mdb
-
kanory's post in خيار وحدة البيع was marked as the answer
خطأ لأنك تحتاجها في عميليات اخرى ... مثل الجرد نقل عهده ... الخ ..
-
-
-
kanory's post in امر انشاء فولدر was marked as the answer
Sub CreateFolder() Dim folderPath As String folderPath = "C:\Users\UserName\Desktop\NewFolder" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath MsgBox "Folder created successfully!" Else MsgBox "Folder already exists!" End If End Sub
-
kanory's post in جعل شريط التمرير عند فتح النموذج لأسفل was marked as the answer
تفضل ....
test 5 500 (4).mdb
-
kanory's post in اعادة بيانات تم مسحها was marked as the answer
استخدم هذه الشيفرة اخي @محمد احمد لطفى
Forms![TEST1]![Date_M] = Null Forms![TEST1]![NumberEnd] = Null If MsgBox("هل تريد اعادة البيانات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Forms![TEST1].Undo End If
-
-
kanory's post in مشكلة : تم حظر المحتوى النشط فى هذا الملف was marked as the answer
اخي الكريم من خصائص الملف وليس خصائص الاكسس اضغط بالزر الايمن للماوس واختر خصائص تظهر لك النافذة
-
kanory's post in استعلام تغيير و تحديث من خلال جدول was marked as the answer
طيب اخي الكريم انظر الصور ::::::::::::::::
واحدة قبل التحديث في الجدول والثانية بعد تحديث الجدول ومع وجود اسم صالح احمد بدون وظيفة .......
Replace&add.mdb
-
kanory's post in ارجو المساعدة في إظهار اسم المرحلة و لونها تلقائيا بمجرد ادخال تاريخ الميلاد was marked as the answer
فقط كررها مع اضافة شرط ثان وهو الجنس ....
sifa: IIf([sin]>=20 And [jins]="ذكر";"قائد";IIf([sin]>=18 And [jins]="ذكر";"جوال";IIf([sin]>=15 And [jins]="ذكر";"كشاف متقدم";IIf([sin]>=11 And [jins]="ذكر";"كشاف";IIf([sin]>=6 And [jins]="ذكر";"شبل";IIf([sin]>=20 And [jins]="انثى";"قائده";IIf([sin]>=18 And [jins]="انثى";"جواله";IIf([sin]>=15 And [jins]="انثى";"مرشدة متقدمة";IIf([sin]>=11 And [jins]="انثى";"مرشدة";IIf([sin]>=6 And [jins]="انثى";"زهرة"))))))))))
انظر المرفق لتفهم مقصودي ........
sma - Copie.accdb
-
-
kanory's post in تصدير استعلام الى اكسل واختيار اعمده was marked as the answer
جرب المرفق التالي ................
Database1 (15).accdb
-
kanory's post in فتح البرنامج اكثر من مره من قبل المستخدم was marked as the answer
أخي @حسين العربى استخدم هذا الكود في حدت عند تحميل النموذج
If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll
-
kanory's post in توزيع الارقام السرية للطلاب بنظام المجموعات was marked as the answer
وهذه مشاركتي مع الاستاذ @kkhalifa1960
تفضل <><><><><><><><>
كتشنة الرقم السرى.accdb
-
kanory's post in تسحيل حضور وانصراف was marked as the answer
تفضل الملف بعد التعديل <><><><><><><><<><><>
HR19-2-2023.rar
-
kanory's post in تحديد صلاحية الدخول was marked as the answer
وعليكم السلام ورحمة الله وبركاته
الحقيقة لم افهم الية عمل الصلاحيات لديك .... لكن جرب هذا ربما هو ما تريد ....
مثال (3).accdb
-
kanory's post in تعديل على صلاحيات مستخدمين was marked as the answer
طيب شوف كده ::::::::::::::::
المستخدم Kanory باس 123 >>>>>> صلاحيات مطلقة
المستخدم Kanory1 باس 321 >>>>> صلاحيات محددة وهي الدخول عل النموذج الثاني ( فتح وتعديل واضافة وحذف )
جرب واعلمنا .......
Kan_صلاحيات المستخدمين.rar
-
kanory's post in اجمالي جميع الفترات باستتناء was marked as the answer
جرب المرفق <><><><><><>
printfactur3.rar
-
kanory's post in احتاج الى مكتبة WMI Scripting v2.1 was marked as the answer
ابحث عن هذه المكتبة Microsoft WMI Scripting v2.1 library
ضمن مكتبات الاكسس وعلم عليها فقط
-
kanory's post in كيف يمكننى عمل ترتيب للطلبة حسب الاختيار من كمبو بوكس was marked as the answer
هنا تجد الاجابة لمن يريد ؟