jjafferr

الله يطول في عمرك اخي الكريم ، يعني كل شخص بتعطيه البرنامج ، بتطلب منه يقوم بتعديل Registry كمبيوتره !! اما انا ، فلا اسمح لأي برنامج ان يلعب او يغير اعدادات كمبيوتري ، واذا البرنامج يطلب مني هاي ، احذفه ، البدائل كثيرة والحمد لله 🙂 جعفر

خليني احاول اقنعك 🙂 اعمل هذه المعادلة البسيطة في النموذج على النقر على Click : Me.txt3 = Me.txt1 + Me.txt2 والآن ، ادخل هذه القيم في الحقلين: txt1 : 1 txt2 : 3.1 واخبرني اذا حصلت على النتيجة الصحيحة عند النقر على الزر 🙂 جعفر

!!

لان المتغير X و Y عبارة عن Variant الشبية للنص String ، بينما انت تريد ان تجمع الرقمين ، فلابد من تحويلهم الى Double او Integer لتتم عملية الجمع بطريقة صحيحة ، فهنا اخبرنا الكود: اعمل تغيير للمتغير X الى رقم: Convert to Double ، او cDbl 🙂 الطريقة المثلى للتعامل مع دوالنا الخاصة (سواء في النموذج او الوحدة النمطية) هي ، ارسال القيمة جاهزة اليها ، اي نضبط القيم قبل ارسالها للدالة ، وفي حال موضوعك هو: عند ارسال المعلومة: If Len(Me.txt1 & "") = 0 Then MsgBox "Please enter a value" Me.txt1.SetFocus ElseIf Len(Me.txt2 & "") = 0 Then MsgBox "Please enter a value" Me.txt2.SetFocus Else Me.txt3 = m(Nz(Me.txt1, 0), Nz(Me.txt2, 0)) End If . فتصبح الدالة: Function m(x As Double, y As Double) As Double m = x + y End Function . ولكن لأنك قلت انك تريد الفحص في الفنكشن ، لهذا السبب شفت محاولات الشباب 🙂 : .. . . من وين وصلتك هذه المعلومة ، فأنا لم اتكلم عنها لا من قريب ولا من بعيد !! في الواقع ، لذة البرمجة هي في عمل الدوال والتي بها يتم اختصار العمل وعدم عمل تكرار للكود 🙂 جعفر

في هذه الخانة بدل عن المعادلة الموجودة عندك ، مع مراعاة تغيير B و C الى اسماء الحقول اللي عندك ، واذا ما عرفت كيف تعمله ، ارفق لنا معادلتك هنا حتى نصححها لك

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى من هنا: منتدي أوفيسنا - قواعد طرح المشاركات (officena.net) جوابا على سؤالك ، احد الطرق ، يمكنك حل المشكلة بإستخدام الامر Replace : [A] = Replace([B],"*","") + Replace([C],"*","") جعفر

اذا لم تكتب نوع المتغير ، فتلقائيا يأخذه الاكسس على انه Variant ، لذا ، مافي داعي تكتب انه Variant 🙂 وبتوسع لما كتبه اخي احمد : Function m(x, y) As Double If Len(x & "") = 0 Then MsgBox "Please enter a value for X" ElseIf Len(y & "") = 0 Then MsgBox "Please enter a value for Y" Else m = CDbl(x) + CDbl(y) End If End Function جعفر

اعتذر منك اخوي عاطف ، فأنا لا املك اي من برامج التواصل الاجتماعي 🙂 وبما ان الموضوع تابع للمنتدى ، تفضل وتواصل معي هنا 🙂 جعفر

لما نقرت على الصورة : . ولكن السؤال ، ليش ما ترفقها في الموضوع مباشرة : في اسفل المشاركة ستجد هذا الشكل : 1. امسك الصورة من مجلدك ، وافلته في اي مكان في المربع الاحمر الكبير (الرقم 1 ) ، 2. او انقر هنا واختار ملفاتك ، وسترى ان الصور جاهزة ، اذهب الى المشاركة ، وفي المكان الذي تريد ان تظهر الصورة ، اترك المؤشر يومض ، 3. انقر على زر + وسترى الصورة في مكان المؤشر ، واذا اردت ان تغير مكانها ، انقر على الصورة في المشاركة واضغط على زر الحذف من الكيبورد ، 4. اما اذا اردت حذف الصورة ، فانقر على زر سلة المهملات 🙂 . جعفر

اخي الفاضل 🙂 هنا منتدى الاكسس لمساعدة المبرمجين الذين يحتاجون حل لمشاكل في برامجهم ، اما اذا اردت عمل برنامج جاهز ، فرجاء افتح موضوع جديد هنا: إعلانات شخصية بأجر للاعضاء - أوفيسنا (officena.net) جعفر

وعليكم السلام 🙂 انا عندي هذه المسطرة العائمة ، ما لها علاقة بالاكسس ، ولكن يمكن الاستفادة منها ، مثلا : عرض هذا الحقل حوالي 5.889 سنتيمتر او المسافة بين السهمين حوالي 5.650 سنتيمتر جعفر ImRuler.zip

