د.كاف يار

يوم محدد حساب محدد عميل محدد مستند محدد

شوف كيف عندي بالتاريخ ////// بالحساب ///// بالعميل //// بالمستند //// فيه ملحوظة مهمة يابو الحسن فلاتر البحث تنفذ بالأولية اذا الحساب فارغ سيتم تجاوزه و سيتم تنفيذ الكود فقط على الحقول الغير فارغة

اعطيني نسخة من القاعدة الي عندك

لأنه يستخدم API حساب تجاري مدفوع لكن انتظرني لأني ما زلت اعمل علي تصميم سهل بدون الحاجة لتثبيت تطبيق الواتس مثلما شرحت لك في الأعلى كما يوجد العدد من مزودي الخدمة معتمدين لدى فيس بوكwhatsappAPI

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

تفضل هذا التعديل بالنسبة للحذف لو تدقق في جدول الصلاحيات راح تجد عندك عدد 2 أمر للحذف ازرار الحذف صلاحية الحذف 2NewData.zip

تفضل هذه الطريقة Dim db As DAO.Database Dim rs As DAO.Recordset '============== الطلاب ================= Dim MaleTrue As Integer 'الطالاب الناجحون Dim MaleFalse As Integer 'الطلاب الغير ناجخون '============== الطالبات ================= Dim FemaleTrue As Integer 'الطالبات الناجحات Dim FemaleFalse As Integer 'الطالبات الغير ناجحات Set rs = CurrentDb.OpenRecordset("Table1") ' جدول البيانات If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) rs.Edit If rs.Fields("نوع الطالب") = "ذكر" And rs.Fields("نتيجة الطالب") = "ناجح" Then MaleTrue = MaleTrue + 1 rs![رقم الطالب] = MaleTrue ElseIf rs.Fields("نوع الطالب") = "ذكر" And rs.Fields("نتيجة الطالب") = "راسب" Then MaleFalse = MaleFalse + 1 rs.[رقم الطالب] = MaleFalse ElseIf rs.Fields("نوع الطالب") = "انثى" And rs.Fields("نتيجة الطالب") = "ناجح" Then FemaleTrue = FemaleTrue + 1 rs![رقم الطالب] = FemaleTrue ElseIf rs.Fields("نوع الطالب") = "انثى" And rs.Fields("نتيجة الطالب") = "ناجح" Then FemaleFalse = FemaleFalse + 1 rs![رقم الطالب] = FemaleFalse End If rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing

تستطيع التحكم بحجم العنصر برمجيا بكل سهولة من خلال الكود التالي Me.TextBox1.Move(Left,Top,Widh,Height) اقترح عليك ان يتم تضمينها بشرط If Len([TextBox1]) >10 then Me.TextBox1.Move "", "" , 10 * 200 ,"" End if مع ملاحظة أن سوف تتعامل مع العمود و ليس السطر

اتفضل هذا التعديل - يجب ترحيل البيانات بعد الاستيراد بالنسبة لتحرير القيود من الشاشة الرئيسية تستطيع التحرير و لكن يجب اعطاء الصلاحية من خلال شاشة الإعدادات ايش تسفيد من هذا الإجراء لكن فيه طريقة افضل انك تنشئ جدول حفظ بيانات الدخول و تربطه بنموذج تسجيل الدخول و تضع ازرار حفظ بيانات الدخول دائن4.zip لأنك لم تقم بترحيل البيانات المستوردة هذا التعديل دائن4.zip

ايش رأيك نتعاون و ننفذ الفكرة على vb.net لأن بإختصار راح نعمل محاكاة للواتساب بإستخدام محرر Html من خلال MSXML2.ServerXMLHTTP الفكرة ممكن ننفذها في الاكسس و لكني افضل Vb.net or C# كذلك ما تضمن ان العميل يكون مثبت تطبيق الواتساب لكن بطريقة المحاكاة و انك تتعامل مع التاقات يكون التعامل اسهل و تتفادى اي مشكلة

