ناديه

انا ارفقت الملف وياريت التعديل وابدا الرئ فيه ممكن ____.rar

هو كده معاناه ايه اني هعمل استعلامات ونماذج جديده

جربت هذا الحدث منفعش

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

ايوة ظهرت في الجدوال ولكن عند تنفيذ اي نموذج مبني علي استعلام لا يظهر اي شئ

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

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

ممكن شرح للنموذج المرفق للضروره القصوي كيفيه عمل الاكواد للترقيم التلقائي AutoNumber.rar

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

يا جماعه ارجو المساعده

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

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

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

يوجد طريقه اخري وهي انك ممكن تحول البرنامج بتاعك بامتداد exe اي يتم عمل setup ليه وفي هذه الحاله لا تحتاج الي الاكسس لفتح البرنامج ويوجد في هذا اللينك ما تحتاج اليه لتصميم ذلك http://www.arabteam2000-forum.com/index.ph...=55293&st=0

شكرا جزيلا يا اخ منتصر علي هذه الافاده الجميله

دي طريقه ممكن تنفعك دا لو كان دا اللي تقصده كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم كود Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى كود fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى كود fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : كود Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen كود DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose كود DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج وللامانه منقول New_Microsoft_Access_Application.rar

_________.rar

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

شكرا جدا يا اخ ليبرا وبجد انا مش عارفه اودي جميلك عليا فين بس شكرا جزيلا

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

شكرا جزيلا علي مساعدتك لي

كيفيه انشاء مربع سرد وبه بعد الملفات الصوتيه وعند اختيار اسم الملف من المربع السرد يشغل لي الويندوز يديا بلير ممكن الاكود من فضلكم

اخي ليبرا انا الحمد لله عملتها وشكرا جزيلا لكم جميعا علي الافاده

اولا : شكرا جدا علي مساعدتك لي ثانيا : انا عملت كل المطلوب ومع ذالك لم ينم التشغيل ويظهر لي خطا في الاكواد Private Sub Form_Timer() Dim i As Integer For i = i To 3000 ProgressBar8.Value = i If i = 3000 Then Next i DoCmd.Close DoCmd.OpenForm "ÚÇã" End If ياريت الكود الصحيح

كيفيه عمل ProgressBar في النموذح الاشاشه الافتتاحيه بمعني عندما يتم تحميله يفتح نموذج الاساسي للبرنامج اريد طريقه العمل وبالاكود ياريت ضروري وشكرا جزيلا علي المساعده