Elsayed Bn Gemy

اولا استاذن معلمى جعفر فى الرد واجيبك اخى الكريم بالطبع هناك طريقة اخرى برمجيا حقل من نوع نعم / لا ولنسميه اونلاين وننشئه فى جدول المستخدمين وفى النموذج الخاص بكل مستخدم فى حدث عند عداد الوقت تقول نعم لحقل اونلاين لهذا المستخدم ولنجعل الحدث كل 1000 جزء من الثانية = 1 ثانية وفى حدث عند الاغلاق تجعل الكود يقول لا لحقل اونلاين وتنشئ نموذج اخر خاص بالمدير فيه استعلام باسماء كل المستخدمين الذين حقل اونلاين لهم يساوى نعم فكرة بسيطة ما عليك سوى التنفيذ شكرا لك

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

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

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

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

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

برنامج أرشفة.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 يعمل على الميلادى فقط انت قم بتحويل الميلادى الى هجرى اعتزر منك انا فى العمل عند الذهاب الى البيت ساوافيك بالمزيد ان شاء الله

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

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

السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 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])) وهذه صورة من الاستعلام

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

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

اذن تفضل اخى الكريم وحدة نمطية صغطها مخصوصا لك 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 الى اسم حقل الاسماء كما فى الصورة وهذه صورة من الحل شكرا لك

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

اساعدك لما تقول بعد اذن استاذنا ابو خليل انت مش عاوز تعمل attach لكل صورة انت عاوز عارض الصور اول ما تختار موظف معين الصورة اللى بنفس رقمه اللى موجودة فى مجلد الصورة تظهر صح كدا كل اللى عليك هتضيف الوحدة النمطية دى علشان يقدر يشوف بيها مجلد الصور Function GetPath() GetPath = CurrentProject.Path & "\" & "Photo" & "\" End Function طبعا الكود بيقول دور فى مجلد باسم Photo المجلد دا موجود فى نفس مسار قاعدة البيانات بس كدا هتيجى انت فى النموزج وفى مصدر بيانات عنصر تحكم الصورة هتكتب كدا =GetPath() & [FromID] & ".jpg" طبعا الحقل fromid هو الرقم الوطنى فى النموذج وهو ايضا نفس اسم الصورة طبعا نوع الصورة هنا واحد jpg انت عاوز تغير اوكيه على حسب صورك مع مراعات ان نوع الصور كلها واحد بس كدا

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

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

السلام عليكم ورحمة الله تعالى وبركاته من باب توفير الجهد والوقت عليكم اخوانى قواعد بيانات اكسس بكامل هيئتها الحالية لا يمكن ان تعمل على اندرويد لاختلاف بيئات العمل والمتطلبات ولكن هناك طريقة واحدة قد تبعث فى نفسنا الامل 1 هذا التطبيق Access Mobile Database Client فقط من خلاله يمكنك استعراض الجدوال والتعديل عليها ولا يمكنك فتح اى كائنات من خلاله الا الجدوال لا يستعرض اى تقارير او ستعلامات او نماذج فقط الجداول 2 هذا التطبيق Limbo PC Emulator على حد علمى انه يقوم بتشغيل نظام متكامل لويندوز XP على الاندوريد تستطبع من خلاله فتح قواعد بياناتك من خلاله وهذه صور منه انا لم اجرب الا التطبيق الاول هذا ما اعرفه بخصوص هذا الموضوع فقط اردت ان اشاركم ما عندى من مر بهذه التجربة من قبل فليفيدنا بما عنده لعلنا نصل الى ما نريد ان شاء الله

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

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

تفضل يا اخى مثال .rar

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

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