الغاء تسجيل / اضافة

[co2002co]

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

مساء الخير

 

لنفترض ان الطبيب سجل بعض الادويه وقام بالغائها جميعا بالضغط على  ( new pre)

فان جميع الادويه تضاف جميعها الى جدول الوصفه 

ونحن نعتمد على الجدول في الجمع

النتيجه

ادويه لم تصرف فعلياً ، لكنها صرفت اللكترونياً

357.ER123456789.rar

هل من طريقه 

بحث ان الادويه لا تضاف الى الجدول الا بعد امر الطباعه 

[co2002co]

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

مساء الخير

 

 

هل من حل 

[co2002co]

Private Sub ButtonName_Click()
  
Dim Msg As String, Style As Integer, Title As String, Response As Integer
Dim 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

 

 

 

لم استطع تطبسقه بالشكل الصحيح

[co2002co]

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

[co2002co]

'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

[co2002co]

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

مساء الخير كم جميعا

 

تم حل المشكله بهاذي الطريقه

وان كان هناك طريقه اسهل افيدنا

 

 

تم عمل استعلام حذف ل جدول الوصفات

 

ومن ثم تم وضع هذا الكود 

DoCmd.OpenQuery "qry_Name", , acReadOnly

عند الخروج

وفي جميع الازرار عدا امر الطباعه

 

 

لكن واجهتني مشكله الرسائل التحذيريه لاتها مزعه نوعا ما

هل م طريقه ل اخفائها

[co2002co]

للاسف لم تكن المحاوله مجديه 

حيث ان الكود يحذف كل شي موجود بالجدول

 

 

بالعربي

كانك يابو زيد ماغزيت

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله

9 ساعات مضت, co2002co said:

كانك يابو زيد ماغزيت

أولا - قد غزى وغنم ان شاء الله

ثانيا - أما عن فكرة استعلام الحذف فهى جميلة جدا وان لم تتوصل اليها بجهدك لأرشدك اليها أحد أساتذة المنتدى

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

ثالثا - أما عن الرسائل التي أزعجتك - ولا عاش من يزعجك - فاقتلها بهذا المبيد الفعال والمجرب

'ضع هذا الكود قبل تشغيل الاستعلامات الاجرائية
DoCmd.SetWarnings False

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

والآن هل غزى أبوزيد

في أمان الله وتمنياتى بالتوفيق

[co2002co]

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

اشكرك اخي ابو عبدالله على الرد

 

دعني اشرح لك اكثر

 

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

 

او

 

عند الضغط علي امر البطاعه يعمل صفحه جديد وجاهزه ل مريض جديد

[كرار صبري _ أبو جنى]

13 ساعات مضت, co2002co said:

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

 السلام عليكم و رحمة الله و بركاته ...

تستطيع عمل جدولين بنفس الحقول

الاول يكون المصدر للنموذج الفرعي في الوصفة

الثاني يحسب عليه المخزن

 

عند الضغط على طباعة 

يضيحقول الاول ( بشرط رقم الوصفة مثلا) الى الثاني

ثم يطبع

 

ما رأيك ... انا حاولت اطبقها على برنامجك لكن الاكواد الموجودة اكبر مني و لم افلح 

لو تحب اعملك مثال ... 

[co2002co]

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

اشكرك اخي كرار على المرور

المشكله ليست بالتجميع

وانما في اضافة الادويه الى جدول الوصفات الذي بدوره اعتمد عليه اعتماد كلي في التجميع

 

فقط اريد اضافة احد هاذين الشرطين

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

او

عند الضغط علي امر البطاعه يعمل صفحه جديد وجاهزه ل مريض جديد

 

عملت استعلام مسح ولم افلح

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

لكن لاسف يعمل نفس عمل الاستعلام وهو حذف الكل حتى بعد امر الطباعه

[أبو عبدالله الحلوانى]

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

وبما أن فهم السؤال نصف الإجابة أو قل هو كل الإجابة فأرجو توضيح استفساراتى بالصورة التالية

وهى من 1- أين تريد الحذف 2- وما معيار الحذف  3- وسبب هذا الحذف

[co2002co]

السلام عليكم و رحمة الله و بركاته ...

اشكر لك مداخلتك

نفس استاذنا الكبير السيد جعفر موجود بكل حرف ورقم وايحاء وتصميم

 

 

الي ابي اسويه ليس في frm_Medication

اانا ابي عدم حفظ البنانات الموجوده في frm_Patient_Drugs

او بمعنى ثاني sfrm_Patient_Drugs

 

المطلوب

عدم إضافة الادويه الموجوده بالنموذج الى الجدول الا بعد الضغط على امر البطاعه فقط  وبعد امر الطباعه يعمل نموذج جديد جاهز ل مريض جديد

 

 

 

 

 

 

[co2002co]

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

بعد جهد جهيد ومحاولات غبيه مني لجهلي باللغه البرمجيه

استطعت حل المشكله

 

 

 

    'print Report
    DoCmd.OpenReport "rpt_Patient_Drugs", acViewPreview
    DoCmd.PrintOut
    DoCmd.Close
    DoCmd.OpenForm "frm_Patient_Drugs"
    DoCmd.Close
    DoCmd.OpenForm "frm_Patient_Drugs"
 

[كرار صبري _ أبو جنى]

22 ساعات مضت, co2002co said:

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

و عليكم السلام و رحمة الله و بركاته ...

انا متابع الموضوع من الاول ... وهذا الكود ( بغض النظر عن فعاليته ) 

لا يصف الكلام و المشاركات و الشرح أعلاه 

حسب معلوماتي القليلة بالبرمجة ,,, و الله أعلم ...

[co2002co]

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

اشكر لك مداخلتك اخي كرار

 

 

كلام صحيح 

[أبو عبدالله الحلوانى]

في ‏٠٤‏/‏٠٥‏/‏٢٠١٦ at 23:40, co2002co said:

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

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

في ‏٠٤‏/‏٠٥‏/‏٢٠١٦ at 23:40, co2002co said:

بعد جهد جهيد ومحاولات غبيه مني لجهلي باللغه البرمجيه

استطعت حل المشكله

الحمد لله الذى تتم بنعمته الصالحات وتقضى بفضله الحاجات

في ‏٠٥‏/‏٠٥‏/‏٢٠١٦ at 22:19, كرار صبري _ أبو جنى said:

هذا الكود ( بغض النظر عن فعاليته ) 

لا يصف الكلام و المشاركات و الشرح أعلاه 

 

في ‏٠٧‏/‏٠٥‏/‏٢٠١٦ at 19:21, co2002co said:

كلام صحيح