نجوم المشاركات

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

✔️

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

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم ..... جرب المرفق ....... تحديث المجاميع.rar

If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل __bb-4 - Copy.accdb

مشاركة مع الاستاذ قاسم تعديل عدة سجلات بناء على رقم المعرف يمكن اختصار الكود ويمكن عدم كتابة اسماء الحقول لكونها متشابهه بين الجدولين ولكن اكتفي بالحالي اخيرا فكرة الاستاذ قاسم باستخدام النموذج المفرد افضل باعتقادي عند وجود عدد كبير من السجلات حيث يتم الاكتفاء بالسجل الحالي المطلوب تحديثة دون المرور على سجلات الجدولين ولكن الفكرة طرح طريقة اخرى فقط الملف مرفق Update a record.accdb

وعليكم السلام.. حولت المعرف الى رقم للسهولة...ويجب ان يكون مفهرس حتى لايتكرر Update a record.rar

المثال بعد إجراء عدة محاولات ، جربه وارجع لنا بنائج الفحص. المثال_01.mdb

الاطروحات السابقة تناولت فيها العديد من الافكار حول الاستفادة من الفورم التفاعلي وعناصر التحكم وصفات كل عنصر علي حدة احيانا المستخدم يكون محتاج شاشة كبيرة فيها العديد والعديد من عناصر التحكم مما يشكل حالة من عدم التركيز للشكل العام وكمية العناصر المعروضة في الوقت نفسه فكرة بسيطة تخلي الفورم نفسه يعرض لك يلي انت محتاجه وذلك عن طريق التحكم في خصائص عنصر التحكم نفسه الفكرة باختصار كانك شغال علي دوت نت او علي اي موقع تضغط علي تبويب معين يظهر لك عناصر التحكم الخاصة به وتتحكم فيه كما تشاء اسيبكم للتجربة وان شاء الله تكون فيها النفع ولا تنسونا بدعوة بظهر الغيب بصلاح الحال المثال المرفق علي بيانات الموظفين لا يحتوي الا علي اكواد الحركة الخاصة بالموضوع Create Drill Down Data Entry.xlsm

x = IIf(([Rased] - [Monsarf]) > 0, ([Rased] - [Monsarf]), [Rased])

حصل خلط بين مثالك ومثال استاذ موسى فقط ارفع افضل اجابة ..لان سؤالك لم تتم الاجابة عليه!!

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

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

وعليكم السلام ورحمة الله وبركاته اخى هذا كود بسيط ليسهل عليك تعديله Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim X As Range For Each X In Target If X.Column = 2 Or X.Column = 4 Then ' العمود رقم 2 والعامود رقم 4 If X.Row > 7 Then 'رقم الصف اكبر من 7 If X.Value = "" Then X.Offset(0, 1) = "" Else On Error Resume Next X.Offset(0, 1) = "" X.Offset(0, 1) = Now X.Offset(0, 1).NumberFormat = "dd-mm-yyyy HH:mm" End If End If End If Next Application.EnableEvents = True End Sub

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

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

جرب التالي Me.المبلغ_الاجمالي.DefaultValue = Nz(Form_الطالب.LenaT) - Nz(DSum("[دفع]", "نموذج الترحيل اليدوي", "[المعرف]=" & Form_الطالب.المعرف) - Nz(DSum("[mortaghday]", "نموذج الترحيل اليدوي", "[المعرف]=" & Form_الطالب.المعرف), 0)) واليك الملف ان شاءالله يكون هو المطلوب 11.accdb المعذرة استاذ قاسم لم انتبه لردك كنت اكتب الرد وانشغلت بالرد على الهاتف

وعليكم السلام.. دوال المجال لاتعمل هكذا.. 11.rar

طيب جرب المرفق كده <><><><><><<<< Kan_DBPIX.rar

