أبو نادر

Me.تابع4.SetFocus DoCmd.RunCommand acCmdDeleteRecord Me.Refresh اخوي ابو عاصم ضع هذا الكود في حدث عند النقر للحذف

السلام عليكم حبايبي اريد كود لتغيير نص رسالة فشل الاتصال بالقاعدة اذا فصلت النت من الجهاز الاساسي يظهر للمستخدم مسار القاعدة كامل بالايبي ويقول بان المسار غير صحيح ....

اهلين اخوي ابا جودي انا بدأت من الصفر في الاكسس من تقريبا 5 او 6 شهور ولا زلت متعلم لا ابحث لما هو جديد ... فقط الذي اريده لينجز مهام عملي بسرعه ... بعد التعب اصبت باحباط عند المشاركه من البطئ والحماية كيف احمي مجلد البرنامج من العبث ؟ كل المستخدمين يجب ان امنحهم الصلاحية الكاملة للمجلد ونسخة الاختصار التي لديهم ... لو واحد ضغط كلك يمين يأتيه خيار ( فتح موقع الملف ) !! ولا اضمن احد فيهم تمنيت لو كان هناك في الاكسس خيار للببلش كتطبيق ذاتي ومن هنا اجبرت ان ابحث لحل دخلت في بحر السيرفرات وال my sql وكيف تجعل التطبيق ذاتي والتحزيم وفغرت حتى الان والان ... بطلت ان اتعلم شي حتى تعود لي الرغبه واحد من الشباب انتقدني لاني عملته بالاكسس ... وقال لو ذهبت للفجوال بيسك افضل وفيه خيار للببلش اخبرني كيف شاركت برنامجك ؟ باذن الله حين انجز البرنامج انا ايضا سارفقه هنا لو لا الله ثم الاعضاء لما انجزته وخصوصا ابو خليل في بداية المشوار

جربت وما نفع ... صحيح سيغلق البرنامج لان عداد الوقت فقط للنموذج الرئيسي .. يعني لو فتحت نموذج اخر فوق الرئيسي وحركت الماوس على النموذج الاخر لن يعود العداد للوقت المحدد في الرئيسي بكودك هذا يجب ان اضعه في كل النماذج

اخوي محمد مثالك فقط على نفس الفورم ... بينما مثالي اذا فورم عدم التنشيط مفتوح ... وفتحت معاه اي فورم بينطبق عليه الكود اذا تقدر تضيف وتعدل في الكود الي في مثالي بحيث يرجع العداد الى صفر عند تحريك الماوس فهذا جميل جدا بارك الله فيك

السلام عليكم احبتي نموذج يعمل في الخلفيه عند فتح البرنامج بداخله كود لحساب الوقت المحدد عند عدم وجود نشاط للخروج من البرنامج يفتح مخفي عند حدث فتح .. لنموذج الافتتاحيه افتح الكود وحدد الوقت كما تشاء كتبت الكود من فديو على اليوتيوب اجنبي وطبقته في مثال في المرفق ان شاء الله تستفيدون منه تايمر لقفل البرنامج.rar

ما شاء الله .. عمل رائع

الله يعطيك العافيه يبو خليل طيب اذا كنت مشارك البرنامج على شبكة داخليه.... التحزيم للواجهه ؟ ويصير تنفيذي ... واذا صار تنفيذي ... يعني ما بقدر اعدل عليه اذا فيه تعديل ... واذا فيه تعديل يوكن على الاساس الي بجهازي وبعده ارجع اسوي تحزيم ؟

السلام عليكم اخواني ممكن طريقة التحزيم وافضلها الحين التحزيم بعد التقسيم ومشاركة المجلد والا ما يحتاج ؟ هل يتم تحزيم نسخة الواجهه فقط والا البرنامج كامل ؟ بعد التحزيم .. هل يصبح البرنامج مشترك لماذا اللجوء للتحزيم ؟ عندي ملف صوتي وفلاش والايقونه وملف الماسح الضوئي ومجلد للصور اعذروني لاني شفت مقاطع كثيره وناوي اتعلمه بس ابغى اجوبه لاستفساراتي لا تبخلون بالمعلومه ولو بسيطه ومشكورين مقدما

