اذهب الي المحتوي
أوفيسنا

Foksh

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,155

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    78

 نوع المحتوي 

كل منشورات العضو Foksh

  1. Foksh
    لنجرب اعادة ترتيب الأحداث .. لأ المرفق عندي يعمل 100% في جهازي في العمل Private Sub scan1_Click() [picfile] = Null On Error Resume Next If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub Else Dim filelocation As String ' متغير موقع الملف filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg" 'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg" Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.picfile = filelocation Me.Refresh End If End Sub
  2. Foksh
    طبعاً للأمانة أمام الله ، هذه الفكرة تم استخدامها وإضافتها من أحد ملفات أستاذنا @ابو جودي ، جزاه الله خير طبعاً
  3. Foksh
    ارجو اختيار أفضل إجابة لصاحب حل المشكلة أخي @أبو أحمد واعتقد هو الأستاذ @kkhalifa1960
  4. Foksh
    تم إضافة التأثيرات الصوتية الى التحديث الجديد . تم إضافة اسماء اللاعبين في مربعات نص . تم تعديل التعليقات من اللغة الإنجليزية الى اللغة العربية . تم إضافة تاثير الحركة الإنتقالية المرئية . تم إضافة زر لإيقاف الأصوات أو تشغيلها أثناء اللعب . Snake.zip
  5. Foksh
    وإياكم معلمي الفاضل ..
  6. Foksh
    جرب هذه الفكرة معلمي الفاضل @ابوخليل :) Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub
  7. Foksh
    هذه فكرتي المتواضعة ، ويمكن تعديلها حسب الحاجة Global Time.accdb
  8. Foksh
    مهو لو توضح أكثر صديقي العزيز ، وزودني بصورة لنتيجة البحث 😁
  9. Foksh
    و والديكم يا عزيزي ، تقبل اعتذاري ، وانني فقط أمازحك 🥰
  10. Foksh
    هل أنا فقط من يشعر وكأن ترجمة جوجل صاحبة الموضوع 😅 ليست سخرية أعوذ بالله ، ولكن من نمط الكتابة تشعرني بذلك. كل الإحترام والتقدير لصاحب الموضوع 💐
  11. Foksh
    ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر Private Sub cmdBrowse_Click() Me.Text4.RowSource = "" Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing End Sub
  12. Foksh
    سؤال على الهامش للأخ @سلمان الشهراني ولا غنى عن البقية طبعاً هل لهذا الموضوع علاقة بما تم طرحه هنا ؟؟ أو يساعد في تحقيق الهدف !!
  13. Foksh
    على العموم ، وآملاً منك الإلتزام بقوانين المنتدى مستقبلاً . هل هذا طلبك في هذا الكود ؟؟؟ Private Sub Command7_Click() Dim i As Integer Dim searchText As String Dim listItem As String Dim found As Boolean searchText = InputBox("اكتب الكلمة التي تريد البحث عنها", "مربع البحث") If searchText = "" Then MsgBox "تم الغاء العملية", vbExclamation Exit Sub End If found = False For i = 0 To Me.Text4.ListCount - 1 listItem = Me.Text4.ItemData(i) If InStr(1, listItem, searchText, vbTextCompare) > 0 Then found = True Me.Text4 = listItem DoCmd.Hourglass True [WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _ OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull [WebBrowser0].Object.Navigate2 listItem DoCmd.Hourglass False Exit Sub End If Next i If Not found Then MsgBox "لم يطابق البحث عن الكلمة التي بحثت عنها", , "" End If End Sub عارض pdf بالمسار.accdb
  14. Foksh
  15. Foksh
    جرب هذا الحل أخي @Abdelaziz Osman رسالة تاكيد قبل الاستمرار.accdb
  16. Foksh
    وعليكم السلام ورحمة الله وبركاته .. أهلا وسهلاً بك في مشاركتك الأولى أخي @Ahmedbakheet .. عليك بقراءة بعض قواعد وقوانين المنتدى كي تحصل على اجابة لطلبك . وضح المطلووووب منك بالشرح الوافي اذا سمحت
  17. Foksh
    ارسلت لك الحل الوحيد الذي زودتك به في رسالة .. والحل الأول هو انك تتذكر كلمة المرور 😅
  18. Foksh
    هذا يعتمد على امتداد الملف اذا كان Accde أو Mde فلاااااا أنصحك بانتظار الحلول أبداً. أما غير ذلك فأنت لم تطبق الشرح بحذافيره 😁
  19. Foksh
    تم الرد 👍
  20. Foksh
    ارفق الملف للمحاولة
  21. Foksh
    أخي الكريم ، اعتذر على الوصف اللي توهك مقصدي انه على سبيل المثال حقل الفصل ( class_id ) مصدر بياناته في الجدول هو : SELECT Taclass.[class_id], Taclass.class FROM Taclass ORDER BY Taclass.[class_id]; وباقي الحقول اللي هي مفاتيح أساسية وضحتها ولا نيلتها
  22. Foksh
    أول حاجة البيانات الأساسية الشخصية للطالب تكون في جدوله الرئيسي فقط ، والبيانات الفرعية تنفصل مستقلة الاستعلامات يفضل تكون قيم مأخوذة من النماذج عند الإدخال للبيانات وليس في الجدول نفسه . اهتم أكتر بالتسميات علشان تكون أكتر وضوح وأسهل قراءة كمثال وانت حر في النهاية جدول الصفوف = Tbl_Class جدول النوع = Tbl_Sex ....... الخ في باقي الجداول كده أسهل صدقني .. وانا مش قصدي التنظير بقدر ما قصدي تعرف الأخطاء فين ( من وجهة نظري طبعاً وقابل للإختلاف ) وتصلح للأفضل علشان ترتاح في النماذج والاستعلامات .... وخلافه
  23. Foksh
    شكلي ايه .. صديقي ، انا شفت الملف بتاعك ، وبالطريقة اللي انت اعتمدتها للجدول الرئيسي اعتقد حتواجه مشاكل كتيرة . يعني مثلاً :- انت عامل استعلامات لحقول كتيرة داخل الجدول الرئيسي للطلاب . جدول الطلاب انت ضفت عليه حقول يمكن ملهاش لازمه فيه ويفترض تكون في جداول مستقلة مربوطة برقم الطالب في جدولك الرئيسي المفتاح الأساسي هو رقم التلميذ ولا الرقم التلقائي ولا رقم ايه بالضبط !!!! حتى ان المسميات تخليك تتوه لما تلاقي جدول انا حاولت بصراحة أعدل لكني مبارح فعلاً كنت مش مستوعب حاجة بعد ما روحت
  24. Foksh
    أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing
  25. Foksh
    تعتمد على حقل مدمج بين قيمة مفتاح الدولة وقيمة الحقل اللي فيه الرقم بدون 0 عشان يتحقق معك شرط الرقم مع مفتاح الدولة بدون 00 كما أخبرتك .. هناك حل آخر وهو التعديل على جميع الارقام لديك من خلال كود بحيث يضيف لكل السجلات بدل 0 اللي في الرقم يصبح مفتاح الدولة فقط . طبعاً هذا لو الارقام محلية داخل بلدك الكريم ,,
×
×
  • اضف...

Important Information

  I accept