السلام عليكم بالاضافة لما تقدم به جميع الاساتذة اليك الحل التالي على حسب فهمي لطلبك. يرجى موافاتنا بالنتيجة. Private Sub Supplier_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Msg = " " & NewData & " المورد " & Supplier & vbCr & vbCr & " غير موجود في القائمة " & vbCr & vbCr Msg = Msg & "هل تود إضافة هذا المورد ؟" If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then Response = acDataErrContinue MsgBox "تم إلغاء عملية الإضافة", vbInformation, "تنبية" Supplier = "" Exit Sub End If On Error GoTo CancelAddNew Set Db = CurrentDb Set Rs = Db.OpenRecordset("Table1", dbOpenDynaset) Rs.AddNew Rs![Supplier] = NewData Rs.Update Response = acDataErrAdded Rs.Close Set Rs = Nothing Set Db = Nothing Exit Sub CancelAddNew: Response = acDataErrContinue Set Rs = Nothing Set Db = Nothing Exit Sub End Sub الملف بعد التعديل تحياتي رسائل تنبية.accdb

المعادلة السابقة عند تساوى الوقت معا ولكن عندما يكون التاريخ والوقت يساوى للتاريخ والوقت أيضا يتم استخدام المعادلة التالية =IF(AND(B1=B2,C1=C2),MAX(D1:D2),"")

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

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

الحمد لله

يبدو انك لم تجرب مثالك يوجد اكواد كثيرة تطلب جداول ونماذج غير موجودة ، ومتغيرات كثيرة من غير تعريف واعلان يجب ان تكون دقيقا .. تضع فقط كود الواتس والكود الذي حصل التعطيل به

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

أهلا بك @Mina_youssef9 في المنتدى 🙂 لتحقيق أقصى استفادة يرجى الإطلاع على : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. ************************************************************************** بالنسبة لسؤالك وحسب علمي .. يمكنك فتح ملف الأكسس في الموبايل عن طريق برامج الريموت (التحكم من بعد) مثل التيم فيور team viewer .. بحيث يكون جهاز اللابتوب شغال على طول وتفتح التيم فيور في الجهازين فكأنما تفتح شاشة اللابتوب في شاشة الموبايل .. وبهذا يمكنك فتح ما تشاء من اللابتوب ومن ضمنها برنامج الأكسس .. طبعا كل هذا شريطة اتصال اللابتوب بالانترنت ..

عذرا اخي ابو منتظر لقد اخطأت UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table2.DName = [Table1].[DName], Table2.Age = [Table1].[Age];

استاذي العزيز تقصد المثال يكون باصدار 2007 انظر الي هذا المثال المثال.rar

بالتوفيق.. واذا اردت التحديث عن طريق استعلام ..استخدم الجملة التالية لعمل الاستعلام UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table1.DName = [Table2].[DName], Table1.Age = [Table2].[Age];

الحقيقة انا رجل كبير وفهمي على قدي فكانت الاجابة على قدر فهمي للامر وهذا يدل على رغبتك في التعلم وحسن تصرفك 🌹

السلام عليكم اخى ابو احمد لم ارى احد يستخدم هذا الاسلوب 👇 الا شخص واحد ، اخ لنا هنا وتركنا بعض الوقت فهل انت هو فان كنت فاهلا ومرحبا بك مره اخرى اخى تقبل تحياتى اخوك احمد

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز قاسم @Eng.Qassim جزاه الله عنا كل خير اخى الفاضل @qathi ركز معى فالخطوات لكى تتعلم قم بانشاء استعلام مبنى على الجدول InvoiceTT وادرج الحقول التى تريدها وضرورى يكون به الحقل رقم الفاتوره InvoiceNum ثم فى المعيار ضع المعيار التالى وهو رقم الفاتوره بنموذج المرتجعات [Forms]![InvoiceReF]![Num] ثم قم بانشاء استعلام الحاق مبنى على هذا الاستعلام وقم بادراج الحقول ثم فى حقل رقم الفاتوره InvoiceNum ضع رقم فاتوره المرتجعات Expr1: [Forms]![InvoiceReF]![InvoiceNum] ثم فى حقل Movement ضع Expr2: [Forms]![InvoiceReF]![Movement] ثم فى زر الحفظ ضع كود تشغيل الاستعلام Private Sub Save_Click() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings 0 DoCmd.OpenQuery "qryInsert" 'DoCmd.OpenQuery "qryInsert_1" DoCmd.SetWarnings -1 Me.Refresh End Sub ثم افتح النموذج وادخل رقم الفاتوره المراد عمل مرتجع لها واضغط زر الحفظ ويمكنك الاختصار بعمل استعلام الحاق فقط كالتالى واليك المرفق بعد التعديل بالتوفيق اخى InvoiceSale_10-1_1.accdb

