Elsayed Bn Gemy

اولا استاذن معلمى جعفر فى الرد 

واجيبك اخى الكريم بالطبع هناك طريقة اخرى برمجيا 

حقل من نوع نعم / لا  ولنسميه اونلاين وننشئه فى جدول المستخدمين 

وفى النموذج الخاص بكل مستخدم فى حدث عند عداد الوقت تقول 

نعم لحقل اونلاين لهذا المستخدم  ولنجعل الحدث كل 1000 جزء من الثانية = 1 ثانية 

وفى حدث عند الاغلاق تجعل الكود يقول 

لا لحقل اونلاين 

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

فكرة بسيطة ما عليك سوى التنفيذ 

شكرا لك 

17 ساعات مضت, ابو ياسين المشولي said:

جميل جدا اخي Elsayed Bn Gemy

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

وكذلك هل ممكن هل توجد طريقه لنقل الى مجلد اخر مع الترقيم حسب ترقيم الصور

نعم يمكن اخى ىاالكريم

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

وامكانية النقل الى اى مكان 

فقط بعض الوقت اخوتى انا لا اعمل على الاكسس الا فى يوم عطلتى وشكرا لكم جميعا 

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

هل عند تغيير اى بيانات سجل يقوم البرنامج تلقائيا بارسال رسالة هذا يمكن ولكن سيصيب قاعدة البيانات بالشلل

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

المشكلة الثانية

المشكلة الاولى تخبرك ان هؤلاء المتغيرات قد تم التصريح بها من قبل
الحل  قم بمسح هؤلاء الثلاث سطور 

14 دقائق مضت, ابو البشر said:

بارك الله فيك أخي @Elsayed Bn Gemy لكن هناك ملاحظة على البرنامج وهي عند اختيار مجلد فيه صور وملفات اخرى تظهر الصور غير مرتبة بمعنى تظهر فراغات بين الصور ؟؟؟

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

منذ ساعه, عبدالله مروش said:

السلام عليكم 

اخي @Elsayed Bn Gemy 

ارجو المساعدة 

واسف اذا اكثرت عليك 

 

 

 

 

برنامج أرشفة.rar

اسف انا فى العمل الان اصل الى البيت باذن الله واكتب لك الكود

عمتا اكتبه لك وان وجدت مشاكل ارسل  بها هنا

Dim FirstDayInWeek, LastDayInWeek  As Variant
Dim dtmDate As Date
dtmDate = Me.strdate


FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1
Me.weekfir = FirstDayInWeek


LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7
Me.weekend = LastDayInWeek

  مربع نص  بحقل التاريخ  Me.strdate

Me.weekfir مربع نص بداية الاسبوع

 مربع نص نهاية الاسبوع Me.weekend

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

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

مثل الحجم والنوع وخلافه

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

4 ساعات مضت, athal said:

بارك الله فيك  استاذ السيد جمال

عمل رائع  عاشت يداك

هل يمكن ان تكبر الصورة عند الضغط عليها

هل تقصد فتحها؟

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

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

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

الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور
--------------

بعد الضغط على زر تحديد المجلد
ثم الضغط عزر الذهاب الى المجلد

سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم  وعن طريق هذا الرقم ساقوم باستدعاء كل صورة
حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 

( رقم السجل * 8 - 6 ) = 2

( رقم السجل * 8 - 5 ) = 3

ةهكذا  حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات

فيديو للشرح

المرفق

Gallary.rar

السلام عليكم اخى الكريم

اضف هذه الوحدة النمطية  ولا تقم بمسح السابقة  لانهم سيعملو سويا

Function ForSearch(Astr As Variant) As Variant
Dim i As Integer
Dim L As Variant, NewStr As Variant

If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)

For i = 1 To Len(Astr)


L = Mid(Astr, i, 1)
If L = "ي" And Mid(Astr, i + 1, 1) = " " Then
L = Mid(Astr, InStr(Astr, L), 1)
Select Case Asc(L)
Case 237: L = Chr(236)
Case Else:   L = L
End Select

End If
NewStr = NewStr & L

Next


ForSearch = NewStr

End Function

ثم قم بتعديل الاستعلام ليصبح الحقل على هذا الشكل

NweName: LastChar(ForSearch([OldName]))

وهذه صورة من الاستعلام

7 ساعات مضت, محمد احمد لطفى said:

أستاذى @Elsayed Bn Gemy
 

Function C_Word(T As String) As String
T = Replace(T, "ي ", " ى")
C_Word = T
End Function

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

معلش مخدتش بالى من بقية السؤال 

انت عاوز اى حرف ي خلفه مسافة يتم تغييرة 

صح كدا ؟؟

دى محتاجة اختراع وحدة نمطية تانية بجانب اللى معاك  هههههههههههه

فممكن تمهلنى باكر ان شاء الله لانى على الموبايل والله الان 

تضاف كعمود منفصل عن الجديدة هذا فقط 

لو اضيفت الى الجديدة سيتم تغيير كل حروف الياء المنقوطة الى ياء بدون نقط 

