-
Posts
1,156 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
8
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عمر ضاحى
-
ما شاء الله موضوع جميل ومتعوب عليه جعله الله فى ميزان حسناتك واشكرك على هذه الطرح الرائع
- 3 replies
-
- 1
-
- ريجيستري
- تلوين محرر الأكواد
- (و6 أكثر)
-
انشاء واجهة html لادخال بيانات في جدول اكسس
عمر ضاحى replied to Radwan0's topic in قسم الأكسيس Access
فى نقطه لازم تكون عارفها اولا يمكن لل PHP الوصول لل Mysql (طبيعيا) (ستطلب معرفة جيده للغة php و css و html) ويمكن للاكسيس الوصول لل mysql ايضا (المحلى) وليس اغلب الاستضافات بسبب الحماية لكن لا يمكن لل php الوصول لقاعدة بيانات اكسيس بالتالى اذا كنت تريد تريد معرفة فكرة لربط الاكسيس مع mysql واستخدام ال php معا يمكن النظر فى هذا الموضوع لكن اذكرك انك بحاجه لكى تفهم لغة php ,css,html واذا وصلت فيهم لمستوي جيد حينها قد تستغني عن الاكسيس تماما والتوجه الى واجهات البرمجه php ف هي عالم اوسع وامكانيته اكبر اتمني ان اكون وضحت لك الافكار واذا كان هناك نقطه لم استوفي الشرح فيها لا تتردد فى سؤالى وان شاء الله اذا كان عندي لك اجابه سوف ارد عليها- 1 reply
-
- 2
-
فعلا لا يمكن تحويل الملف من 64 الى 32 بص انت تنزل نسخه على جهاز وهمي وتسطب فيها اوفيس 32 بت ومنها تفتح الملف وتحول الى accde ف هيكون ان شاء الله شغال عن تجربه
-
الله يساعدك ويقويك
-
النسخه ال 64 بت شغاله تمام معي
-
ايوه اخيرا دا انت طلعت عينا لحد ما نشرت اللعبه تسلم يا كبير
-
مطلوب كود فهرسة لمحتوى عمود فى نموذج بالضغط على عنوانه
عمر ضاحى replied to أحمد العيسى's topic in قسم الأكسيس Access
هذا ليس له دخل بالكود ال معاك هذا شئ تاني مختلف الحمد لله يا هلا يا هلا باخي فادي يا عم انت هنا المبدع فى افكارك ما شاء الله عيك -
مطلوب كود فهرسة لمحتوى عمود فى نموذج بالضغط على عنوانه
عمر ضاحى replied to أحمد العيسى's topic in قسم الأكسيس Access
المطلوب منك هتعلن عن متغير عام على مستوى النموذج Private SortAscending As Boolean هتحتاج الى هذا الصب Private Sub SortRecords(ByVal FieldName As String) Dim OrderDirection As String If SortAscending Then OrderDirection = " ASC" Else OrderDirection = " DESC" End If Me.OrderBy = FieldName & OrderDirection Me.OrderByOn = True SortAscending = Not SortAscending End Sub وفى كل تسميه هتيجي عن حدث عند الضغط وتستدعي الصب مثل SortRecords "Nr" لاحظ انى هنا احتجت اى اسم الحقل (كما هو فى الجدول) لهذا الصب مرفق الملف بعد التعديل db1.rar -
مطلوب كود فهرسة لمحتوى عمود فى نموذج بالضغط على عنوانه
عمر ضاحى replied to أحمد العيسى's topic in قسم الأكسيس Access
هل هذا ما تريد -
تحديث النموذج تلقائيا عند تطابق البيانات في حقلين
عمر ضاحى replied to يونس محمد الخطابي's topic in قسم الأكسيس Access
واياكم يا رب العالمين طيب اذا تم حل المسألة برجاء اختيار افضل اجابة لغلق الموضوع -
ما شاء الله على ابدعاتك تسلم ايديك اخوي 🌹❤️
-
هل تم حل المشكلة معاك ؟ اذا نعم اختر افضل اجابة
-
تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات
عمر ضاحى replied to moho58's topic in قسم الأكسيس Access
الحمد لله تحت امرك -
اخي الحبيب انت لم تضع اى حقول فى النموذج فكيف تتوقع ظور اى نتائج ؟😅 فقط ضيف الحقول وكل شئ شايف شغال تمام
-
تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات
عمر ضاحى replied to moho58's topic in قسم الأكسيس Access
اخي الحبيب @moho58 حسب رسالتك معي على الخاص فان المشكله معاك تحدث عندما تحاول ادراج ملف بعد ان تكتب السنه او اى شئ وهذا يحدث بسبب الاتي وانك عندما تبدأ فى تسجيل مثلا السنه فانك بالفعل مازلت فى وضع السجل الجديد وبالتالى لما تضغط على الزر لتحديد الملف فانك بالفعل ايضا فى وضع السجل الجديد ومفيش معرف تم حفظه جديد علشان يتم الربط به وبالتالى الحل ان تسجل السنه واي شئ اخر انت تريده وتنتقل لاى سجل اخر علشان يتم الحفظ ثم بعدها ترفق الملف ام ممكن تجرب فى حدث بعد التحديث ان تجعل النموذج يعمل Requery مثل هذا الكود Private Sub annee_dossier_AfterUpdate() Form.Requery End Sub Private Sub titre_f_AfterUpdate() Form.Requery End Sub وبكده مشكلتك هتتحل ان شاء الله اتمني ان اكون قدرت اوصل لك المعلومه بشكل صحيح -
تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات
عمر ضاحى replied to moho58's topic in قسم الأكسيس Access
ممكن اعرف هر مش شغال ازاى معاك يعنى ايه الخطأ ال بيظهر لك وهل جربت تعملDebug compare للتأكد ان مفيش حاجه مفقوده -
تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات
عمر ضاحى replied to moho58's topic in قسم الأكسيس Access
بالنسبخ للخطأ فى كود الحذف قمت بتعديله (الذى قمت به اني غيرت ترتيب اجراء الكود وحطيت فى حالة ان الملف غير موجود قد يظهر خطأ فتم معالجته لكي لا يظهر رسالة) المرفق base_mu.rar -
طريقة تحديد عدد السجلات التى يتم عرضها فى صب ريبورت
عمر ضاحى replied to safaa salem5's topic in قسم الأكسيس Access
معلش كنت بعت لكي الكود من غير ما اجربه لاني مكنتش على الكمبيوتر فى النموذج الرئيسي عندك فى Detail فى حدث On Format قومي بوضع هذا الكود Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.H.Report.HasData Then Me.H.Visible = True Else Me.H.Visible = False End If End Sub -
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
العفو تحت امرك 🌹 -
طريقة تحديد عدد السجلات التى يتم عرضها فى صب ريبورت
عمر ضاحى replied to safaa salem5's topic in قسم الأكسيس Access
اولا العفو بس ما رديتى اذا نجح معكي ام لا ثانيا ممكن فى حدث عند الفتح ضعى هذا الكود Private Sub Report_Open(Cancel As Integer) If Me.اسم_التقرير_الفرعي.Form.RecordCount = 0 Then Me.اسم_التقرير_الفرعي.Visible = False Else Me.اسم_التقرير_الفرعي.Visible = True End If End Sub -
التعديل على دالة DLookup او استبدالها بدالة اخرى
عمر ضاحى replied to كريمو2's topic in قسم الأكسيس Access
هنا السبب ان الحقل يقبل الرقم الصحيح حوله لنوع مزدوج -
تعديل على كود حفظ متعدد للوثائق بجانب قاعدة البيانات
عمر ضاحى replied to moho58's topic in قسم الأكسيس Access
اولا اهلا وسهلك بيك اخي الكريم بالنسبه لنقطة انك تريد الحذف لوجود اى بيانات للسجل وليس فقط اسم الملف عدل على شروط الحذف If Not IsNull(FileName) Or Not IsNull(annee_dossier) Or Not IsNull(titre_f) Then اما بالنسبه للنقطة الاولى :- ده بسبب ان الكود فى الاصل بيضيف سجل جديد وليس تحديث ولحلها يحتاج لوضع الكثير من الاحتمالات لكن خلينا نبسط الامور حتى لا تثبح معقده وتأخذ وقت استبدل الكود التالى بكود رفع الملف او فتحه Private Sub cmdUploadOpen_Click() On Error GoTo HandleError Dim folderPath As String Dim subFolderPath As String Dim fileDialog As fileDialog Dim selectedFile As String Dim destinationFile As String Dim recordID As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer folderPath = CurrentProject.Path & "\AttachedFiles" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If recordID = [Forms]![frm_sader_wared]![SN].Value subFolderPath = folderPath & "\" & recordID If Dir(subFolderPath, vbDirectory) = "" Then MkDir subFolderPath End If If Me.NewRecord Then Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = True .Title = "Select Files to Attach" If .Show = -1 Then Set db = CurrentDb() Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset) For i = 1 To .SelectedItems.Count selectedFile = .SelectedItems(i) destinationFile = subFolderPath & "\" & Dir(selectedFile) FileCopy selectedFile, destinationFile rs.AddNew rs!LSn = recordID rs!FileName = Dir(selectedFile) rs.Update Next i rs.Close Set rs = Nothing Set db = Nothing End If End With ElseIf IsNull(Me.FileName) Or Me.FileName = "" Then Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = False .Title = "Select Files to Attach" If .Show = -1 Then Set db = CurrentDb() Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset) For i = 1 To .SelectedItems.Count selectedFile = .SelectedItems(i) destinationFile = subFolderPath & "\" & Dir(selectedFile) FileCopy selectedFile, destinationFile rs.FindFirst "LSn = " & recordID & " AND ID = " & ID If Not rs.NoMatch Then rs.Edit rs!FileName = Dir(selectedFile) rs.Update End If Next i rs.Close Set rs = Nothing Set db = Nothing End If End With Else Application.FollowHyperlink subFolderPath & "\" & Me.FileName End If Form.Requery HandleExit: Exit Sub HandleError: If Err.Number = 16388 Then Exit Sub ElseIf Err.Number = 490 Then MsgBox "لايمكن فتح الملف لانه مفقود" Exit Sub ElseIf Err.Number = 0 Then Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit End Sub