أمجد جمالي

السلام عليكم جاري تعديل المثال تحياتي

تفضل هذا هو المثال اخي الكريم اتبع الخطوات التالية لتجريب المثال في خانة DateFrom ضع اي تاريخ وليكن 01/11/2004 مثلاُ في خانة DateTo ضع اي تاريخ في مجال شهر 11 وليكن مثلاً يوم 27 او 28 او 29 عند خروج الماوس من هذه الخانة DateTo سوف يتحقق الكود اذا كان التاريخين ضمن مجال شهر واحد فسوف يسند قيمة هذا الشهر في الحقل Month اذا لم يتحقق هذا الشرط فلنفرض انك ادخلت 01/12/2004 فسوف يعرض رسالة خطأ مفصل فيها سبب الخطأ تحياتي لك وارجو ان يكون هذا هو المطلوب DateDomain.zip

هذا هو ملف الاخ عمر محمد طيب ما هو الغرض من هذه العملية كلها عطيني الي انت تبغاه ممكن انا عملها بطريقة ثانية اسهل تحياتي teest.zip

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

السلام عليكم اخي الكريم بل يوجد ولكي اسهل عليك البحث حماية عن طريق اللوحة الأم ابحث لو سمحت :@ تحياتي

السلام عليكم تفضلي هذا هو المثال المعدل انا عطيتك الفكرة وباقي التعديل عليكي تحياتي TimeDifferenceNew.rar

السلام عليكم ورحمة الله وبركاته تحية طيبة لجميع اعضاء ومشرفي منتدى الاوتلوك سؤالي هو بأنني اقوم بتطوير برنامج مصمم على الاكسيس يرسل ايملات بدفعات كبيرة الى عملائي المشكلة التي اواجهها الأن هي بانني في كل مرة ارسل ايميل تظهر هذه الرسالة التحذيرية اخواني الاعزاء كيف استطيع التخلص من هذه الرسالة المزعجة خصوصاً اذا كنت برسل 5000 ايميل حاولت بالكود من خلال خبرتي في ال VBA لكن دون جدوى وأظن 90 % بأن الموضوع يتعلق بالأوتلوك نفسه وليس بالاكسيس تحياتي لكم

السلام عليكم بإنتظار ردك اخ هشام تحياتي

السلام عليكم الرابط لا يعمل ارسل الثال الى ايميلي الخاص AJamali@acts-alsarh.com تحياتي

السلام عليكم اخ رضوان هل انحلت المشكلة ام لا بإنتظار ردك انا تحياتي

السلام عليكم ورحمة الله ياشباب 70 مليون مصري(مشاء الله) ولا واحد منهم شاف مشاركتي وجرب لا الله الا الله :o سلام

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

السلام عليكم جربت كود الاخ خيال واضفت مكتبة DAO كما اشار الاستاذ ابو هادي هذا هو المثال المعدل تحياتي Hide Teble.rar

السلام عليكم عفواً هذا هو الاصدار الذي حملته من الموقع ياشباب اي واحد من مصر بجرب البرنامج لو سمحتوا ويرد علينا اذا نجح ام لا تحياتي sms22.rar

السلام عليكم ورحمة الله وبركاته بدون ادنى شك عليك بالتحويل الى ADO اليوم قبل غد تحياتي حاول قراءة هذا الموضوع من البداية

اخي الكريم تم حل المشكلة وهي في التصريح عن المتغيرات هنا تكمن المشكلة شوف Dim rst As Recordset الطريقة الصحيحة للتصريح هي Dim rst As DAO.Recordset تحياتي

اخي الكريم تفضل #" & FormatDateTime(Date1, vbShortDate) & "# تحياتي

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

السلام عليكم تفضل هذا مثال على ذلك TimeDifference.rar

السلام عليكم اخي الكريم تقصد الفرق بين زمنين ام الفرق بين تاريخين واذا كان الاول كيف سوف تكتب الوقت في TextBox تحياتي

السلام عليكم اخي الكريم ارفق الملفين الى المنتدى ان امكن او على ايميلي الخاص ajamali@acts-alsarh.com لك تحياتي