تفضل هذا التعديل اسم المستخدم : Admin كلمة المرور : 123 بالنسبة لإضافة اكثر من قيد تستطيع من خلال استيراد ملف اكسل ابوالحسن4.zip

تفضل التعديل ابوالحسن3.zip

فورم الإستيراد يحتوي على جدول بيانات مستقل عن الاساسي و بمجرد الحفظ يتم نقل البيانات الى الجدول الرئيسي بالنسبة لرقم القيد فهو تلقائي تم تعيينه كمفتاني مميز بإمكانك اضافة عمود جديد لكي تتعامل معه لكن يجب عليك الحفظا على المفتاح الأساسي لسهل عليك عملة التعديل و الحفظ خارج الإطار المنضم تفضل هذا التعديل ملاحظة : لا اعلم ما هي طريقة حساب الدائن و المدين من باب الإجتهاد استخدمة الطريقة كالتالي الرصيد = الدائن - المدين ابوالحسن2.zip

اتفضل هذا التعديل يابو الحسن التعديل في اضافة قيد جديد ابوالحسن.zip

الفيجوال استديوه فيه مرونه كبيرة من ناحية التصميم و استخدام المكتبات الأكسس ضعيف و مخصص للاستخدام البسيط لكن اعطيني طلبك ايش الهدف الي تحتاج توصله ؟؟

اتفضل هذا ملف المشروع WindowsApplication1.zip

ابو الحسن قاعدة اليانات جاهزة لأي تعديل عندك مطلق الحرية في اضافة او تعديل النموذج حسب احتياجك و اذا واجهتك مشكلة راح تجدني في الخدمة

تفضل هذا المثال 1MyData.zip

اتفضل التعديل يا بو الحسن بالنسبة للملخص يعني راح يجمع الدائن و المدين و الرصيد و يطلع ملخص للعميل التفاصيل الي هي العمليات المسجلة حسب التاريخ 3دائن و مدين.rar

تفضل هذا التعديل اولاً / في رأس الصفحة ضع الأوامر التالية Option Compare Database Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ثانيا / انسخ الكود ادناه و ضعه في حدث الأزرار عند النقر On Error GoTo ErrH Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" End If Dim MyFile, DstFile As String Dim Syso As Object MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With rs.Close Set rs = Nothing '================================= Dim ShellApplication As Object Dim CurrentProjectFile As String Dim ZipPath As String Dim ZipName As String Dim ZipFile As String Dim FileNumber As Integer CurrentProjectFile = DstFile ZipPath = CurrentProject.Path & "\Backup\BackupZip" & Format(Now, " yyyy-mm-dd hh.nn.ss") & "\" ZipName = "Backup.zip" ZipFile = ZipPath & ZipName If Dir(ZipPath, vbDirectory) = "" Then MkDir ZipPath End If FileNumber = FreeFile Open ZipFile For Output As #FileNumber Print #FileNumber, Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, vbNullChar) Close #FileNumber Set ShellApplication = CreateObject("Shell.Application") With ShellApplication Debug.Print Timer, "zipping started ..." .Namespace(CVar(ZipFile)).CopyHere CVar(CurrentProjectFile) On Error Resume Next Do Until .Namespace(CVar(ZipFile)).Items.Count = 1 Sleep 100 Debug.Print " ."; Loop Debug.Print On Error GoTo 0 Debug.Print Timer, "zipping finished." End With Set ShellApplication = Nothing Kill DstFile '========================================== MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

تفضل التعديل 2دائن و مدين.zip

تفضل التعديل دائن و مدين.zip

اخي بلال ارفق مثال لكي تجد التجاوب و لكي نسعد بخدمتك و مساعدتك

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

ابو الحسن ايش تقصد بالجهة و الحساب هل من الممكن ام يكون للجهة اكثر من حساب ؟ اذا ( لا ) فهذا يعني انه يجب ازالة احد الجداول لديك اذا ( نعم ) سيتم الاستمرار و الابقاء على نفس الجداول