ابوخليل

وعليكم السلام تريد الحل على مثالك الأول ام على مثالك الاخير ؟

الحمد لله ... ولكم

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

اعتقد مشكلتكت في المعيار [Item_Code] الموجود في الدالة لان الاستعلام لن يتعرف عليه استبدله بالامتداد الكامل : [Forms]![Parts_Sales]![Item_Code]

انظر هنا فقد تجد فائدة

وعليكم السلام اللي اعرفه اني امرر قارىء الباركود على المادة فيتم ارسال الرقم الى البرنامج والبرنامج بناء على الرقم المدخل يضيف القيمة وباقي البيانات ويطبع الفاتورة كل هذا في اللحظة نفسها ولكن اللي لم افهمه من سؤالك مسألة الكمية لان الكمية متغيرة ويحددها طلب الزبون : هذه غير مفهومة ، هل الكمية تم تسجيلها مسبقا ؟ يعني البرنامج لما وصل اليه رقم المادة عبر القارىء ، من وين ياخذ الكمية ؟ ومن الذي ادخلها ؟ ومتى ؟ عمل الكود يسير ان شاء الله فقط نفهم الفكرة حسب توقعي وفهمي بعد قراءة الموضوع اول والثاني جرب هذا التعديل [Price] = [SalPrice] Me.QtyOut.SetFocus DoCmd.GoToRecord , , acNewRec Me.ProdNoAccTab.SetFocus End Sub

تم التعديل يجب ان تضيف المكتبة المرفقة قبل التجربة جرب ووافنا بالنتيجة SQLDMO.rar

الملف على جهازي _ جوجل درايف استخدم متصفح جوجل كروم

تفضلوا برنامج ادارة حلقة كلمة المرور =1 علما انه يتوفر عندي برامج اكبر واشمل في ادارة الحلقات ولكنها تحتاج الى شرح ومساعدة ودعم عن بعد لمن يريد تركيبها

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

موجود ... في اي بلد انت ؟

هل كتبت المسميات في مكانها الصحيح بدل المتغيرات اكتب لنا هنا المسميات الخاصة بك ، او ارفق المثال بعد تعديلك عليه علما انني لا يمكن ان افيدك جازما في سبب الاخطاء حتى يكون في جهازي sql server اطبق عليه

انت مخير اما ان تزيل الاقواس او تحدد النداء بـــ Call Call DB_Backup(SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription) 'DB_Backup SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription db1.mdb

اخي نموذج FrmOpenInOpenDB هو الخلفية الدائمة للبرنامج او الواجهة الرسمية تضع عليها الشعار وو .. جميع النماذج يتم فتحها من القوائم في شريط الادوات

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

في الوحدات النمطية لن تعدل شيئا الافي هذا السطر والموجود في الوحدة النمطية الأولى If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then سوف تستبدل المتغيرات داخل القوسين بما يناسبها : اسم السكوال / اسم المستخدم / كلمة المرور ثم تنتقل الى حدث الزر في النموذج وتستدعي الوحدة النمطية الاولى هكذا : DB_Backup( ...,...,...,...,...,...,...) ستضع مكان النقط ما يناسبها بدلا من المتغيرات التالية ويجب ان يكون بالترتيب الاول فالاول SQL server name اسم السيرفر عندك Database name اسم قاعدة البيانات عندك Login name اسم المستخدم Password كلمة المرور Backup device name اسم الجهاز الذي سيتم النسخ عليه Backup set name اسم النسخة Backup discription وصف النسخة الثلاث الاخيرة حسب اختيارك

ومشاركة مع الاستاذ العزيز شفان ثلاث خطوات : 1- من خصائص النموذج اعدل الخصيصة : السماح بالاضافة=لا 2- الصق السطر في اعلى كود زر جديد : Me.AllowAdditions = True 3- الصق السطر في اعلى كود زر التالي : Me.AllowAdditions = False New Rec2.rar

غريب كنت اعتقد اني عدلت على المثال ولكن يبدوا انه يوجد خلل في المثال السابق انظر الآن .. App_open3.rar

