ابو جودي

اتفضل شوف الكود ياللى على زر الامر اضافة دى اكواد تخص ادارة الاقساط مالها ومال الورادى للموظفين انا مش فاهم حاجة Dim strSQL As String strSQL = "DELETE G2.[رقم القسط], G2.رقم, G2.التاريخ, G2.المبلغ1 ,G2.المبلغ, G2.[المبلغ كتابه] FROM G2 WHERE (((G2.رقم)=[FORMS]![f1]![رقم]));" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings False Me.Requery Refresh DoCmd.GoToRecord , , acFirst For i = 0 To Forms![f1]![no] - 1 Me.رقم = Forms![f1]![رقم] If Form_f1.القسط.Value = "يومي" Then Me.التاريخ = DateAdd("D", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "شهر" Then Me.التاريخ = DateAdd("m", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "اسبوع" Then Me.التاريخ = DateAdd("WW", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ثلاث اشهر" Then Me.التاريخ = DateAdd("Q", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "سنة" Then Me.التاريخ = DateAdd("yyyy", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ستة اشهر" Then Me.التاريخ = DateAdd("Q", i * 2, Forms![f1]![Date]) DoCmd.GoToRecord , , acNext Next DoCmd.Requery

طيب ممكن المرفق

بص البرمجة عاملة زى معادلة الرياضة معطى مجهول = ( مطلوب ) 5 + ( مجهول) = 10 لما تتزن المعادلة ويتحقق الشرطان وجود المعطى ومعرفة النتيجة يسهل الوصول لتحقيق الحل بوضع الالية المناسبة لايجاد لمجهول

اين المرفق ؟

طيب والبرنامج يوزع الورديات ازاى ؟

وهذا التعديل على مرفق استاذى الجليل و معلمى القدير والدى الحبيب الاستاذ @jjafferr المرفق يتم من خلاله استيراد ملف CSV او اكثر من ملف فى وفت واحد يتم فصل الوقت والتاريخ كل منهما حقل منفصل وجمهما معا يستطيع اخونا الكريم الاستاذ saffar اختيار ما يريد ومن ثم يكمل عمله بكل سهولة بعد ذلك ImportExcel (jjafferr) Correc Date Format.zip

الموضوع سهل جدا انشاء جدول بالتنسيقات التى يريدها واستعلام الحاق من الجدول timestamp الى الجدول الاخر ! ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد ان لم يستطع التنفيذ فقط من باب المصلحة العامة

يعنى تريد جمع عدد ساعات كل موظف من وقت حضوره الى انصرافه ؟ واللا تقصد جدول ورديات ؟

مشكلة شنو انت طلبت استيراد من ملف الى csv الى جدول اعتقد ان العملية تمت بنجاح اذا بدك شئ تانى فضلا وكرما افتح موضوع جديد كل موضوع يخص سؤال واحد فقط رجاء الاهتمام بقوانين وقواعد المشاركات ليسهل الوصول مستقبلا الى المعلومة

طيب انت تجكى الدالة لا تعمل معك ياللى بالاستعلام سيبك منها خلينى افهم انت ايش بدك تحسبه ايه هى المعطيات ياللى اشتغل عليها فى الحساب منشان نخصل على النتيجة لو تكرمت اطتب لى مثال هنا نظرى منشان اقدر افهم عليك يعنى مثلا من تاريخ 1/1/200 الى تاريخ 5/1/2020 يساوى كم يوم .... المفروض 5

اخى الحبيب اولا رجاء الاهتمام بقواعد وقوانين المشاركات ومنها - اختيار اسم مناسب دال على الموضوع - البحث عن طلبك بالمنتدى قبل الشروع بوضع موضوع علك تجد طلبك وعلى كل حال اليك رابط البحث داخل المنتدى والذى يخص الاقساط https://www.officena.net/ib/search/?q=الأقساط&quick=1&type=forums_topic&nodes=89

بصراحة لم افهم شئ

شرخ فكرة الجماية 1- اغلاق قاعدة الجداول و القاعدة الامامية بكلمة مرور ويتم كالاتى فتح تطبيق الاكسس نفسه من من قائمة ابدا نختار فتح نحدد قاعدة البيانات المراد اضافة كلمة مرور لها ملاحظة هامة لا بد من فتحها حضريا من حلال الضغط على السهم الصغير لتخرج تلك القائمة كما فى الصورة ونختار منها الفتح حصريا ومن قائمة ملف نختار رمز اضافة كلمة المرور وفى هذه الشاشة نكتب كلمة المرور ثم نعيد كتابتها مرة اخرى للتأكيد تلك الخطوات يتم عملها لكل من القاعدتين الامامية والخلفية ان كنت قسمت قاعدة البيانات الان ملاحظتان مهمتان جدا جدا جدا - عند كتابة كلمة مرور لابد ان تحتوى على حروف صغيرة + حروف كبيرة + ارقام + رموز مثال 135MoHa(^_*)MmEd246 2- لحماية الكائنات والنماذج وعدم الاطلاع على تصميم القاعدة يتم اخفاء اطار الاكسس نهائيا 3- فى حال تقسيم قاعدة البيانات طبعا يتم وضع اكواد الربط بين القاعدة الامامية والخلفية برمجيا الان قاعدة بيانات تشغيل التطبيق وهى محور الموضوع هى قاعدة وسيطه فقط تمرر كلمة المرور برمجيا للقاعدة الاساسية ليتم فتحها دون المطالبة بكلمة مرور من خلال الكود الاتى الذى يتم وضعه داخل نموذج ويتم فتح النموذج تلقائيا عند فتح القاعدة اما من خلال الاعدادت او ماكرو autoexec طبعا يتم تحويل القاعدة الى Accde وذلك حتى لا يطلع احد على هذه الاكواد ويستطيع معرفة كلمة مرور فتح القاعدة وبذلك 1- المبرمج فى اى وقت له القدرة على فتح القواعد لاجراء اى تعديلات او تحديثات هو فقط يعرف كلمة المرور 2- لا يستطيع احد الوصول الى بيانات داخل الجداول وبذلك تم تأمين بيانات العميل اصلا 3- لا يستطيع احد الوصول الى التصميمات بطرق غير مشروعة ملاحظة قمت بكسر حماية قاعدة mdb بمعرفة كلمة المرور ولم استطع ذلك مع accdb ومن اجل ذلك انصح باعتماد قواعد البيانات بتنسيق accdb Option Compare Database Option Explicit Const strPasswordDB = "كلمة المرور" Private Sub Form_Load() On Error GoTo Err_BtnRunMyDB_Click Dim strPathTablesDB As String Dim strPathAppDB As String Dim strPasswordDB As String Dim accessApp As Access.Application Dim db As DAO.Database Dim MsgTitl As String Dim MsgErorTbl As String Dim MsgErorErorApp As String Dim MsgErorTblAndApp As String Dim MsgCallDesign As String MsgTitl = "تنبيه" MsgErorTbl = "تم فقدان قاعدة بيانات الجداول او تم التلاعب باسم القاعدة" MsgErorErorApp = "تم فقدان قاعدة بيانات التطبيق او تم التلاعب باسم القاعدة" MsgErorTblAndApp = "تم فقدان قاعدة بيانات الجداول او قاعدة التطبيق او تم التلاعب باسم القواعد" MsgCallDesign = "يرجى الإتصال بمصمم التطبيق" strPathTablesDB = Application.CurrentProject.Path & "\TablesArchivingDB.accdb" ' <<----< مسار قاعدة الجداول strPathAppDB = Application.CurrentProject.Path & "\Archiving.accdb" ' <<----< مسار القاعدة الامامية If FileExist(strPathTablesDB) Or FileExist(strPathAppDB) Then If FileExist(strPathAppDB) Then Dim MyDb As Database Set MyDb = OpenDatabase(strPathAppDB, False, False, ";PWD=" & strPasswordDB) Call ChangeProperty("AllowBypassKey", dbBoolean, False, MyDb) If FileExist(strPathTablesDB) Then Set accessApp = New Access.Application With accessApp .Visible = True .UserControl = True .RunCommand acCmdAppMaximize DoCmd.RunCommand acCmdAppMaximize Set db = .DBEngine.OpenDatabase(strPathAppDB, False, False, ";PWD=" & strPasswordDB) .OpenCurrentDatabase strPathAppDB End With db.Close Set db = Nothing Set accessApp = Nothing Application.Quit Else MsgBox MsgErorTbl & Chr(13) & Chr(10) & MsgCallDesign, vbMsgBoxRtlReading + vbMsgBoxRight + vbOKOnly, MsgTitl Exit Sub End If Else MsgBox MsgErorErorApp & Chr(13) & Chr(10) & MsgCallDesign, vbMsgBoxRtlReading + vbMsgBoxRight + vbOKOnly, MsgTitl Exit Sub End If Else MsgBox MsgErorTblAndApp & Chr(13) & Chr(10) & MsgCallDesign, vbMsgBoxRtlReading + vbMsgBoxRight + vbOKOnly, MsgTitl Exit Sub End If Exit_BtnRunMyDB_Click: Exit Sub Err_BtnRunMyDB_Click: MsgBox Err.Description Resume Exit_BtnRunMyDB_Click Exit Sub End Sub Public Function FileExist(strPath) As Boolean If Dir(strPath) <> Empty Then FileExist = True Else: FileExist = False End Function Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant, dbs As Database) As Integer Dim prp As Property Const conPropNotFoundError = 3270 On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function

اتفضل OpenArgs.mdb

اتفضل اخفاء القيم المختارة لنفس التاريخ من مربع السرد.mdb

Connect To Network (2003).mdb

ممكن مرفق بسيط

اتفضل البحث فى القران الكريم.zip

لا يا اخى الكريم المرفق الاول كانت بداية الافكار فضلا وكرما وليس امرا قم بتجربة هذا المرفق النهااااااااائى و اخبرنى بنتيجة التجربة رجاء تعديل.zip

ممكن تشرح حضرتك عملت ايه او استخدمت انهو مرفق حضرتك متأكد ان حضرتك استخدمت المرفق الأخيــــــــــــــــــــــــر والنهائى تعديل.zip

لا خالص ما فى اى فرق النتيجة واحدة ولكن لو كنت اريد تكرار الطريقة مع اكثر من مربع سرد سوف تكتب كل تلك الاسطر مع كل مربع ولكن ان كان الكود فى الموديول يكتب مرة واحدة ويتم فى كل مرة كتابة سطر واحد لاستدعائه Call CmboNotInList("tableName", "FieldName", NewData, Response) وكل الطرق تؤدى الى روما

ممكن صورة من القاعدة بعد فتحها بالشيفت كما تفضلت المرفق فيه 3 قواعد 1- القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb 2-القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb 3- قاعدة تشغيل التطبيق -----------------------------------------------------------Run My App.accde انت متأكد ان دى هى يا اللى فتحت معاك ؟؟؟؟؟ ودى صورة من القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb

قضلا وكرما وليس امرا اخى الحبيب ومعلمى واستاذى الجليل استاذ @أبو عبدالله الحلوانى ممكن تعيد التجربة وتوافينى بالنتيجة تعديل.zip

أضف اختيارا إلى قائمة مربع التحرير والسرد عن طريق إضافة سجل إلى الجدول الخاص بمصدر الصف في حدث NotInList لمربع التحرير والسرد. الكود داخل الموديول Public Sub CmboNotInList(ByVal strTableName As String, ByVal strFieldName As String, ByVal strNewData As String, ByRef intResponse As Integer) On Error GoTo Proc_Err Dim sSQL As String Dim sMsg As String intResponse = acDataErrContinue sMsg = """" & strNewData & """ is not in the current list. " & vbCrLf & vbCrLf & "Do you want to add it? " If MsgBox(sMsg, vbYesNo, "Add New Data") <> vbYes Then GoTo Proc_Exit End If sSQL = "INSERT INTO [" & strTableName & "] " & "([" & strFieldName & "])" & " SELECT """ & strNewData & """;" With CurrentDb .Execute sSQL If .RecordsAffected > 0 Then intResponse = acDataErrAdded End If End With Proc_Exit: Exit Sub Proc_Err: MsgBox Err.Description, , "ERROR " & Err.Number & " CmboNotInList" Resume Proc_Exit Resume End Sub يتم استدعاء الكود فى الحدث >>------> عند عدم الوجود فى القائمة - NotInList من خلال الكود الاتى Call CmboNotInList("tableName", "FieldName", NewData, Response) المرفق Not In List.mdb

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