د.كاف يار
-
Posts
1681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو د.كاف يار
-
معرفة نوع الملف لقاعدة اكسس مغير الصيغة
د.كاف يار replied to محمد القدسي's topic in قسم الأكسيس Access
طلبك غير واضح هل تريد ربط البرنامج مع قاعدة بيانات خارجية بصيغة msi ؟ -
برنامج نظام ادارة الاداء عن طريق الأهداف والجدارات الوظيفية
د.كاف يار replied to جدو 83's topic in قسم الأكسيس Access
طلبك غير واضح يفضل ان ترفق ملف المشروع حتى تتضح الصورة -
اتوقع الي عندك موضوع ثاني اكثر من مره اجرب و لا اجدها تعمل في الخلفية بعد الخروج من البرنامج نصيحتي لك لا توسوس امورك طيبة و ما يحتاج تعدل اي شي اذا كانت القاعدة الخلفية تعمل راح تلقاها مفتوحه بجوار القاعدة
-
تفضل التعديل سيتم انشاء مجلد بإسم PDF بجوار الملف نموذج ادخال البيانات1.xlsm
-
صدقت المنطق لإستخدام مثل هذه البرمجيات ان تكون الحقول نصية
-
السبب في اللغة تأكد من اعدادات اللغة الاقليمية في جهازك تابع هذا الموضوع سوف تجد فيه ضالتك
-
اتوقع المشكلة في صلاحيات المجلد ارجوا ممن يواجه مشكلة بأن يزودنا بصورة من رسالة الخطأ
-
مطلوب كود قطع الاتصال بالقاعدة الخلفية
د.كاف يار replied to محمد سلامة's topic in قسم الأكسيس Access
هلابك اخوي محمد سؤال ماهي جملة الاتصال التي تستخدمها ؟؟ -
اها فهمت قصدك اتفضل هذا التعديل فقط اضغط على الحقل الذي تريده و سكون الادخال فيه الارقام.accdb
-
تفضل التعديل و ستكون النتجية في الجدول الارقام.accdb بالإمكان الاستغناء عن ازار = و جعل النتيجة عن النقر على النمذج او اي مكان تريده
-
لأن العمود رقمي لو أردت ان تظهر المعادة يجب ان تحول الحقل الى نص تفضل هذا التعديل فقط على النموذج الارقام.accdb
-
عفوا تم تعديل المرفق الارقام.accdb
-
برنامج الصادر والوارد مفتوح المصدر
د.كاف يار replied to محمد علي الطيب's topic in قسم الأكسيس Access
جرب هذا برنامج الصادر والوارد.zip -
نعم صحيح يا بش مهندس يحتاج لتنسيق لكنها مجرد فكرة لأن السائل لم يوضح طلبه بالتفصيل و الموضوع انشاء الله سهل من خلال الحلقة التكرارية يستطيع تنسيق مايشاء
-
وهذ صفحة من برمجة @أ / محمد صالح اضغط هنا للدخول بإختصار شديد الإحتراف و الإبداع ليس له نهاية مع الأستاذ محمد صالح ماشاء الله لا قوة إلا بالله
-
تفضل هذه مشاركتي اضف ازارا اننشاء تقرير و ضع الشفرة التالية حدث عند النقر Dim ctlLabel As Control, ctlText As Control Dim intDataX As Integer, intDataY As Integer Dim intLabelX As Integer, intLabelY As Integer Dim db As DAO.Database Dim rs As DAO.Recordset intLabelX = 100 intLabelY = 100 intDataX = 1000 intDataY = 100 Set rpt = Application.CreateReport rpt.RecordSource = "TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];" Set rs = CurrentDb.OpenRecordset("TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];") Dim x, x2 As Integer For x = 0 To rs.Fields.Count - 1 Set ctlText = CreateReportControl(rpt.Name, acLabel, acPageHeader, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name & x Set ctlText = CreateReportControl(rpt.Name, acTextBox, acDetail, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name Next rs.Close Set rs = Nothing rpt.RecordSource = "الخزينة_Crosstab"
-
ماشاء الله لا قوة الا بالله تم التعديل القيمة الرقمية ( اضغط هنا للدخول )
-
تفضل طلبك تطبيق على اندرويد و تطبيق على صفحة ويب و للعلم فإن الفكرة مستوحاة من كود أخي @أ / محمد صالح و اخي @محمد أبوعبدالله تحميل تطبيق الأندرويد اضغط هنا و لعرض الفكرة على صفحة ويب اضغط هنا الكود المستخدم هو <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> <style> .center { margin: auto; width: 25%; border: 3px solid green; padding: 10px; font:bold; } .auto-style1 { margin: auto; width: 30%; border: 3px solid green; padding: 10px; text-align: center; direction: rtl; } .input1 { width: 100%; padding: 12px 20px; margin: 8px 0; display: inline-block; border: 1px solid #ccc; border-radius: 4px; box-sizing: border-box; } .inputsubmit { width: 100%; background-color: #4CAF50; color: white; padding: 14px 20px; margin: 8px 0; border: none; border-radius: 4px; cursor: pointer; } .auto-style2 { border-style: none; border-color: inherit; border-width: medium; width: 100%; background-color: #4CAF50; color: white; padding: 14px 20px; margin: 8px 0; border-radius: 4px; cursor: pointer; font-weight: bold; } </style> </head> <body> <form name="myForm" id="form1" runat="server"> <div class="auto-style1"> <input id="numb" class="input1" placeholder="ادخل الجملة او الإسم" style="text-align:right"> <br /> <strong>القيمة الرقمية للمدخلات هي </strong> <div id="demo"><strong>0</strong></div> <strong>الفكرة مستوحاة من من كود المعلم القدير<br /> أ.محمد صالح<br /> و تنفيذ ( د.كاف يار )<br /> <input id="Button1" type="button" value="احتساب القيمة الرقمية" onclick="AddRecord()" class="auto-style2" /></strong> </div> </form> <script> function AddRecord() { const person=document.getElementById("numb").value; let str = document.getElementById("numb").value; let txt = 0; for (let x in person) { txt +=str.charCodeAt(x); } document.getElementById("demo").innerHTML=txt } </script> </body> </html>
-
هذا السؤال منذ سنتين و اكثر اخي الكريم كذلك تمت الاجابة عليه اتمنى لك قضاء وقت ممتع في المنتدى ... شكرا لك .
-
عند ادراج قيمة في مربع نص تحذف قيمة اخرى من مربع نص اخر
د.كاف يار replied to محمد التميمي's topic in قسم الأكسيس Access
تفضل التعديل في حدث بعد التحديث ضع التالي [TexBox1]=Null New.accdb -
طيب اتفضل هذا التعديل في البداية انشى Module جديد و الصق فيه التالي Option Explicit Public Function ClenAllTextBox(FormName As String) As String Dim ctrl As Control For Each ctrl In Forms(FormName).Controls If TypeOf ctrl Is TextBox Then Forms(FormName).Controls(ctrl.Name) = Null End If Next ctrl End Function الاستدعاء في اي نموذج لديك Call ClenAllTextBox(Form.Name)
-
غير صحيح لأنها منطقية لكن التجربة خير برهان جرب و فالك التوفيق و اذا كانت ماهي عاجبتك الغيها و كذلك راح يعمل معك الكود
-
لا يمكن استخدام الكود بهذه الكيفية تفضل الكود بعد التعديل و انصحك بأن تتعلم قراءة الكود لكي تكون على كلم بكل شفرة تستخدمها Sub ClenAllTextBox() Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then Me.Form.Controls(ctrl.Name) = Null End If Next ctrl End Sub و في ازرار الحفظ و في أخر أمر للحفظ استعدي الوظيفة Call ClenAllTextBox
-
تفضل التعديل اسم المستخدم Admin كملة المرور 123 التقارير والبيانات.zip
-
وهذي مساهمتي في الموضوع التقارير والبيانات.accdb التقارير والبيانات.zip
