co2002co

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم

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

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

https://msdn.microsoft.com/en-us/library/office/fp179695.aspx

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

السلام عليكم ورحمة الله وبركاته مساء الخير كم جميعا تم حل المشكله بهاذي الطريقه وان كان هناك طريقه اسهل افيدنا تم عمل استعلام حذف ل جدول الوصفات ومن ثم تم وضع هذا الكود DoCmd.OpenQuery "qry_Name", , acReadOnly عند الخروج وفي جميع الازرار عدا امر الطباعه لكن واجهتني مشكله الرسائل التحذيريه لاتها مزعه نوعا ما هل م طريقه ل اخفائها

'Save the current record, ...to be safe DoCmd.RunCommand acCmdSaveRecord 'User confirmation If MsgBox("Delete all subform records, ...are you sure?", vbQuestion + vbYesNo) = vbYes Then 'Delete the records CurrentDb.Execute "DELETE * FROM YourChildTable WHERE CustID = " & Forms!YourParentForm!txtCustID, dbFailOnError 'Requery the subform to avoid displaying "DELETED" for the deleted records Forms!YourParentForm![YourChildForm].Requery Else Exit Sub End If https://www.experts-exchange.com/questions/28882219/Delete-All-Records-on-a-Continuous-Subform-via-delete-button-on-main-form.html

Dim Ctrl As Control Set Ctrl = Screen.PreviousControl If Ctrl.Name = "" Then Ctrl.SetFocus DoCmd.RunCommand acCmdDeleteRecord End If http://www.dbforums.com/showthread.php?987355-Delete-Record-on-Subform-using-cmdButton-on-main-form جربت هذا الكود وفعال جدا بس مشكلته يحذف اخر تسجل فقط وليس الكل Dim Ctrl As Control Set Ctrl = Screen.PreviousControl If Ctrl.Name = "" Then Ctrl.SetFocus DoCmd.RunCommand acCmdDeleteRecord End If Dim Ctrl As Control 'Must be the 1st line in the event! Set Ctrl = Screen.PreviousControl 'Must be the 2nd line in the event! If Ctrl.Name = "my sub formn ame" Then Ctrl.SetFocus DoCmd.RunCommand acCmdDeleteRecord End If

Private Sub ButtonName_Click() Dim Msg As String, Style As Integer, Title As String, Response As IntegerDim strSQL As String Msg = "You are about to delete this record." Style = vbOKCancel + vbQuestion + vbDefaultButton2 Title = "Continue?" Response = MsgBox(Msg, Style, Title) If Response = vbOK Then strSQL = "DELETE FROM MyTable WHERE ID = " & Me!NameOfSubformControl.Form!NameOfControlOnSubform CurrentDb.Execute dbFailOnError Me!NameOfSubformControl.Form.Requery Else MsgBox "No record deleted", vbOKOnly, "No changes made" End If End Sub http://www.utteraccess.com/forum/code-delete-subform-reco-t1967041.html لم استطع تطبسقه بالشكل الصحيح

السلام عليكم ورحمة الله وبركاته مساء الخير هل من حل

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

السلام عليكم ورحمة الله وبركاته اسعد الله صباحكم بكل خير واضح اني بالجداول كثير واكيد الموضوع محتاج لمسه سحريه من استاذنا الكبير السيد جعفر Database22.rar

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

مشكور اخي جعفر

السلام عليكم ورحمة الله وبركاته مساء الخير لنفترض ان الطبيب سجل بعض الادويه وقام بالغائها جميعا بالضغط على ( new pre) فان جميع الادويه تضاف جميعها الى جدول الوصفه ونحن نعتمد على الجدول في الجمع النتيجه ادويه لم تصرف فعلياً ، لكنها صرفت اللكترونياً 357.ER123456789.rar هل من طريقه بحث ان الادويه لا تضاف الى الجدول الا بعد امر الطباعه

السلام عليكم ورحمة الله وبركاته اسعد الله مسائكم بكل خير كنت وضعت كود ل اخفاء قاعدة البيانات واضهار النماذج فقط لكن بعد التعديل الكود لا يعمل بالشكل الصحيح Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Function DoAccessWindow(nCmdShow As Long) ' This function can minimize Access behind the scenes. 'Usage Examples 'Maximize window: ' ?DoAccessWindow(SW_SHOWMAXIMIZED) 'Minimize window: ' ?DoAccessWindow(SW_SHOWMINIMIZED) 'Hide window: ' ?DoAccessWindow(SW_HIDE) 'Normal window: ' ?DoAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loform As Form On Error Resume Next Set loform = Screen.ActiveForm If Err <> 0 Then 'no Activeform If nCmdShow = SW_HIDE Then MsgBox "Cannot hide Access unless a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loform.Modal = True Then MsgBox "Cannot minimize Access with " & (loform.Caption + " ") & "form on screen" ElseIf nCmdShow = SW_HIDE And loform.PopUp <> True Then MsgBox "Cannot hide Access with " & (loform.Caption + " ") & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If DoAccessWindow = (loX <> 0) End Function هل هناك اي تعديل عليه

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

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

السلام عليكم ورحمة الله وبركاته اسعد الله مسائكم بكل خير حاولت اعملها بنفس الطريقه الي قلت لك عليها بس ممكن تعلمني انا فين اخطات Medication1.rar

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

افضل الطريقتين ايش هي

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

انا افضل اعمل نموذج باسم مفضله نفس نموذج Medication حاولت انسخ نفس الاكواد مع بعض التغيير تحصل معي مشكله طيب وش رايك ارفق القاعده ونشتغل عليها سوى admin admin 1 1 2 2 ER12345678.rar

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

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