momy_nana

في مصيبه قبلتني كمان

تسلم يا غالي يا رب الله يعطيك الف عافيه بس سؤال هل يمكن اضافة ساعه رقميه للنموذج و اضافة آلة حاسبه ؟

فكرة رائعة اخي الكريم ساقوم باستخدامها الان بدي امنع ادخال نفس الموديل مثلا لو قمت باضافة مموديل UU حين اقوم بادخاله مره اخري تظهر رساله هذا الموديل موجود مسبقا

تسلم يا غالي يا رب مش عارف اشكرك اذاي بعد اذنك ممكن كود لعدم ادخال نفي القيمه في نموذج vehicle_modle

برجاء المساعده في نموذج main4 حقل vehicle_modle في زرadd more modles بيفتح نموذج اريد عند غلق النموذج الخاص بالادد تتحدث قيمة الحقل test.mdb

وجدت مثال رائع للاستاذ jafae089 في احد المنتديات لنسخ و استرجاع البيانات و هو عمل نسخة من الداول فقط و هذا رائع لكن اريد عمل النسخة الاحتياطية يكون اسمها اسم قاعدة البيانات + التاريخ و يكون امتداد النسخة dll او sys و طبعا في الاسترداد يمكن الاسترداد من اي من الامتدادات دي و طبعامش عايو يكون في اختيارات للامتداد هل من مساعده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ نسخ واسترجاع البيانات.rar

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

جزاك الله خيرا محتاج مساعده ممكن؟

يا جماعه مساعده ضروري عندي مشكلة في قاعدة بيانت المشكلة هي عندي جدول لانواع النظارات و جدول انواع العدسات و نموذج عملت فيه 2 كومبو بكس لنوع النظارة و نوع العدسه المطلوب عند اختيار نوع النظاره من الكومبو بوكس يظهر سعرها في التكست بوكس المقابل ليها و كذلك في انواع العدسات مرفق مثال و ارجو المساعده بارسع وقت مع شرح الطريقة و ما تم فعله وشكرا db.rar

السلام عليكم مثل ما هو مذكور في العنوان اريد كود يقوم باخفاء WINDOWS TASK BAR عند تشغيل قاعدة البيانات انا حصلت على كود بس اشتغل على نموذج واحد و مش راضي يشتغل على باقي النماذج هل يمكن مساعدتي و الكود اللي حصلت عليه هو Private Const SW_HIDE = 0 Private Const SW_SHOW = 5 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub SetWinTaskBarVisible(tbVisible As Boolean) Dim hTaskBar As Long hTaskBar = FindWindow("Shell_TrayWnd", vbNullString) If tbVisible Then ShowWindow hTaskBar, SW_SHOW Else ShowWindow hTaskBar, SW_HIDE End If End Sub Private Sub Form_Load() SetWinTaskBarVisible False End Sub Private Sub Form_Unload(Cancel As Integer) SetWinTaskBarVisible True End Sub