السلام عليكم اعتذر اخواني عن تأخير بإرفاق ملف نظراً لضيق الوقت اخ الكريم وليد هذا هو الكود سوف ارفق الملف في القريب العاجل لكي اسهل عليك المهمة تحياتي Option Compare Database Option Explicit Public Const apErrInvalidSQL = -2147217900 Public Const apErrDBCorrupted1 = 3049 Public pstrAppPath As String Public pstrBackEndPath As String Public pstrBackEndName As String Public intRepEdited As Integer Public flgLeaveApplication As Boolean Public Const apProvider = "Provider=Microsoft.Jet.OLEDB.4.0;" Function ap_AppInit() Dim cnnLocal As New ADODB.Connection Dim rstSharedTables As New ADODB.Recordset Dim lngCurrError As Long, strCurrError As String DoEvents DoCmd.Echo True, "Checking Connections..." flgLeaveApplication = False Set cnnLocal = CurrentProject.Connection '-- Section 1: Initialize database properties ap_InitializeDBProps cnnLocal '-- Section 2: User requested to logout, quit the application If ap_LogOutCheck(pstrBackEndPath) Then Beep MsgBox "Maintenance is being performed on the backend" & vbCrLf _ & vbCrLf & "All users are requested to log out at this time.", _ vbOKOnly + vbCritical, "Logging Out for Maintenance" Application.Quit Exit Function End If '-- Section 3: Open the table containing the list of linked tables ' Open employee table. rstSharedTables.Open "tblSharedTables", cnnLocal, adOpenStatic On Error Resume Next rstSharedTables.MoveLast Dim rstTestTable As New ADODB.Recordset Dim strTableName As String strTableName = rstSharedTables!TableName rstTestTable.Open strTableName, cnnLocal, adOpenStatic lngCurrError = Err.Number If lngCurrError = 0 Then Dim varTest As Variant varTest = rstTestTable(0).Name lngCurrError = Err.Number End If strCurrError = Err.Description Do Until lngCurrError = 0 On Error GoTo Error_ap_App_Init Select Case lngCurrError Case apErrInvalidSQL '-- Section 4: If the Data MDB is found in the App Directory, '-- link the files. If Dir(pstrAppPath & "\" & pstrBackEndName) = pstrBackEndName Then ap_LinkTables rstSharedTables, pstrAppPath & "\" & _ pstrBackEndName pstrBackEndPath = pstrAppPath & "\" Else '-- Section 5: Allow the user to locate the BackEnd MDB If Not ap_LocateBackend(rstSharedTables, _ strCurrError) Then flgLeaveApplication = True End If End If Case apErrDBCorrupted1 '-- Section 6: Backend Corrupted. Repair? Beep If MsgBox("The Backend Database is Corrupted." & vbCrLf & _ vbCrLf & "Would you like to log users out and " & _ " attempt to compact/repair it?", vbYesNo + vbCritical, _ "Corrupted Backend!") = vbYes Then DoCmd.OpenForm "ap_CompactDatabase", acForm Else flgLeaveApplication = True End If End Select '-- Section 7: Leave the application if requested If flgLeaveApplication Then Application.Quit Exit Function End If On Error Resume Next '-- Section 8: Let's try and open the first table again. rstTestTable.Open strTableName, cnnLocal, adOpenStatic lngCurrError = Err.Number strCurrError = Err.Description Loop On Error GoTo Error_ap_App_Init '-- Section 9: Check the version of the front end, '-- and point to a new one if necessary. If Not CheckFEVersion() Then Application.Quit End If '-- Section 10: Save the BackEnd path in the BackEndPath property '-- for future use. ap_SetDatabaseProp "LastBackEndPath", pstrBackEndPath '-- Check for locally logged errors ap_ErrorCheckLocal '-- Check for Replicated Tables ap_CheckReplicatedTables '-- Turn on the Monitor Form DoCmd.OpenForm "UserLogOutMonitor", , , , , acHidden DoCmd.Close acForm, "SplashScreen" DoCmd.Echo True rstSharedTables.Close Exit_ap_App_Init: Exit Function Error_ap_App_Init: Beep MsgBox "The following error occurred: " & Err.Description & vbCrLf & _ vbCrLf & "The system will now be closed down!" Application.Quit End Function Sub ap_InitializeDBProps(cnnLocal As ADODB.Connection) Dim rstDBProps As New ADODB.Recordset rstDBProps.Open "ztblDatabaseProperties", cnnLocal pstrAppPath = CurrentProject.Path pstrBackEndName = rstDBProps!BackEndName pstrBackEndPath = rstDBProps!LastBackEndPath rstDBProps.Close End Sub Function ap_LogOutCheck(strBackEndPath) As Integer On Error Resume Next ap_LogOutCheck = Dir(strBackEndPath & "LogOut.FLG", vbHidden) = "LogOut.FLG" End Function Function ap_FormIsOpen(strFormName As String) As Integer Dim frmCurrent As Form For Each frmCurrent In Forms If frmCurrent.Name = strFormName Then ap_FormIsOpen = True Exit Function End If Next frmCurrent End Function Function ap_GetDatabaseProp(strPropertyName As String) As Variant Dim rstDBProps As New ADODB.Recordset rstDBProps.Open "ztblDatabaseProperties", CurrentProject.Connection, adOpenDynamic, adLockOptimistic ap_GetDatabaseProp = rstDBProps(strPropertyName) rstDBProps.Close End Function Sub ap_SetDatabaseProp(strPropertyName As String, varValue As Variant) Dim rstDBProps As New ADODB.Recordset rstDBProps.Open "ztblDatabaseProperties", CurrentProject.Connection, adOpenDynamic, adLockOptimistic rstDBProps(strPropertyName) = varValue rstDBProps.Update rstDBProps.Close End Sub Public Sub ap_LinkTables(rstSharedTables, strDataMDB As String) Dim catCurr As New ADOX.Catalog Dim intTotalTbls As Integer Dim intCurrTbl As Integer Dim strCurrTable As String On Error GoTo Err_LinkTables '-- Get the total number of linked tables, then display the progress meter. rstSharedTables.MoveLast intTotalTbls = rstSharedTables.RecordCount rstSharedTables.MoveFirst SysCmd acSysCmdInitMeter, "Linking Tables....", intTotalTbls catCurr.ActiveConnection = CurrentProject.Connection intCurrTbl = 1 Do Until rstSharedTables.EOF '-- Update the progress meter SysCmd acSysCmdUpdateMeter, intCurrTbl '-- Attempt to open the current link On Error Resume Next strCurrTable = rstSharedTables!TableName catCurr.Tables.Delete strCurrTable catCurr.Tables.Refresh On Error GoTo Err_LinkTables Dim tblCurr As New ADOX.Table Set tblCurr.ParentCatalog = catCurr tblCurr.Name = rstSharedTables!TableName tblCurr.Properties("Jet OLEDB:Link Datasource") = strDataMDB tblCurr.Properties("Jet OLEDB:Create Link") = True tblCurr.Properties("Jet OLEDB:Remote Table Name") = rstSharedTables!TableName catCurr.Tables.Append tblCurr Set tblCurr = Nothing rstSharedTables.MoveNext intCurrTbl = intCurrTbl + 1 Loop Exit_LinkTables: SysCmd acSysCmdRemoveMeter Exit Sub Err_LinkTables: Resume Exit_LinkTables End Sub Public Sub ap_LogOutRemove() On Error Resume Next SetAttr pstrBackEndPath & "LogOut.FLG", vbNormal Kill pstrBackEndPath & "LogOut.FLG" End Sub Public Sub ap_LogOutCreate() On Error Resume Next '-- Create flag file Open pstrBackEndPath & "LogOut.FLG" For Output Shared As #1 Close #1 SetAttr pstrBackEndPath & "LogOut.FLG", vbHidden End Sub Public Function ap_LocateBackend(rstSharedTables, strCurrError) As Boolean Dim ocxDialog As Object ap_LocateBackend = True DoCmd.Echo True Beep If MsgBox("A problem has occurred accessing the linked tables." & _ vbCrLf & vbCrLf & "The error was: " & strCurrError & vbCrLf & _ vbCrLf & "Would you like to locate the backend?", vbCritical + _ vbYesNo, "Error with Backend") = vbYes Then Dim strFileName As String strFileName = ap_OpenFile(pstrBackEndName, "Locate backend database") If Len(strFileName) <> 0 Then DoEvents ap_LinkTables rstSharedTables, strFileName pstrBackEndPath = Left$(strFileName, _ InStrRev(strFileName, "\")) Else ap_LocateBackend = False End If Else ap_LocateBackend = False End If Exit_ap_LocateBackend: Exit Function Error_ap_LocateBackend: ap_LocateBackend = False Resume Exit_ap_LocateBackend End Function Sub ap_CheckReplicatedTables() Dim catLocal As New ADOX.Catalog Dim rstCheckRep As New ADODB.Recordset Dim cmdUpdateRep As New ADODB.Command Dim strTableName As String On Error GoTo Error_ap_CheckReplicatedTables Set catLocal.ActiveConnection = CurrentProject.Connection DoCmd.Echo True, "Checking for Replicated Tables..." '-- Attach the backend replicated table '-- and open the query that shows updated replicated tables On Error Resume Next catLocal.Tables.Delete "tblBackEndReplicatedTables" catLocal.Tables.Refresh On Error GoTo Error_ap_CheckReplicatedTables ap_CreateLinkedTableWithADO catLocal, _ "tblBackEndReplicatedTables", _ "tblReplicatedTables", pstrBackEndPath & _ pstrBackEndName catLocal.Tables.Refresh Set cmdUpdateRep = catLocal. _ Procedures("qryUpdateLastReplication").Command rstCheckRep.Open "qryCheckBackEndReplication", _ CurrentProject.Connection, adOpenStatic '-- If a table has been updated, loop through Do Until rstCheckRep.EOF DoCmd.Echo True, "Replicating " & rstCheckRep!TableName & _ ", Please wait..." '-- Delete the current local table, '-- and import the backend table On Error Resume Next strTableName = rstCheckRep!TableName catLocal.Tables.Delete strTableName catLocal.Tables.Refresh On Error GoTo Error_ap_CheckReplicatedTables DoCmd.TransferDatabase acImport, "Microsoft Access", _ pstrBackEndPath & pstrBackEndName, _ acTable, rstCheckRep!TableName, rstCheckRep!TableName catLocal.Tables.Refresh cmdUpdateRep.Parameters("CurrReplicatedTable") = strTableName cmdUpdateRep.Execute rstCheckRep.MoveNext Loop catLocal.Tables.Delete "tblBackEndReplicatedTables" DoCmd.Echo True '-- Clean up rstCheckRep.Close Exit Sub Error_ap_CheckReplicatedTables: MsgBox Err.Description Exit Sub End Sub Sub ap_CreateLinkedTableWithADO(catCurr As ADOX.Catalog, strDestTableName As String, _ strSourceTableName As String, strDataMDB As String) Dim tblCurr As New ADOX.Table tblCurr.Name = strDestTableName Set tblCurr.ParentCatalog = catCurr tblCurr.Properties("Jet OLEDB:Link Datasource") = strDataMDB tblCurr.Properties("Jet OLEDB:Create Link") = True tblCurr.Properties("Jet OLEDB:Remote Table Name") = strSourceTableName catCurr.Tables.Append tblCurr End Sub Public Function CheckFEVersion() As Boolean Dim cnnNet As New ADODB.Connection Dim rstBEDefault As New ADODB.Recordset '-- Open a connection to the backend database cnnNet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ pstrBackEndPath & pstrBackEndName '-- Open the database properties table rstBEDefault.Open "zstblDatabaseProperties", cnnNet '-- Compare frontend version If rstBEDefault!FrontEndVersion <> _ ap_GetDatabaseProp("FrontEndVersion") Then MsgBox rstBEDefault!FrontEndMessage, vbCritical CheckFEVersion = False Else CheckFEVersion = True End If '-- Clean up rstBEDefault.Close cnnNet.Close Set rstBEDefault = Nothing Set cnnNet = Nothing End Function

السلام عليكم ورحمة الله وبركاته لأنه بنائك للاستعلام خطأ تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم هذه هي النسخة المعدلة تحياتي مثال.zip

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