ماااش ما زبطت معي ؟ الي يجرب طريقة عبدالله يعلمنى بالنتيجه الله يعطيك العافيه يا عبدالله

في شي انت مسويه وانا لا ... هل حزمت البرنامج ؟ واصبح تنفيذي ؟ انا لازم اتعلم طريقة هالتحزيم ...

بالضبط اخي ابا جودي .. هذا ما قصدته وشكرا لك اخي عبدالله قدور ..كلامك صحيح فقط اذا ضبطت اعدادات شريط المهام على ( عند الإمتلاء ) جرب اي خيار غيرها ولن تظهر معك الايقونه الا كما ذكرت في المشاركة الأولى وصعب تقول للمستخدمين اضبطو اعدادات شريط المهام على كذا والا كذا وبارك الله فيكم

السلام عليكم حبايبي حصلت معي حركة غريبة ... أظهرت أيقونة التطبيق بدل ايقونة اكسس في شريط المهام طبعا انا استخدمت هذا الفانكشن للايقونة Option Compare Database Option Explicit Public Function AddAppProperty(strName As String, varTyp As Variant, varWert As Variant) As Integer Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddAppProperty_Err dbs.Properties(strName) = varWert AddAppProperty = True AddAppProperty_End: Exit Function AddAppProperty_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varTyp, varWert) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddAppProperty_End End If End Function Public Function DBStart() AddAppProperty "AppTitle", dbText, "hhhhhh" AddAppProperty "AppIcon", dbText, CurrentProject.path & "\hhh.ico" RefreshTitleBar End Function المهم تم تثبيت اكسس في شريط المهام وعند فتح البرنامج ازلت التثبيت من شريط المهام وضغطت خروج من البرنامج ... واخترت لا ... فظهرت ايقونتي المختاره !!! لعباقرة الأكواد : هل ممكن عمل كود عند فتح الشاشة الرئسية للبرنامج تك,ن مهمته ... تثبيت اكسس في شريط المهام ... ثم ازالة التثبيت ؟

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

الحمد لله اخوي ابو جودي توصلت لحل المشكلة ولم تكن مشاركة مجلد الصور كان حجم حقل المسار في الجدول 50 .... وخليته 200 وانحلت ولم اشارك مجلد الصور .. فقط وضعته في مجلد المشاركة للبرنامج والأمور تمام

الأحد ان شاء الله بوافيكم بالنتيجه الله يوفقكم

ابو جودي ان شاء الله الأحد ارفقه لانه في جهاز المكتب الأخ محمد ... هو مجلد لمشاركة البرنامج بعد التقسيم ... وحاولت اتعلم طريقة الربط مع mysql والجهاز يصير سيرفر .. بس ماش .. 7 شهور مع اكسس كرهتني قاعدة البيانات المستخدم في مبنى آخر ويجلب صوره من جهازه ... ابي عند الحفظ تجي لمجلده عندي في جهازي ...... في حاجه خطرت في بالي الآن وما سويتها ... هل لازم مجلد الصور الي نقلته لمجلد المشاركة أعمله مشاركة والصلاحية تحكم كامل ؟

السلام عليكم عندي نموذج عمله : انشاء مجلد للصور برقم الموظف داخل مجلد محدد مساره عن طريق فانكشن ... انا عامل موقعه في D جلب الصور من الماسح وحفظها باسم يتم اختباره داخل مجلد الموظف جلب صورة من الجهاز وعند الحفظ يتم نسخ الصورة ولصقها باسم يتم اختيارة داخل مجلد الموظف المهم على جهاز البرنامج كل شي تماااام وبعد المشاركة ... جت الخبصة نقلت مجلد الصور الى مجلد المشاركة مع تعديل المسار في الفانكشن .. وبدايته وضعت رقم IP للجهاز الرئيسي عند انشاء مجلد لموظف جديد ... تمام ولكن عند جلب صورة لا يتم حفظها ؟ ... عند الضغط على حفظ يختفي المسار ( مسارها في جهاز المستخدم ) ولا يحدث شي والمفروض تنسخ وتلصق في مجلده ويتغير المسار الي فهمني وعنده حل يعلمني بالطريقه الصحيحه ... وبارك الله فيكم