@ابوخليل @Eng.Qassim شكر وتقدير اشكركم اساتذتي الاستاذ ابو خليل والمهندس قاسم في مساعدتي في حل مشكلتي الله يحفظكم ويوفقكم وان شاء الله في اعلى المراتب والمناصب كذلك اشكر الاخوة @TQTHAMI ,والاخ @AbuuAhmed في مساعدتي الله يحفظكم ويوفكم ان شاء الله

وعليكم السلام.. لدي ربما ملاحظتين..الاولى ان جدول العملاء لايربط مع ذيل الفاتورة وانما براس الفاتورة ثانيا فاتورة المرتجع مربوطة بجدول المبيعات فكيف تريد بدون كميات ..وكيف ستعرف الكميات المباعة من الكمية المرتجعة عملت لك مربعي تحرير باسم العميل ورقم الفاتورة InvoiceSale_10-1.rar

تم تعديل الكود ليأخذ سطرا واحدا Private Sub Command138_Click() Dim i As Object, Msg$, T#, F#, U# For Each i In CreateObject("Scripting.FileSystemObject").Drives With i If .IsReady And .DriveType = 1 Then T = .TotalSize: F = .FreeSpace: U = T - F If Len(Msg) Then Msg = Msg & vbLf & vbLf Msg = .DriveLetter & ":" & " " & .VolumeName & " " Msg = Msg & "(" & .FileSystem & ")" & " " Msg = Msg & "(" & FormatSize(T) & "Tot" & ")" & " " Msg = Msg & "(" & FormatSize(F) & "free" & ")" & " " Msg = Msg & "(" & FormatSize(U) & "used" & ")" End If End With Next If Len(Msg) Then coDesks.AddItem Msg End Sub وهذه وحدة نمطية لارجاع حجم الرقم او ما يسمى السعة Public Function FormatSize(ByVal Size As Currency) As String Const Kilobyte As Currency = 1024@ Const TenK As Currency = 10240@ Const HundredK As Currency = 102400@ Const ThousandK As Currency = 1024000@ Const Megabyte As Currency = 1048576@ Const TenMeg As Currency = 10485760@ Const HundredMeg As Currency = 104857600@ Const ThousandMeg As Currency = 1048576000@ Const Gigabyte As Currency = 1073741824@ Const TenGig As Currency = 10737418240@ Const HundredGig As Currency = 107374182400@ Const ThousandGig As Currency = 1073741824000@ Const Terabyte As Currency = 1099511627776@ Select Case Size Case Is < Kilobyte: FormatSize = Int(Size) & " bytes" Case Is < TenK: FormatSize = Format(Size / Kilobyte, "0.00") & " KB" Case Is < HundredK: FormatSize = Format(Size / Kilobyte, "0.0") & " KB" Case Is < ThousandK: FormatSize = Int(Size / Kilobyte) & " KB" Case Is < TenMeg: FormatSize = Format(Size / Megabyte, "0.00") & " MB" Case Is < HundredMeg: FormatSize = Format(Size / Megabyte, "0.0") & " MB" Case Is < ThousandMeg: FormatSize = Int(Size / Megabyte) & " MB" Case Is < TenGig: FormatSize = Format(Size / Gigabyte, "0.00") & " GB" Case Is < HundredGig: FormatSize = Format(Size / Gigabyte, "0.0") & " GB" Case Is < ThousandGig: FormatSize = Int(Size / Gigabyte) & " GB" Case Else: FormatSize = Format(Size / Terabyte, "0.00") & " TB" End Select End Function Database4.rar

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