ولكن اخبرنى لماذا تريد عمل ذلك ؟

اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك

Function LastChar(last_input)
If Nz(last_input, "") = "" Then Exit Function
If Mid(last_input, Len(last_input), 1) = "ي" Then
NewString = Left(last_input, Len(last_input) - 1) & "ى"
LastChar = NewString
Else
LastChar = last_input
End If
End Function

طبعا هتضيف  الكود دا فى الاستعلام
 

NewName: LastChar([OldName])

مع تغيير oldname  الى اسم حقل الاسماء

 كما فى الصورة
 

 وهذه صورة من الحل

شكرا لك

السلام عليكم اخى الكريم
هل ممكن ان اتدخل بعد اذن اساتذتنا

اخى السائل ما فهمته انك تريد استبدال اخر حرف فقط فى الجملة اذا كان ي يصبح ى
بمعنى (مصطفي عيد مصطفي

تصبح 
مصطفي عيد مصطفى
 فقط اخر كلمة فى الجملة  صح كدا ؟؟

33 دقائق مضت, mohammed69 said:

بارك الله فيك استاذ ابو خليل وبارك الله في جهود الجميع 

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

كل الاحترام

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

كل اللى عليك 

هتضيف الوحدة النمطية دى علشان يقدر يشوف بيها مجلد الصور

 Function GetPath()
   
   GetPath = CurrentProject.Path & "\" & "Photo" & "\"
End Function

طبعا الكود بيقول دور فى مجلد باسم Photo   المجلد دا موجود فى نفس مسار قاعدة البيانات
بس كدا

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

=GetPath() & [FromID] & ".jpg"

طبعا الحقل fromid  هو الرقم الوطنى فى النموذج وهو ايضا نفس اسم الصورة
طبعا نوع الصورة هنا واحد jpg  انت عاوز تغير اوكيه على حسب صورك  مع مراعات ان نوع الصور كلها واحد

بس كدا

اخى الكريم

وفى خصائص الحقول من تبويب تنسيق اجعل قابل للنمو / نعم

وفى اعتقادى انها لن تصلح لان النمو يتم على حسب  الاسطر فى الحقل 

عموما جرب واعلمنا بالنتائج 

59 دقائق مضت, abosherif1 said:

بسم الله ما شاء الله

أولا ذادك الله علما وجعله فى ميزان حسناتك.

ثانيا كيف يتم إضافة أفراد أخرين هل عن طريق إستخدام نفس إيميل الدخول أم ماذا ؟

@Elsayed Bn Gemy

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

السلام عليكم ورحمة الله تعالى وبركاته

من باب توفير الجهد والوقت عليكم اخوانى
قواعد بيانات اكسس بكامل هيئتها الحالية لا يمكن ان تعمل على اندرويد  لاختلاف بيئات العمل والمتطلبات

ولكن هناك طريقة واحدة قد تبعث فى نفسنا الامل
1 هذا التطبيق  Access Mobile Database Client

فقط من خلاله يمكنك استعراض الجدوال والتعديل عليها  ولا يمكنك فتح اى كائنات من خلاله الا الجدوال

لا يستعرض اى تقارير او ستعلامات او نماذج فقط الجداول

2 هذا التطبيق Limbo PC Emulator

على حد علمى انه يقوم بتشغيل نظام متكامل لويندوز XP  على الاندوريد تستطبع من خلاله فتح قواعد بياناتك من خلاله

وهذه صور منه

انا لم اجرب الا التطبيق الاول

هذا ما اعرفه بخصوص هذا الموضوع فقط اردت ان اشاركم ما عندى

من مر بهذه التجربة من قبل فليفيدنا بما عنده لعلنا نصل الى ما نريد ان شاء الله

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

11 ساعات مضت, رمهان said:

ياراجل .. بس كده .. ايه الحلاوة دي

انا ذهب تفكيري كيف الف على النماذج الفرعية وافلترهم واحد واحد

فكرة ولا احلى منها

تحياتي

سريع سريع كدا يا استاذنا تيك اوى 😂😂

تفضل يا اخى

مثال .rar

11 ساعات مضت, alcasir said:

نعم / تمت التجربة بنجاح

يعني حل مقبول نوعا ما,,,,وشكرا على المشاركه

 

attach.accdb

للعلم ليس الا .     دوال الاستدعاء فقط تستخدم لاستدعاء المتغيرات النصية فقط 

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

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

وهكذا 

شكرا لك 

يا اخى الفاضل انا اتعامل مع اوفيس 2013 على افتراض انه يمتلك مميزات اوفيس 2007 واكثر شوية 

ومؤخرا قمت بتنزل اوفيس 2007 لارى المشكلة هذه عن قرب 

مع العلم انى فى حياتى لم اتعامل مع اوفيس 2007 المهم قابلتنى نفس المشكلة ولم اجد لها حل  سوى انى مضطر الى تصميم البرنامج على اوفيس 7 ولكن هذا العمل لن يتم فى الوقت الحالى لانشغالى ببرنامج اخر 

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

شكرا لك