د.كاف يار
-
Posts
1,681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه د.كاف يار
-
-
-
-
-
1
-
-
-
44 دقائق مضت, abouelhassan said:
وعندما اختارت نوع الحساب مع السنة المالية
لأنه لا توجد سجلات ضمن السنة المالية المسجلة
لكن تفضل تعم تعديل النسة المالية لكي تظهر النتائج
-
1
-
-
جعله الله هذا العمل الجميل في موازين حسناتك
عمل لا توفيه كل معاني الإعجاب
قيمة في الإحترافية والإبداع
شكرا لك و فعلا هذا ما كنت في حاجته و بارك الله فيك و في علمك
-
1
-
-
-
في ٧/١١/٢٠٢١ at 21:55, abouelhassan said:
احتاج لاضافة معيار جديد للفلتر هو نوع الحساب قديم وجديد
شكرا لك على كلماتك الجميلة يابو الحسن
بالنسبة لطلبك غير واضح
هل تريد اضافة بند او عمود جديد يتحوي على قديم و جديد ؟
-
1
-
-
يا اخوان الي جرب المرفق يرجع يحمله من جديد
حيث ان الايميلات بدءت تصلني من كل من قام بتحميل البرنامج و تجربته
تم التعديل ليرسل الى الاميلات المسجلة في الجدول
حيث انه عند التجربة قد وضعت ايميلي الخاص و بالتالي كل من قام بتحميل المرفق اصبحت الايميلات ترسل الي ايميلي بشكل مباشر و تم تعديل خذا الخطـأ
-
5
-
-
مشاء الله جميل
لكن لو كانت مباشرة افضل
اي ان تضع عداد وقت يقوم بالتحديث في في جزء من الثانية
لكي تصبح الدردشة حية
-
1
-
-
10 دقائق مضت, jjafferr said:
وعليكم السلام 🙂
جرب
me.Text6= dcount("*", "request", "[rdate]=#" & format(me.txtsearch.value,"mm/dd/yyyy") & "# And [doctor] ='(ك)'")
او بطريقة اخرى ، ولكنك تحتاج الى دالة DateFormat :
Dim myWhere As String myWhere = myWhere & "[rdate] =" & DateFormat([txtsearch]) myWhere = myWhere & " And " myWhere = myWhere & "[doctor] ='(ك)'" Debug.Print myWhere Me.Text6 = DCount("*", "request", myWhere)
ويمكنك الحصول على الدالة من هنا:
جعفر
اتوقع المشكلة هنا
me.Text6= dcount("*", "request", "[rdate]=#" & format(CDate(me.txtsearch),"mm/dd/yyyy") & "# And [doctor] ='ك'") -
المرفق ليس الا مثال
لكن تفضل هذا التعديل
تم تشفير بيانات تسجيل الدخول الى البريد الإلكتروني
كما يجب من اعدادات الايميل تمكين دخول البرامج الأقل أمانا
بعد التمكين قم بإضافة الايميل و كلمة المرور لقاعدة البيانات
صورة من الإيميل
صورة الشهادة
-
2
-
1
-
-
تفضل هذا التعديل بدون استخدام الأوت لك
ستجد ازرار الضبط بجوار ازرار الإرسال ضع البريد الإلكتروني و كلمة المرور و ابدء في الإرسال
-
3
-
-
المشكلة لديك في لغة الاوفيس اتوقع انها فرنسية
حولها الى العربية او الانجليزية و تنتهي المشكلة
-
1 دقيقه مضت, noor_99 said:
اش تقصد با اكملي البيانات يعني احط بيانات الي سجلتها في somee
نعم صحيح بيانات قاعدة البيانات في سيرفر SOMEE
1 دقيقه مضت, noor_99 said:يعني هل المستخدم الثاني لازم يحط الباس واسم المستخد واسم السيرفر
لا الموضوع فقط كمثال للإتصال لأن بطبيعة الحال بيانات الدخول ستكون ضمن الكود
فعند الاتصال للتعديل او الإضافة أو الحذف أو الإستعلام أو عرض البيانات
يتم الاتصال بالسيرفر من خلال الكود دون تدخل المستخدم
تماما مثل هذا المننتدى اوفيسنا فكل ما يحتويه مخزن ضمن قاعدة البيانات و انتي حين تدخلين على الموضوع تقومي بالإتصال بقاعدة البيانات و جلب السجل المرتبط بالموضوع
كذلك يمكن الإكتفاء بربط قاعدة بيانات اكسس بالسيرفر بشكل مباشر لكني لم اجرب التعديل و الإضافة بشكل مباشر للأسف
-
-
2
-
-
-
2
-
-
9 ساعات مضت, مدحت توفيق said:
ولكن كيف يمكن معرفة السريال المتبقي مع العدد المتبقي حسب كود الكتاب مثلا
تفضل هذا التعديل
-
2
-
-
8 دقائق مضت, salim07 said:
سلام عليكم اخي جعفر .
عندي طلب مساعدة لديا بيانات في جدول اريد تصديرها للاكسيل وتكون في جدول مثل جدول الاكسس .
هذه الييانات يتم تصديرها شهريا يعني كل شهر تتغير يعني كل شهر يتم تصدير التي سجلت في هذا الشهر فقط وليس كل البيانات . اريد طريقة للتصدير ان امكن .
لقد قمت بإغلاق السؤال
في حال تم اغلاق السؤال لن يلتفت احد بعد ذلك للموضوع
انصحك بفتح موضوع جديد يتضمن السؤال او الاستفسار الذي تريده
شكرا لك
-
1
-
1
-
-
للأسف يبدوا انه لدي مشكلة في فهم سؤالك
يرجى اعادة شرح المطلوب بصورة مبسطة
هل تريد التغيير على القيم الأساسية ؟
ام هل تريد الحاق نسخة من القيم الأساسية لكل سجل بحيث تكون لكل سجل قيمة فريدة مستقبلة به
-
1
-
-
8 ساعات مضت, noor_99 said:
واضفت زر لجلب البيانات وحطيت الكود الزر بس طلع هذا
هذا الكود فقط كمثال يجب ان تضعي المعطيات للكود للحصول على نتيجة
ServerAddress=عنوان السيرفر ServerUserName = اسم المستخدم الخاص بالسيرفر ServerPassword = كلمة المرور الخاصة بالسيرفر Call SQL_String("ServerAddress", "ServerUserName", "ServerPassword")كما يجب اضافة المكتبة الخاصة بالإتصال البعيد
او ارفقي مثال لكي يتم التعديل عليه
-
-
2
-
-
لجلب البيانات من السيرفر استخدمي الرابط التالي
الصقي الكود التالي في آخر محرر الأكواد
Private Function SQL_String(ServerAddress As String, ServerUserName As String, ServerPassword As String) As String Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnString As String strConnString = "Provider=SQLOLEDB;Data Source=" & ServerAddress & _ ";Persist Security Info=True;User ID=" & ServerUserName & ";Password=" & ServerPassword & ";" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("SELECT * FROM aqsam111") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) [TextBox1] = rs.Fields(0).Value [TextBox2] = rs.Fields(1).Value [TextBox3] = rs.Fields(2).Value [TextBox4] = rs.Fields(3).Value [TextBox5] = rs.Fields(4).Value rs.MoveNext Wend End If rs.Close Set rs = Nothing End Functionو في ازرار جلب البيانات
Call SQL_String("ServerAddress", "ServerUserName", "ServerPassword") -
1 ساعه مضت, noor_99 said:
١-هل الاستضافة المجانيه لها وقت وتنتهي ؟؟؟
حاليا نعم و هي مجانية الى الأبد او حتى تقوم الشركة بتغيير سياستها
1 ساعه مضت, noor_99 said:٢- انا الحين رفعت الجداول على الموقع شلون اتعامل مع الفورم والتقارير او شلون اخليهم متصلين؟ بالقاعدة البيانات
ممتاز جدا حاليا اتبعي الطريقة في الرابط التالي لربط الأكسس مع قاعدة البيانات في السيرفر الخارجي
1 ساعه مضت, noor_99 said:٣- اقدر الحين مثلا استخدم واجهة الاكسس وبعدها استخدم واجهة VB.Net او ASP.Net
بالتأكيد نعم و بهذه اللغات يكون الاستخدام اسهل من الأكسس بكثير
اضافة معيار جديد للفلتر ببرنامج الدائن وتصديرالى الاكسيل
في قسم الأكسيس Access
قام بنشر
تفضل التعديل
الدائن و المدين.zip