السلام عليكم هل بالامكان تغيير كلمة اكسس اذا توقف عن العمل باسم البرنامج ؟ واحيانا اذا توقف اكسس عن العمل تأتي رسالة .. هل ترغب بأخذ نسخة احتياطية ... كيف ألغي هالرسالة اذا توقف اكسس عن العمل ؟ وسلامتكم

الله يعطيك العافيه يا ابو جودي طيب لماذا فقط عند اخفاء الاكسس تحصل المشكله لعرض التقارير ... انا متأكد لو تمت اضافة كود في فانكشن الاخفاء بيزبط ولكن خبرتي ضعيفه في صناعة الاكواد بارك الله فيكم جميعا

السلام عليكم ابا جودي .. متشوق لأرى ابداعك وبارك الله فيك ولكن بعد التحميل ... اختبصت المسميات للفايلات ؟ الرجاء ارفاق تسميتها الصحيحه يا بطل

هلا اخوي محمد الي شدني اكثر هذا السطر ... ابغى اعرف وش عمله؟ وانا ابحث لقيت هذا المرفق لاحد الاخوه .. وشفت فيه وحدات نمطيه جميله .. بينها modAPIWindow Aziz.zip

بلاش توضيح .. كيف استدعيه ؟ وسلامتكم

السلام عليكم هذا فانكشن من الوهله الأولى شعرت بأنه محترم لكن للأسف ما عرفت كيف استدعيه ممكن توضيح عمله وأكواد الاستدعاء والله لا يحرمكم الأجر Option Compare Database Option Explicit Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_GETICON = &H7F Public Const WM_SETICON = &H80 Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI X As Long Y As Long End Type Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Const GWL_STYLE = (-16) Public Const WS_VISIBLE = &H10000000 Public Declare Function GetWindowPlacement Lib "user32" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long Public Const SW_SHOW = 5 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOWNORMAL = 1 Public Const SW_RESTORE = 9 Public Const SW_MINIMIZE = 6 Public Const SW_MAXIMIZE = 3 Public Const SW_HIDE = 0 Public Const SWP_SHOWWINDOW = &H40 Public Const HWND_TOPMOST = -1 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Public Type RECT Left As Long top As Long Right As Long Bottom As Long End Type Public Type WINDOWPLACEMENT Length As Long flags As Long showCmd As Long ptMinPosition As POINTAPI ptMaxPosition As POINTAPI rcNormalPosition As RECT End Type Const ABS_AUTOHIDE = &H1 Const ABS_ONTOP = &H2 Const ABM_GETSTATE = &H4 Const ABM_GETTASKBARPOS = &H5 Private Type APPBARDATA cbSize As Long hWnd As Long uCallbackMessage As Long uEdge As Long rc As RECT lParam As Long ' message specific End Type Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long Public Function CursorOnTaskbar() As Boolean Dim curPoint As POINTAPI Dim lngRetCur As Long Dim lngRetTbarPos As Long Dim barData As APPBARDATA lngRetCur = GetCursorPos(curPoint) lngRetTbarPos = SHAppBarMessage(ABM_GETTASKBARPOS, barData) If (lngRetCur <> 0) And (lngRetTbarPos <> 0) Then If (curPoint.X > barData.rc.Left) And _ (curPoint.X < barData.rc.Right) And _ (curPoint.Y < barData.rc.Bottom) And _ (curPoint.Y > barData.rc.top) _ Then CursorOnTaskbar = True End If End If End Function Public Function IsMinimized(hWnd As Long) As Boolean Dim wndPl As WINDOWPLACEMENT Dim lngRetVal As Long lngRetVal = GetWindowPlacement(hWnd, wndPl) If (wndPl.showCmd = SW_SHOWMINIMIZED) Then IsMinimized = True End If End Function Public Function IsVisible(hWnd As Long) As Boolean Dim lngRetVal As Long lngRetVal = GetWindowLong(hWnd, GWL_STYLE) If ((lngRetVal And WS_VISIBLE) = WS_VISIBLE) Then IsVisible = True End If End Function Public Sub bringWindowToFront(hWnd As Long) Call SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW) End Sub

اخوي اذا انت آدمن على الجهاز الي فيه البرنامج ومسوي مجلد مشاركة فشوف الصلاحيات واذا الامور تمام ... فتأكد من رقم ال ip ممكن تغير في نقطتك ولازم تعدله في البرنامج