Shivan Rekany

تأکد من نوع قاعدة بياناتك هل هو mdb او accdb وغيره في الكود

في خصائص ( فورمات ) للمربع نص اكتب هذا YYYY/MMM

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

اتفضل اليك هذا Private Sub Command0_Click() Dim NameTblimport As String Dim txtpathfile As String NameTblimport = "Table" ' اسم الجدول المراد استيراده txtpathfile = Application.CurrentProject.Path & "\b.mdb" ' مسار قاعدة البيانات التي بها الجدول DoCmd.DeleteObject acTable, NameTblimport DoCmd.TransferDatabase acImport, "Microsoft Access", txtpathfile, acTable, NameTblimport, NameTblimport, False End Sub DeleteAndImportTableFromAccess

هل هذا الرقم قو للشهر وتريد خصم ثلاثة ايام ؟ اذا نعم اليك هذا 18752.87 / 30 = 625.095 625.095 * 3 = 1875.285 اي يعني المعادلية سيكون كالتالي ( 18752.87 / 30 ) * 3 = 1875.285 خصم ثلاثة ايام

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

سنفترض ان تسمية الحقل الاسم عندك هز (MyNmae) استحدم هذا الكود في حدث الحالي Private Sub Form_Current() If Len(Me.MyName & vbNullString) > 0 Then Me.MyName.Locked = True Me.MyName.Enabled = False Else Me.MyName.Locked = False Me.MyName.Enabled = True End If End Sub

هناك 2 طريقة امامك 1 / حذف الجدول الاول و ادراج اي امبورت الجدول الثاني اذا الجدول الثاني يكون مصممة بالكسس او اكسل مثلا 2 / حذف البيانات في جدول عندك و ادراج البيانات فقط اللي في جدول الثاني اي امبورت البيانات فقط لكن حسب ما اشوف ان الطريقة الثانية احسن واذا تبحث في المنتدى راح تشوف الموضوعات عن امبورت

اتفضل اليك هذا المورد (1).rar

فقط للعلم الدالە Switch يعمل كما يعمل دالة iif لکن ستکتب مرە واحدة فقط هكذا =Switch([k2]<[fx];[k2]*[rx];[k2]>=[fx2] And [k2]<=[fx3];[k2]*[rx2];[k2]>[fx3];[k2]*[rx3]) Switch.accdb

ما قمت بھ کل الاساتذ الكرام هو نفس النتيجة و العيب كان في مربع نصي اللي باسم k2 غير خاصيته فورمات الى General Number و ستجد ان كل الاكواد مضبوطة تقبلوا تحياتي iif.accdb

=IIf([k2]<[fx];[k2]*[rx];IIf([k2]>=[fx2] And [k2]<=[fx3];[k2]*[rx2];[k2]*[rx3])) iif.accdb

نحن هنا لكي الكل يستفيد و يعلم اشياء جديدة اتفضل اليك هذا الرابط به شرح بسيط و راح تعرف كيف ستنقذ ان شاء الله الأكسس-32-بت،-64-بت

حتى الان ماشي الحال لكن المثال محير شوف هل يعني ان اليوزر اي رقم 4 دخل الى الشركة في يوم 30-9-2018 ولن خرج منه و بعدين في يوم 2-10-2018 دخل الى الشركة من جديد اذا كيف دخل من جديد في يوم 2-10-2018 ولن خرج منه من قبل اي في 30-9-2018 وبعده ؟

واليك هذا الرابط لعله تستفيد منه في المستقبل مثال يعمل على اكسس 32 بت و 64-بت

كما اشار استاذ @Khalf اذا كان هناك اختلاف الاصدار بين الجهازين اتفضل اليك هذا الرابط راح تستفيد منه للمستقبل https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/

هناك ثلاث حالات اولا : مواد بها بالكارتون و العلبة و الحبة -- نقدر نقول ( عنده ثلاث مستويات ) ثانيا : ليس لها كارتون فقط بالعلبة و الحبة -- ( عنده 2 مستوى ) ثالثا : ليس لها كارتون و العلبة فقط بالحبة -- ( مستوى واحد ) اي هنا قصدنا بالكارتون يعني اكبر من العلبة و اكبر من الحبة هنا ملاحظة : لا يجوز ان تكتب رقم اكبر من الصفر في الكارتون و تعطي رقم صفر في العلبة , بدل ذلك يجب ان تكتب في الكارتون صفر و العلبة الرقم الاخراذا كان في ذلك المواد 2 مستوى

اليك الصور كجواب بيعطيك رقم الحبات وهو 299 حبة شكرا لك

والجواب والجواب نعم

ليس هناك فائدة لهذا اذا ما يستفيد من تحويل الصيغة الى ACCDE او MDE تحويل القاعدة الى احد الصيغ الاعلى هو احسن طريقة ممكنة حتى الان

شكرا لك استاذ ابو ياسين شكرا لك استاذ حلبي ... ان شاء الله هذا الموضوء يسهل عليكم العمليات في القاعداتكم فينا و فيكم اجمعين ... شكرا شكرا لك استاذ محمد نجار