وعليكم السلام 🙂 استخدم هذه الجزئية من الكود الذي عندك ، لأن الباقي مافي له داعي ، وهو الذي يبطئ العملية : Private Sub أمر43_Click() Dim LastValue As double ' Dim x As Long LastValue = Me.HNO ' x = Me.ID 'MsgBox x DoCmd.GoToRecord , , acNewRec ' DoCmd.RunCommand acCmdSaveRecord ' DoCmd.RunCommand acCmdRefresh Me.HNO = LastValue + 0.1 ' x = Me.ID ' Me.Requery ' Me.OrderBy = "HNO" 'MsgBox x ' DoCmd.FindRecord x, acAnywhere, , acSearchAll Me.nass.SetFocus End Sub . يعني هاي الاسطر فقط : Dim LastValue As Double LastValue = Me.HNO DoCmd.GoToRecord , , acNewRec Me.HNO = LastValue + 0.1 Me.nass.SetFocus جعفر

وعليكم السلام 🙂 يمكنك استخدام المرفق من هذه الطريقة : كتابة التاريخ بصيغة لا تتغير بتغير اعدادات الوندوز - قسم الأكسيس Access - أوفيسنا (officena.net) . هذا الجدول من الرابط اعلاه ، . اعمل حقل جديد للأشهر في الجدول tbl_Months ، ولنسميه Months_Turish ، وحقل آخر للأيام ، ولنسميه Days_Turkish ، ثم قم بتعبئة الحقول بالاسماء التركية (رجاء ملاحظة ترتيب السجلات حسب الارقام) . الآن يمكنك استخدام المسميات التركية ، سواء في استعلام او بالامر Dlookup كما هو موضح في الرابط اعلاه 🙂 نعم ، انا كذلك لم استطع فتح الملف ، مع اني استخدم الاكسس 2010 مع آخر التحديثات 🙂 جعفر

رجاء ارفاق مرفق لأننا يجب ان نعمل تجارب ، فالافضل عمله على واقع المشكلة 🙂 جعفر

وعليكم السلام اخوي ابو احمد 🙂 بالنسبة لفتح نافذة الوندوز إختيار الملفات ، فهناك طريقة اخرى لا تحتاج الى الكود اعلاه Windows API ، وتجده هنا مثلا: https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=189174 ولكن اذا اردت النظر في الكود الذي ارفقه انت ، فهذه الاسطر من الكود لا تكفي للنظر في المشكلة ، فأنا محتاج الى مثال يعمل ، علشان اضبطه للنواتين 32 و 64بت 🙂 جعفر

هذه الاسطر موجودة سابقا ، ولكن لم تلاحظها ، وتم عمل اللازم لهذه النقطة 🙂 الطريقة الصحيحة هي الاحتفاظ بجدول واحد فقط ، وتم اضافة حقل جديد في الجدول لكي تميز فيه بين سجلات الملفات ، والحقل هو اسم الملف ، وعليه ، تستطيع ان تعرف اي سجل لأي ملف 🙂 الطربقة الجديدة للعمل هي: 1. انقر على الزر ، ويمكنك ان تختار: ملف واحد ، او مجموعة ملفات ، او كل مرة تضيف اي عدد من الملفات ، سترى هذه الملفات في القائمة ، 2. وبعد ان تجهز القائمة ، انقر على هذا الزر حتى تستورد جميع الملفات اعلاه دفعة واحدة (لا تذهب الى الكود لتغيير اسم الملف) ، 3. وبعد ان تحصل على رسالة Done ، يمكنك الذهاب الى النموذج المستمر لترى جميع السجلات القديمة والتي قمت بإستيرادها الآن. . 1. جميع السجلات تظهر لك ، 2. تستطيع ان تختار اسم الملف ، ثم تنقر على زر 3 لإظهار سجلات الملف الذي اخترته ، كما يمكنك النقر مرتين في الحقل 2 ، فيتم تصفية الحقل ، ثم تنقر على الزر 3 لترى جميع السجلات مرة اخرى ، ولا تنسى انك تستطيع استخدام زر الفأرة اليمين على اي حقل ، لفرز و/او تصفية السجلات . جعفر 1322.1.تحويل.accdb.zip

وعليكم السلام 🙂 انا اعرف انك ما تريد هذه الحلول ، ولكني اضعها هنا علشان اللي يرد يعرف انك ما تريد رد مثلها : استعلام عن طريق VBA - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

حياك الله 🙂 الكود يأخذ بيانات حقل جدول الوورد الى المتغير myValue واللي حجمه يسمح ببيانات بحجم حوال 2 جيجابايت فقط ، من رؤيتي السريعة ، نظرت الى بداية ونهاية بعض الحقول ، والنتيجة كانت صحيحة ، اما التجربة والتأكد النهائي فهو عليك 🙂 انا لاحظت بعض الاضافات على حقلي Col_1 و Col_2 ، وحذفتهم بهذا الكود: بدلا عن !Col_3 = myValue جرب !Col_3 = Replace(myValue, Chr(7), "") جعفر

همممم انا الآن جربت جميع روابط الصفحة الاولى ، وجميعها شغال ويتم انزال المرفق !! جعفر

