نجوم المشاركات

السلام عليكم ورحمة الله تعالى وبركاته فى البداية اود ان اعتذر عن قلة مشاركاتى وذلك لقلة تعاملى مع الاكسس نظرا لانشغالى بـــ بيئة بيسك.نت ببساطة نحن مستخدمى الاكسس نريد ان يكون لدينا هذا الزر فى برامجنا 😂😂😂 اولا كان لدى محاولة واحدة عن كيفية جعل المستخدم يبحث عن تحديثات جديدة للبرنامج الخاص به عن طريق الانترنت فكانت نتيجة المحاولة هو ربط قاعدة البيانات اكسس بقاعدة بيانات سيكوال موجودة على استظافة مجانية قاعدة سيكوال بها حقلين هما رقم النسخة الجديدة ورابط التحميل الخاص بالتحديث الجديدة وهذا الموضوع يشرح ذلك وكانت اكبر المشاكل التى تقابلنى هى الاستضافة المجانية التى بعد شهرين او اكثر تحذف قاعدة بياناتك بدون سابق انذار ولا يوجد المال الكافى لحجز استضافة ورفع قاعدة البيانات سيكوال الخاصة بك عليها فكان التفكير فى استخدام البرامج السحابية (جوجل درايف - وان درايف - دروبوكس ) واكبر المشاكل التى ستقابلك هى المزامنة ثم المشكلة الاخرى وهى انك لن تطلب من كل المستخدمين تثبيت اى من البرامج السحابية لديه واعطائة اسم المستخدم وكلمة السر الخاص بالبرنامج السحابى الذى سترفع عليه التحديث حتى تتم المزامنة على جهاز العميل اولا باول اذا فما هو الحل انا اريد ان يضغط العميل على زر ( البحث عن تحديث جديد ) ثم يجد رسالة تخبره ان برنامجه محدث او انه توفر اصدار جديد من البرنامج اليكم فكرتى قد تحتاجونها او لا ولكن ما كنت لابخل عليكم بشئ فاء الله على به الفكرة بسيطة جدا تتلخص فى ملف نصى LastVersion.Txt قمت بكتابته به مجموعة اسطر الاول هو رقم الاصدار الجديد الثانى هو رابط تحميل التحديث الجديد وبعد هذا سطور على حسب الحاجة تقوم بالتعريف فيها بالتحديث الجديد ومميزاته طريقة العمل سيقوم المرفق الذى سادرجه هنا بتحميل الملف النصى من حسابك الخاص على دروبكس وتفريغ الاسطر التى بداخله الى مربعات النصوص التى بالنموذج ثم يقارن رقم التحديث الجديد بالرقم الحالى ويعلمك اذا كانت نسختك محدثة ام تحتاج تحديث المشاكل التى واجهتنى 1 - عدم وجود (direct download link او static download link ) نظرا لتغير رابط تحميل الملف النصى دائما فماذا سافعل اذ قمت مسبقا بادراج رابط ثابت لتحميل الملف النصى داخل البرنامج 2 - اذا اطلقت نسخة جديدة من برنامجى فساحتاج الى تعديل الملف النصى المحمل مسبقا والمدرج رابط التحميل الخاص به فى النموذج فكانت الحلول هو عمل static download link للملف النصى اى رابط تحميل ثابت للملف النصى تابع معى المتطلبات ---------------------- ان يقوم مصمم البرنامج فقط بالتسجيل على الموقع السحابى (https://www.dropbox.com/h) .. المصمم فقط ان شئت قلت كأنك حجزت استضافة مجانية بها 12 جيجا بايت ومجانية لانه بعد التسجيل سنحتاج اسم المستخدم وكلمة المرور لكتابتهم فى دوال التحميل داخل المرفق وهما دالتان مثل هذا الشكل الدالة الثانية ثم يقوم بانشاء الملف النصى الخاص بالبرنامج الذى صممه انا كتبته بهذا الشكل سنستخدم البرنامج السحابى دروبوكس (https://www.dropbox.com/h) بعد التسجيل - يمكنك التسجيل بسهوله عليه عن طريق رابط جوجل دون الحاجة الى ملئ البيانات بعد التسجيل ستجد نفسك فى الصفحة الرئيسية الخاصة بك بعد كتابة الملف النصى نقوم برفعه على الدروبكس بعد رفعه على الدروبكس نقوم باخذ اللينك الخاص به كوبى وذلك لعمل رابط مباشر له لتحميله بعد اخذ اللينك كوبى بقى اهم خطوة وهى عمل رابط تحميل مباشر له تابع معى ستجد رابط المشاركة بهذا الشكل الرابط الذى اخذته كوبى https://www.dropbox.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 فقط استبدل https://www.dropbox.com استبدلها https://dl.dropboxusercontent.com ليصبح شكل الرابط هكذا https://dl.dropboxusercontent.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 وبذلك اصبح لديك رابط مباشر له بعذ ذلك خذ الرابط الجديد وادرجه فى البرنامج فى هذا الكود ثم نقوم برفع القاعدة الجديدة المحدثة على الدروبكس وعمل رابط مباشر لها ولكن هذه المرة نقوم بادراج الرابط المباشر هذا فى الملف النصى لا فى البرنامج مع مراعاة ان نقوم بتحديث رقم الاصدار فيها قبل رفها ليطابق رقم الاصدار الموجود فى الملف النصى والان فيديو يشرح طريقة العمل تم اضافة اسم للمستخدم وكلمة السر يمكنك الان تجربة البرنامج المرفق LinkToUpdate.accdb اتمنى ان اكون عرفت اشرح وطبعا انا منتظر تشريفكم بتعليق لتجربة مرفقى المتواضع

السلام عليكم ورحمة اله تعالى وبركاته أما بعد .. استكمالاً لمشاركتي في الموضوع السابق اضع بين ايديكم البرنامج + ملف توليد السيريال .. واعتذر على التأخير ملاحظة : جميع البيانات في الجدول يمكن تشفيرها كلاً حسب طريقته لذلك تركتها بدون تشفير لكي تتضح طريقة عمل البرنامج اتمنى ان ينال اعجابكم تحياتي count-sec.mdb registration_key.mdb

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

:: هل قمت بتحديد "Text Box" ومن ثم ذهبت الى خصائصه وقمت باختيار اللغة العربية ؟!... عند ذلك يجب ان تكو ن لغة الكتابة الافتراضية هي العربي ... ::شكرا للاخ kanory

السلام عليكم هذا خطأ برمجي فادح - من وجهة نظري القاصرة- لا يمكن أن يتاح خاصة فى البرمجيات المحاسبية صلاحية لحذف السجلات - وقد تعلمنا من ضمن المبادىء المحاسبية أن الكشط فى دفاتر اليومية جريمة. فان الخطأ المحاسبي لا يعالج بالكشط وإنما بما يسمى قيد تصحيح (وهو عبارة عن قيد عكسى للقيد الخطأ) وعموما هناك حيلة يمكن التعرف من خلالها على عملية الحذف إن كانت تمت بفعل فاعل أم مشكلة بالشبكة عند ارسال البيانات يمكن ان يتم وضع حقل بجدول البيانات التى يتم الحذف منها بالعادة اسمه محذوف ونوعه نعم/لا فعند حذف سجل يأخذ القيمة نعم - فيكون الحذف من الخارج أما السجل سيكون موجود بالفعل ويمكن استعادته من خلال جعل القيمة بالحقل المشار اليه الى لا فإن كان الخطأ بالشبكة وان البيانات تفقد بسبب ضعف الاتصال مثلا لن يتم ارسال البيانات أصلا - أما ان كان يتم الحذف من قبل المستخدم فستكون البيانات موجودة ويمكن استعادتها أيضا. أما أن كانت المشكلة ضعف الاتصال أو فقده أحيانا : لإأقترح أن يكون هناك جدول مؤقت بقاعدة بيانات الواجهة للبيانات التى يتم ارسالها بشكل يومى ويتم ارسالها مرة واحدة بنهاية اليوم مثلا لقاعدة بيانات الجداول.

ضع هذا الكود عند تحميل النموذج Me.Text0.KeyboardLanguage = 2

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

عليكم السلام تنحذف كذا بدون فعل فاعل ( اي امر حذف) غير وارد يوجد حلول كثيرة : 1- حماية قاعدة الجداول بكلمة مرور وعدم اتاحة فتحها مباشرة 2- عدم اتاحة الحذف للمستخدم الا بكلمة مرور ومن نموذج خاص ورسائل تأكيد الحذف 3- يمكنك تسجيل عمليات الحذف خاصة في جدول خاص وتاريخ الحذف

جرب هذا 888.rar

احسنت استاذى الكريم بارك الله فيك

تفضل Search.xlsm

تفضل ..... Kan1.rar

رائع الاستاذ سليم حاصبيا وفقكم الله معادلة رائعة جعلها الله في ميزان حسناتكم استخدمت COUNTIF(data!E:E;1) لايقاف الواحد والبدء من ثلاثة ونفس المعادلة لايقاف الرقم 2 والبدء من ثلاثة لكم وافر احترامي وتقديري

لا أعلم اذا كان هذا المطلوب قائمة بشرط.xlsm

لعل يكون هذا هو المطلوب البيانات.xlsm

ممكن بواسطة عامود مساعد _salim تجربة1.xlsm

@محمد سلامة تغيير رقم النسخة كان بناءاً على طلب احد الأخوة .. لكن هنالك مرفق آخر موجود في الموضوع يكون فيه رقم النسخة ثابت .. لك حرية الاختيار

جرب هذا طبعا بعد اذن استاذنا الكبير رصد العقوبات طلاب الثانوية العامة.xlsm

Dewon الله يعطيك العافية

اهلا بك اخى الكريم فى المنتدى كان عليك رفع الملف نفسه تفضل هذا هو الملف Search & add Sheets.xlsm

يمكن هذا ولكن بعد اذن طبعا استاذنا الجليل بن علية يمكنك لصق هذه الأكواد بدل التى لديك Private Sub CommandButton1_Click() For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Cells(r, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Cells(r, k) = Controls("ComboBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Sheets(1).Cells(lrw + 1, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Sheets(1).Cells(lrw + 1, k) = Controls("ComboBox" & j).Text Next j For m = 1 To 11 Controls("TextBox" & Choose(m, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next m For n = 1 To 4 Controls("Combobox" & n).Text = "" Next n ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 15 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 15).Delete Shift:=xlUp MsgBox "تمت عملية الحذف بنجاح" For X = 1 To 11 k = Choose(X, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("Textbox" & k).Text = "" Next X For Y = 1 To 4 Controls("Combobox" & Y).Text = "" Next Y ListBox1.Clear UserForm_Activate TextBox16 = "" End If End Sub Private Sub CommandButton4_Click() End End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 11 k = Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("TextBox" & k).Text = Cells(ListBox1.List(i, 1), k) Next j ComboBox1.Text = Cells(ListBox1.List(i, 1), 5): ComboBox2.Text = Cells(ListBox1.List(i, 1), 6): _ ComboBox3.Text = Cells(ListBox1.List(i, 1), 7): ComboBox4.Text = Cells(ListBox1.List(i, 1), 10) r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox14_Change() TextBox14.Value = Format(TextBox14.Value, "HH:MM") End Sub Private Sub TextBox15_Change() TextBox15.Value = Format(TextBox15.Value, "HH:MM") End Sub Private Sub TextBox16_Change() ListBox1.Clear For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k If TextBox16 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B2:B" & ss) If C Like TextBox16.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox12_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If StrComp(TextBox12.Value, "DD/MM/YYYY", vbTextCompare) = 0 Then TextBox12.Value = "" End If End Sub Private Sub TextBox13_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim dDate As Date dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBox13.Value = Format(TextBox13.Value, "dd/mm/yyyy") dDate = TextBox13.Value End Sub Private Sub UserForm_Activate() For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ' ListBox1.List(i - 1, 0) = Cells(i, 2).Value ' ListBox1.List(i - 1, 1) = i Next i For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub

السلام عليكم ورحمة الله معذرة على هذا الخطأ لأني قمت بالتعديل السابق على كود واحد من الأكواد الخاصة بالفورم فقط... جرب هذه المرة الملف المرفق وأبلغني بأي خلل آخر ليتم تصحيحه... بن علية حاجي فورم بحث .rar

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

أخى الكريم شوف بنفسك فى الصورة من الملف الذى ارسلته اليك سابقا المعادلة تعمل تمام على المطلوب الذى تريده عليك بكتابة وقت الحضور هكذا 08:00 اى صباحا وبالنسبة ل 11 مساءا فى الإنصراف تكتب هكذا 23:00 فيخرج لك الناتج كما ترى 15 ساعة عمل بأجر 10 جنيه مثلا للساعة فيخرج الناتج 150 جنيه فما الخطأ هنا ؟!!!! كل شيء مضبوط وتمام

تفضل حساب ساعات العمل2.xlsx

يتم تحويله عن طريق اكسس 2003 أو 2007 ؟

تابع المعالج حتى ينتهي .... هو يقوم بعملية تحويل الجدول الى ملف اكسل طبعا تجري هذه العملية مع كل جدول على حدا هل تريد التحويل لكل الجداول أ/ جدول محدد

جرب هذا الملف الكود Option Explicit Sub Salim_sum() Dim Rg As Range: Set Rg = Range("F2").CurrentRegion Dim X%, Y%, k%, I% Dim My_Num: My_Num = [P2] Dim cont% X = Rg.Rows.Count: Y = Rg.Columns.Count For I = 1 To X Step 3 For k = 2 To Y If Rg.Cells(I, k) = My_Num Then cont = cont + Rg.Cells(I + 1, k) End If Next Next [p3] = cont End Sub الملف مرفق _salim تجربة.xlsm

استاذن من استاذ صالح حمادي اخي انت محق والسبب يرجع لمصدر النموذج اي جدول sales حقل itemcode قم بتغيير خاصية Field Size للحقل المذكور اعلاه من Integer الى Long Integer

السلام عليكم مرفق نموذج وفى بعض الابدعات ليس من تصميمي ولكان منقول عن واحد مبدع لعلك تستفيد منهم - تحياتي نموذج جميل و روعه.rar

انظر الى هذا المرفق تم التعديل عليه انظر ان شاء الله تجد تعديلات قد تفى الغرض PIC.zip

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

تفضل سيفيد هذا الملف في عملك... عمل الملف بالتالي: أولاً: يتم ادخال الاسم ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم image في نفس مسار ملف الاكسس وبعد أختيار الصورة يتم نسخ الصورة بالمجلد image بنفس الاسم التي تم أضافته ويتم تخزين المسار الجديد للصورة بالجدول وهذ الكود المضاف في زر اضافة On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد" End If End If ' Requires reference to Microsoft Office 14.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant ' Clear listbox contents. Me.picfile = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .Title = "رجاءً قم بتحديد مكان الصورة" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.add "png image", "*.png" .Filters.add "jpg image", "*.jpg" .Filters.add "jpeg image", "*.jpeg" .Filters.add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.NameS & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.picfile = destpath Me.Refresh Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number ============= أن أفادك .. فدعوة لي ولوالدي مرفق الملف: PName.rar

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