السلام عليكم ورحمة الله وبركاته في هذا الموضوع نريد ان نقوم بتحويل الرصيد المتبقية من المواد الى عدد العلبات و الكارتونات كم نعرف جيدا احيانا سنشتري اشياءاً بالحبة او العلبة و بها عدد من الحبوب او سنشتري بالكارتون و بها كم علبة من العلبات الحبوب لذلك قمنا بفتح هذا الموضوع لعل وعسى ان يكون هناك شخص ان يستفيد منه ........ في البداية قمنا بعمل جداول المطلوبة للشراء والبيع على الرغم ان هناك حقول لازم ان يكون متواجدة للعمل شراء والبيع لكن احنا عملنا حسب احتياجنا لكي نشرح الموضوع و هناك نقطة مهمة ... هنا كالعمل سنستخدم حبة للشراء والبيع والجدول المواد سيكون كالصور الاسفل اذا نلاحظه هناك حقل تسلسل و حقل كود المادة و اسم المادة و بيان عدد العلبات في الكارتون و البيان عدد الحبات في العلبة وعطيتنا لكلا الحقلين الاخيرين رقم صفر كرقم افتراضي احيانا سنشتري اشياءا ليس لهم كارتونات او العلبات فقط سنشتري بالحبة لذلك للمواد كهذا راح نضع رقم صفر -------- والان اشترينا المواد مرتين الاول اشترينا 4000 ميترو و اشترينا 187 بطل ماء وبعدين اشترينا 267 ميترو و اشترينا 188 بطل ماء و اشترينا 3220 اقلام اي يعني بالاجمالي اشترينا 4267 ميترو 375 بطل ماء 3220 قلم ------------ وبعدين بيعنا هذه العدد من المواد بعنا 200 ميترو و 134 قلم و 76 بطل ماء -------------- وفي الاخير قمنا بعمل استعلام الرصيد المتبقية بالحبة لكل مواد والان سنحسب الرصيد بالحبة 4267 - 200 = 4067 ميترو 375 - 76 = 299 بطل ماء 3220 - 134 = 3086 قلم شوف الاستعلام هناك اعمال كل مواد لديهم بالكارتون و العلبة و الحبة , من عندهم كل شي بالكارتون والعلبة والحبة يقدر يستخدم استعلام بالاسم QResid ومن عندهم مواد ليس لهم كرتون او علبة خلي بيستخدم استعلام QResid1 و يستخدم رقم صفر لتلك المواد وفي الاخير سنحول الحبات الى عدد الكراتين و العلبات بواسطة هذا استعلام خلي نتاكد من عملنا هل هو صحيح ام لا رصيد المتبقي من الميترو كان 4067 و كل علبة يساوي 24 حبة و كل كارتون يساوي 12 علبة اذاً عندنا 14 كارتون المتبقية * 12 عدد العلبات في الكراتين * 24 عدد الحبات في العلبة = 4032 حبة و 1 علبة * 24 علبة= 24 علبة و 11 حبات اذاً 4032 + 24 + 11 = 4067 وهذا الرقم صحيح المادة الثانية : pen قلم عدد الکراتین المتبقية 2 * 100 عدد العلبات في الكراتين * 12 عدد الحبات في العلبة = 2400 عدد العلبات المتبقية 57 * 12 عدد الحبات المتبقية = 683 و 2 عدد الحبات المتبقية المجموع = 2400 + 683 + 2 = 3086 وهذا الرقم صحية المادة رقم 3 : بطل ماء ليس لنا كراتين للماء اي يساوي صفر وعندنا 37 علبة وفي كل علبة يساوي 8 حبات اي 37 * 8 = 296 حبة و 3 حبات المتبقية اي المجموع = 296 + 3 = 299 وهذا الرقم ايضا صحيحة ولان ليس لدي وقت كافي اليوم غدا ان شاء الله سارد على الردود والمواد ك بطل ماء و الميترو القم تم استخدامه فقط للفهم و للمثال 😃 واليكم القاعدة لمعرفە عدد الکارتونات و الوحدات -.mdb تم استبدال المرفق و تصحيح الاستعلام الرصيد المتبقية بالحبة

پێدڤی ناکەت ... دخزمەت داینە لا داعي للشكر ... نحن بالخدمة سوپاس بوتە ... خوشتر شكرا لك ... اعتذر من الادارة الموقع نحن كلمنا هنا باللغة الام الكردية تحياتي للجميع 😃

اتفضل test (1).mdb

حسب ما قرأت الردود انا لا اعرف بالضبط ماذا تريد لكن عملت لك كما فهمت من الموضوع وفكرت انك تريد ان يظهر لك رسالة بارقام السجلات اللي حقل namestudient بها فارغ لذلك اليك هذا Private Sub أمر6_Click() Dim rst As DAO.Recordset Dim bb As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then MsgBox (rst!idstudient & " هناك حقل فارغ للرقم ") End If rst.MoveNext Next i End Sub واذا بعد ما وصلت للمطلوب وضح سؤالك اكثر فحص حقل فارغ.rar