اخي محمد التميمي (( ومنهم كاتب هذه المشاركة )) اقصد نفسي ,, حيث لا املك في جهازي sql server اخي محمد القدسي جرب هاتين الوحدتين اعتقد افضل من الكود السابق لاحظ الاسطر الخضراء التوضيحية Private oSQLServer As SQLDMO.SQLServer Public Function DB_Backup(ByVal nServer_Name As String, _ ByVal nDB_Name As String, _ ByVal nDB_Login As String, ByVal nDB_Password As String, _ ByVal nBack_Dev As String, ByVal nBack_Set As String, _ ByVal nBack_Desc As String) As Boolean ' nServer_Name = SQL server name ' nDB_Name = Database name ' nDB_Login = Login name ' nDB_Password = Password ' nBack_Dev =Backup device name ' nBack_Set = Backup set name ' nBack_Desc = Backup discription Dim oBackup As SQLDMO.Backup On Error GoTo ErrorHandler Set oBackup = CreateObject("SQLDMO.Backup") If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then oBackup.Devices = "[" & nBack_Dev & "]" oBackup.database = nDB_Name oBackup.BackupSetName = nBack_Set oBackup.BackupSetDescription = nBack_Desc oBackup.SQLBackup oSQLServer oSQLServer.Disconnect DB_Backup = True End If Exit Function ErrorHandler: DB_Backup = False End Function Private Function Connect_SQLDB(ByVal nServer_Name As String, _ ByVal nDB_Login As String, _ ByVal nDB_Password As String) As Boolean ' nServer_Name = SQL server name ' nDB_Login = Login name ' nDB_Password = Password Set oSQLServer = CreateObject("SQLDMO.SQLServer") On Error GoTo ErrorHandler Connect_SQLDB = False oSQLServer.Connect nServer_Name, nDB_Login, nDB_Password Connect_SQLDB = True Exit Function ErrorHandler: oSQLServer.Disconnect Connect_SQLDB = False End Function

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

السلام عليكم اغلب الاخوة لا يوجد sql server على اجهزتهم ومنهم كاتب هذه المشاركة وهذا ضروري من اجل التجربة وبحثت لك ووجدت هذه الوحدة النمطية الخاصة بالنسخ ، آمل ان تلبي طلبك

تمام استاذ حمدي قيد النظر .. والتعديل ...

السلام عليكم وشكرا للاستاذ kanory هذا مثال يوضح كيف تنقل المجموع من النموذج الفرعي الى الرئيسي jadwal6.mdb

اذا قاعدة البيانات مقسمة الى جداول وواجهات واذا انت تعمل على نسخة من الواجهات وليس اختصار افتح على : خصائص النموذج / لسان التبويب بيانات / وغير القيمة : تأمين السجلات إلى " سجل محرر "

السلام عليكم ولماذا الترحيل ؟ الفكرة من اساسها بحاجة الى اعادة نظر .. ( في قواعد البيانات .. لا يوجد نظام متبع يعتمد على نقل البيانات من جدول الى آخر ) نقل البيانات او نسخها يكون في مراحل نهائية ، والافضل من ذلك اخذ نسخة لكامل قاعدة البيانات عن فترة سابقة نأتي الى اصل السؤال : جدول ؟ او جدولين ؟ لانك ان عملت على جدولين فستبقى بيانات كل جدول في مكانها وسوف تجلب البيانات عبر الاستعلامات وفي هذه الحالة انت مضطر لاستخدام استعلامات التوحيد حين تبحث عن الارصدة والحركة الحالية والسكة حتطول حبتين وهذه الطريقة هي المتعارف عليها قد تجدها في امثلة مكروسوفت ، يعني لو تعمل برنامج حسابات ومخازن باستخدام معالج اكسس ستحصل على هذه النتيجة رأيي الشخصي الجدول الواحد اكثر مرونة وأسرع وأخف للبرنامج ، ( علما ان الجدول الواحد يتم تصميمه على اكثر من طريقة ) بالنسبة للمدفوعات.. ربطها با لعميل والمورد رأيي انه افضل لان اغلب البيع والشراء يتم بالآجل ولو كان البيع والشراء نقدا ( مثل نقاط البيع) فربطه بالفاتورة لا يختلف عليه اثنان احببت المشاركة استاذنا بحكم خبرتي البرمجية ولن تستغني عن الاستشارة المحاسبية