zoed2

السلام عليكم اخوتي 
عندي ملف فيه مجموعة كبيرة من ملفات ال pdf  هل توجد فكرة عند احد الاخوة كيف عمل فورم لبحث عن هذه الملفات الان انا بحثت ولم اجد نموذج يدعم هذه الخاصية 
دمتم بخير 

السلام عليكم اخوتي 
عندي ملف فيه مجموعة كبيرة من ملفات ال pdf  هل توجد فكرة عند احد الاخوة كيف عمل فورم لبحث عن هذه الملفات الان انا بحثت ولم اجد نموذج يدعم هذه الخاصية 
دمتم بخير 

كل الشكر والاحترام 

سلام عليكم احتاج مساعدة في عملية فرز الرقم  المزدوج مثلا(608214953-32015729)
حيث عند كتابة في حقل ا(الرقم المزدوج)  ينفرز مباشرة في الحقل (الرقم الاول )و (وحقل الرقم الثاني ) بشرط عدم استخدام  جدول او استعلام خارجي مع الشكر والتقدير للجميع 
(تفاصل اكثر داخل النموج)

تجربة (2).accdb

 كل الشكر والاحترام اسال الله لكم كل الخير 

FIRSTNAME:TRIM((Left([NNAME],InStr([NNAME]," ")-1)))

السلام عليكم حاولت ان اوزع نص  معين الى اعمدة داخل الجدول لكن تواجهني في كل مره مشكلة 

ممكن مساعدة من الاخوة 

بطاقة.accdb

ممنون 

السلام عليكم
لدي جهاز ماسح ضوئي QR هل يمكن ربطة بالاكسس اذا احد الاخوة لدية مثال او فكرة 

تم حل المشكلة الحمدلله

السلام عليكم اخوتي منكم نتعلم 
حتاج تصدير الجدول الى اكسل ويكون اسم الملف تاريخ اليوم الذي تم تصديرة فية 
ولكم الامر مع الشكر والتقيدر 

التولد.accdb

السلام عليكم عندي جدول فيه اسماء تحتوي على تولد واسماء لا تحتوي على تولد
احتاج انشاء استعلام تظهر فقط الاسماء التي تحتوي على تولد ولكم الشكر 

التولد.accdb

كل الشكر والاحترام احسنت

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

ولكم الامر مع الشكر والتقدير تحويل.accdb

شكرا لك 

السلام عليكم عندي جدول فيه اسماء ثلاثية الي احتاجه هو تقسيم هذه الاسماء بحيث يصبح الاسم الاول في حقل واسم الاب في خقل واسم الجد في حقل 

تقسم.accdb

عندي اسم ثلاثي في حقل اريد ان يتقسم هذا الاسم على ثلاث حقول ممكن مساعدةتقسم.accdb

هل  يوجد حل لديكم اخوتي لهذه 

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

وهذا هو الكود 

Private Sub cmdScan1_Click()
Dim ons As String
Dim intPages As Integer
  Dim x   As String
       Dim scandiag As Object
       On Error GoTo errorhandle
       Dim Image As Object
       If IsNull([emp_name]) Or IsNull([emp_name]) Then
     MsgBox "åäÇß ÍÞá ÝÇÑÛ "
       Exit Sub
       MsgBox Err.Description
    Else
   
    
    
        x = mypathofdb() & "\images_company" & "\ÇáæÇÑÏÉ" & "\" & Me.emp_name & ".jpg"
        Set scandiag = CreateObject("wia.commondialog")
        Set Image = scandiag.ShowAcquireImage()
        
        Image.SaveFile x
        Me![AA1] = x
        Me![Image].Picture = Me![AA1]
        Me.Refresh
       
        MsgBox "Êã ÇáäÓÎ"
      End If
      Me.btnSave.Enabled = True
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit
      
End Sub

السلام عليكم اخوتي لو تكرمتم التعديل على هذا النموذج بحيث اقدر اسحب صورة من سكنر وعرضها داخل النموذج اولا ومن ثمه حفظها 
حاولت كثيرا ولم اقدر 

photos.rar

السلام عليكم اخي العزيز ممكن تساعدني وتكمل جميلك بالتعديل على النموذج 

السلام عليكم ممكن التعديل على المرفق وجعله يضيف الصوره المسحوبة من السكنر الى النموذج اولا 
ثم يحفظها في الملف الخارجي 

photos.rar

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

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

السلام عليكم اخوتي العزاء

ممكن تزويدي بمثال عن كيفية فتح كامرة داخل النموذج والتقاط الصورة عن طريق الكامرة الموجودة في اللابتوب

ولكم  الامر مع الشكر والتقدير 

كل التوفيق والتجاح شكرا على الشرح