اخي الفاضل: اذا بحثت في المنتدى ستجد الكثير والكثير من المواضيع ، جعفر

اخي عاطف 🙂 كنت اعتقد انك تريد مساعدتنا في عمل تقرير ، واذا بك تريدنا نعمل برنامج !! اذا تريد مساعدة ، فيجب عليك ان تجهز البيانات في صفحات اكسل كالتالي (هذا من واقع البيانات اللي رأيتها) : 1. صفحة لمعلومات الطالب: رقم تسلسل الطالب الاسـم النوع تاريخ الميلاد 2. صفحة بمعلومات المؤسسة: رقم تسلسل المؤسسة التعليمية المؤسسة التعليمية المنطقة الأزهرية الإدارة التعليمية المعهد 3. صفحة لمعلومات الطلب للسنة الدراسية: رقم تسلسل الطالب الحالة الفصل العام الدراسي رقم تسلسل المؤسسة التعليمية 4. صفحة للحضور والغياب: رقم تسلسل الطالب التاريخ حضور/غياب وبعدها ممكن ان نأتي للأكسس 🙂 جعفر

وعليكم السلام 🙂 اذا اردت دمج اكثر من استعلام مع بعض ، فيجب استخدام استعلام التوحيد Union query ، ولعمل استعلام التوحيد: 1. ان يكون عدد الحقول الظاهره لكل استعلام ، هي نفسها لجميع الاستعلامات ، 2. اذا كان ناقصك حقل في احد الاستعلامات ، اضف حقل فارغ ، 3. نستعمل الامر Union او Union All بين استعلام وآخر. جعفر

السلام عليكم 🙂 نستطيع ان نستورد جدول الوورد الى الاكسس مباشرة : . وهذا الكود يقوم بالعمل: Private Sub cmd_From_Word_Click() ' 'https://bytes.com/topic/access/insights/961343-importing-ms-word-tables-into-ms-access-tables-using-vba ' 'modified by jjafferr, 2021-01-07 ' Dim i As Long Dim myValue As String 'Dim appWord As Word.Application, doc As Word.Document Dim appWord As Object, doc As Object Dim dbs As DAO.Database, rst As DAO.Recordset, strDoc As String Set appWord = CreateObject("Word.Application") 'establish an instance of word strDoc = CurrentProject.Path & "\1322.تحويل أكسس.doc" 'set string to document path and file Set doc = appWord.Documents.Open(strDoc) 'establish the document appWord.Visible = False Set dbs = CurrentDb 'establish the database to use (this is our current Database) Set rst = dbs.OpenRecordset("tbl_From_Word") 'establish the recordset With doc.Tables(1) 'target table 1 in People.docx For i = 1 To .Rows.Count 'cycle through rows in Tables(1) [we skip the first row because the table has headers] With rst .AddNew 'creating a new record myValue = doc.Tables(1).Cell(i, 1).Range.Text ![Col_1] = Replace(Replace(myValue, Chr(13), ""), Chr(7), "") 'remove the extra characters myValue = doc.Tables(1).Cell(i, 2).Range.Text ![Col_2] = Replace(Replace(myValue, Chr(13), ""), Chr(7), "") myValue = doc.Tables(1).Cell(i, 3).Range.Text ![Col_3] = myValue .Update 'update the whole record End With Next 'go to next row in Tables(1) End With rst.Close: Set rst = Nothing 'close and clear recordset dbs.Close: Set dbs = Nothing 'close and clear database doc.Close: Set doc = Nothing 'close and clear document appWord.Quit: Set appWord = Nothing 'close and clear MS Word Me.Requery MsgBox "Done" End Sub . ولا تنسى تغيير اسم ومسار ملف الوورد في المتغير strDoc حسب الوضع في كمبيوترك ، جعفر 1322.تحويل.accdb.zip

وعليكم السلام 🙂 هذا معناه ان البرنامج الذي يعمل الباركود ، كان تجريبيا ، وانتهت فترة التجربة ، والآن يجب عليك شراءه 🙂 ولكن هناك بدائل اخرى في المنتدى لعمل الباركود ، مجانا ، فما عليك إلا ان تبحث 🙂 جعفر

السلام عليكم 🙂 فيه مغالطة وعدم وضوح الفرق عند الكثيرين بين حقل الترقيم التلقائي (المعرف الذي ينشأه الاكسس في الجدول) ، وبين حقل تسلسل تلقائي. فحقل الترقيم التلقائي (و كلام اخوي ابو خليل من ذهب 🙂) : اما حقل التسلسل التلقائي ، فهناك طرق لعمله : 1. اذا اردته في التقرير فقط ، 2. اذا اردته في الاستعلام والنموذج ، 3. اذا اردته في الجدول (مثل عمل ترقيم مستمر مثل سندات الصرف ، او فواتير سنوية) : عمل حقل بصيغة رقم (او نص ، حسب المطلب) ، وبرمجيا في النموذج تقوم بإضافة 1 اليه ، وبعدة طرق ، وابسط هذه الطرق : ترقيم تلقائي يتجدد كل سنة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر