اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Shivan Rekany

الخبراء
  • Content count

    2,874
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    119

Shivan Rekany last won the day on February 19

Shivan Rekany had the most liked content!

السمعه بالموقع

2,313 Excellent

عن العضو Shivan Rekany

  • الرتبه
    شفان ريكاني
  • تاريخ الميلاد 02 ديس, 1988

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • بلد الإقامة
    كوردستان / دهوك
  • الإهتمامات
    ادارة / برمجة

وسائل التواصل

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com
  • Jabber
    shivanrekany212@mail.ru‎‏

اخر الزوار

5,456 زياره للملف الشخصي
  1. قم بتعدیل فی مصدر النموذج
  2. Shivan Rekany

    عمل Auto Number

    حسب فهمي لمشكلتك من الاحسن ان تستخدم زر للحفظ و قبل الحفظ ان يكتب الرقم التلقائي ويحفظه هكذا Private Sub Command14_Click() Me.ID = Nz(DLast("[ID]", "TABLE1"), 0) + 1 DoCmd.RunCommand acCmdSaveRecord End Sub والله يعلم
  3. تم عمل اللازم كما قال استاذ @kaser906 اتفضل التعديل على النموذج db2.mdb
  4. نعم وهذا هو شغل جهاز الباركود بيدخل الرقم وبيروح الى التالي اتفضل اليك هذا سيخرج من الحقل ويدخل الى حقل الكمية وبعدين سيدخل من جديد الى حقل رقم الصنف في جزء من الثانية اليك الكود SetFocus Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub الفواتير.rar
  5. Shivan Rekany

    الادخال عبر الباكورد

    اذن تم اضافة هذا السطر الى كود بعد تحديث لرقم الصنف Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) والكود صار هكذا Private Sub Rajmsanf_AfterUpdate() Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) If DCount("[Rajmsanf]", "tfsil_jard", "[Rajmsanf]=[forms]![frmEdrajSenf]![Rajmsanf]") >= 1 Then MsgBox " سبق جرده " & DLookup("[Almwka]", "tfsil_jard", "[Rajmsanf] = Forms![frmEdrajSenf]![Rajmsanf]") DoCmd.CancelEvent Me.Undo End If End Sub اتفضل جربه واعطينا الخبر 2الباكورد.rar
  6. اتفضل اليك قاعدة بها طريقتين اي منها تريد اختاره DoCmd.OpenForm "Forme_InsertAndEdit", acNormal ' طريقة الاولى Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_3" Form_Forme_InsertAndEdit.Masder_record_AfterUpdate DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, , "[id_f]=" & Me.id_f, acReadOnly, acWindowNormal ' طريقة الثانية 'Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_3.*, Tab_3.id_f FROM Tab_3 WHERE (((Tab_3.id_f)=[Forms]![f_3]![id_f]));" كل الطريقين ستستخدمه بعد فتح النموذج Openformresors.rar
  7. Shivan Rekany

    الادخال عبر الباكورد

    فی قاعدە بیاناتک مش موجود مثل هذه الارقام لكن فيها 1-1 و 2-2 و 3-3 و 4-4 والرقم المكتوب اصلا غير موجود لذلك بيعطيك الرسالة لذلك نحن بحاجة شرح وافي من حضرتك عن ماذا تريد بالضبط و ارفاق قاعدة بيانات حسب شرحك
  8. اتفضل استخدم هذا في حدث بعد تحديث لاختيار السعر و نوع العملة في كومبوبوكس Private Sub curr_AfterUpdate() Me.curate = Me.curr.Column(2) Me.Text29 = NoToTxt([curate], Me.curr.Column(1),"") End Sub هنا نحن ما استخدمنا جزء من العملة لكن اذا تريد ان تستخدمه هناك حلول اخرى CurrName.rar
  9. نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then يجب ان يكون هكذا If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then اليك المرفق الفواتير.rar
  10. السلام عليكم ورحمة الله وبركاته اخي الحبيب عملك مضبوط لكن فيها خطأ واحد في حرف واحد اذا تغيره سيكون كل شيء على ما يرام شوف هذه الجملة sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" القي نظرتا الى الشرط فيه الشرط الاول تمام ما فيه المشكلة WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) والشرط الثاني AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab القي نظرتا الى الكود الصحيح sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" اليك ملفك بعد تغيير حرف واحد الفواتير.rar
  11. اتفضل القي نظرتا الى مصدر التقرير وجروف في التقرير و خط فواصل الصفحات DB.accdb
  12. اتفضل اليك هذا الرابط بها ما تريد https://www.officena.net/ib/topic/76815-زيادة-الكمية-عند-ادخال-نفس-المادة-في-الفاتورة/?do=findComment&comment=491976 انت شاطر فعلا اذا تحاوله راح تقدر تعمل ما تريد واذا ما اقدرت نحن حاضرين لمساعدتك اكثر تحياتي
  13. دائما اذا بترفقون نسخة مصغرة من قاعدة بياناتكم راح توصلون الى النتيجة باسرع وقت ممكن
  14. اتفضل اليك هذه الروابط بها ما تريد
  15. واليك طريقة اخرى اذا تستخدم اصدار 2010 DoCmd.BrowseTo acBrowseToReport, "MyReport" حيث ان MyReport هو اسم التقرير
×