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

FastStone Capture و الرابط هو: http://www.faststone.org/download.htm

جرب هذا الملف Month_Cal.xlsm

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

اتفضل واقبل عملنا المتواضع month.xlsx

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

الفيديو بيني وبنك bandicam 2018-10-28 22-01-58-379.rar

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

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

آمين و لك بالمثل صديقي ابو زاهر

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

شكرا لكم وجزاكم الله خيرا...أنا حتتبع المعادلات وححاول أتعلم أعمل زيها...ألف شكرا

بقد وضعت في الاستعلام اسم لحقل غير موجود .

DATEADD("YYYY";1;[الحقل الذي ترغب بزيادة قيمته])

من تجربتي وانا متاكد جدا نعم ممكن جدا جدا وقد قمت بربط الاكسس لتوليد سند قيد في الامين وسند قبض وبالعكس عند إضافة مادة تظهر في الاكسس مباشرة الموضوع بسيط جدا فقط عليك استيراد بيانات خارجية من قاعدة sql الخاصة بالامين لجدول اسمه mt000

من تخطيط اختر إعدادات الصفحة يظهر التبويب الذي في الصورة اختر الاتجاه الذي تريده أسفلها تغيير الحجم الضبط إلى اجعلها 100% من الحجم العادي ثم موافق

شكرا فعلا طريقتك ناجحة...

انا عملت المطلوب بطريقة اخر عن ما اخبرك استاذ @رمهان و @Khalf بواسطة هذا الكود ستحدد الحقول المراد جمعه في نموذج الفرعي Option Compare Database Public MyCountFelid As Integer Public Sub MyActiveCon() Dim Spl() As String Dim i As Integer If IsNull(Form_Frm.MyList) = True Then Form_Frm.MyList = Me.ActiveControl.Name MyCountFelid = 1 Else Spl = Split(Form_Frm.MyList, "-") For i = 0 To MyCountFelid - 1 If Spl(i) = Me.ActiveControl.Name Then Exit Sub Next i Form_Frm.MyList = Form_Frm.MyList & "-" & Me.ActiveControl.Name MyCountFelid = MyCountFelid + 1 End If Form_Frm.EdedAlhiqol = MyCountFelid End Sub Private Sub item1_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item2_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item3_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item4_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item5_DblClick(Cancel As Integer) Call MyActiveCon End Sub اولا سيتأكد الكود هل الاسم الحقل موجود من قبل ام لا اذا نعم لا يتكرر واذا لا سيضيفه الى مربع اسماء الحقول مراد جمعه وبواسطة هذا الكود سيعمل المطلوب اي جمع الحقول المطلوبمة من السجل الى السجل Option Compare Database Private Sub Command16_Click() Dim MYSum As Long Dim Spl() As String Dim i As Integer Spl = Split(Me.MyList, "-") For i = 0 To Me.EdedAlhiqol - 1 MYSum = MYSum + Nz(DSum("[" & Spl(i) & "]", "table1", "[id]>=" & Me.FromID & "and [id]<=" & Me.ToID), 0) Next i Me.MySubSum = MYSum Me.FromID = Null Me.ToID = Null Me.MyList = Null Me.EdedAlhiqol = Null End Sub وهذه صور توضيحي للعملية واليك القاعدة جمع عدد من الحقول من تسلسل الى تسلسل.accdb استخدمه حتى رجوع استاذ رمهان بشيء جديد 😊

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

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

السلام عليكم اولا ، اللي اوله شرط ، آخره نور انا ما عندي الاكسس 64 بت ، وما عندي تجربة في الموضوع ، لكني اتذكر ان اختنا الفاضلة الدكتورة أم عهود (حفظها الله اينما كانت) ، كان لها اجابة لهذا الموضوع ، فانا هنا ساعي بريد ، اكتب لكم بالضبط ما كتبته هي في منتدى الفريق العربي للبرمجة ، والشرط هنا ، اني قد لا استطيع مساعدتكم للنهاية ، لأني لا املك اكسس 64 بت والظاهر هنا ، ان الشئ الوحيد الذي يختلف فيه 64 بت عن 32 بت هو في بعض اوامر الكود والوحدات النمطية التي تنادي user32 مثلا ، اي انها 32 بت. والان من هنا ورايح هي مشاركة اختنا الفاضلة زهرة: في حالة وجود اكثر من وحدة نمطية بها Declare فإننا سوف نضع مثل هذا الكود في كل وحده نمطية على حده لتعمل على النظامين 32 بت و 64 بت وطبعا تختلف التصاريح من وحده نمطية والأخرى عن بعضها البعض #If Win64 Then Private Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long #Else Private Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long #End If دالة تحجيم النموذج بعد التعديل Option Compare Database #If Win64 Then Private Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long #Else Private Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long #End If Public Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function اما الوحدات النمطية التي ليس بها Declare فتبقى كما هي بدون اي تغيير ملاحظة هامة للفهم عند اضافة PtrSafe فإنها تحتاج ايضا الى تعديل بعض المؤشرات Long تتغير الى LongPtr مثال Dim lStructSize As LongPtr دالة ()Len تتغير الى ()LenB حتى يتم قبولها في نظام 64 فقط مثال tsFN.lStructSize = LenB(tsFN) بقية المؤشرات مثل String و Boolean فإنها تبقى كما هي بدون تغيير راجع المصدر https://msdn.microsoft.com/en-us/library/office/gg264421.aspx بالتوفيق

السلام عليكم سهلة جدا إن شاء الله يعتمد الإكسل في حسابات الوقت علي إعتبار أن اليوم =1 صحيح وبالتالي الساعة = 1/24 من اليوم والباقي مجرد تنسيقات لإظهار الساعة / الدقيقة / .... وعلي ذلك يمكن في الخلية B3 أن نضع المعادلة =A3*24 وننسخها للأسفل

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

سلام تحياتي للجميع - بعد إذنكم جميعا أهلا خالد -أرجو أن يلبي المرفق احتياجك coooom.zip أتمنى للجميع التوفيق سلام القحم

اخى الحبيب السلام عليكم و رحمة الله و بركاته يسعدنى ان اقدم لكم برنامج شامل و كامل لعملية استيراد ملفات الاكسل الى قواعد البيانات اكسس خطوات عمل البرنامج 1- قم بالضغط على زر فتح الفولدر و اختر ملف الاكسل المراد استيراده و بعد اختيار الملف يمكنك فتح الملف من داخل الاكسس بالضغط على زر ( فتح ملف اكسل) 2- قم بالضغط على الكمبو بكس لاختيار ورقة العمل 3- الخطوة رقم 3 خاصة بانشاء جدول جديد لورقة العمل فيجب عليك وضع اسم للجدول ثم اضغط على زر تنفيذ ليتم استيراد ورقة العمل و لعرض بيانات الورقة بعد الاستيراد فى الجدول قم بالضغط على زر عرض و اذا اردت الدخول على وضع التصميم اضغط زر تصميم و اذا اردت حذف الجدول قم بالضغط على زر حذف 4- الخطوة رقم 4 خاصة بوجود جدول تم انشاؤه من قبل و تريد اضافة بيانات الورقة اليه قم بالضغط على الكمبو بكس و اختر الجدول المراد اضافة بيانات الورقة اليه ثم اضغط على زر تنفيذ لعرض الجدول الذى تم اختياره فى الكمبو بكس اضغط على زر عرض و لعرض الجدول فى وضع التصميم اضغط على زر تصميم و لحذف الجدول اضغط على زر حذف ** لرؤية جميع الجداول فى اطار الاكسس اضغط زر اظهار جميع الجداول ** لاخفاء جميع الجداول و اطار الاكسس اضغط على زر اخفاء جميع الجداول و فى الختام لكم منى كل تحية و تقدير اخوكم / علاء الدين محمد النكلاوى مصر - البحيرة ت: 3803009/045 neklawy1968@yahoo.com excel_to_access.rar

أخي الكريم أرسل ملف الأكسل وملف الأكسس وسنتعاون سوياً على حل المشكة إن شاء الله على كلٍ قم بتحليل مشكلتك إلى مراحل : 1 - اعمل link لصفحة الأكسل 2 - اعمل جدول table لإدخال البيانات فيه 3 - اعمل استعلام الإلحاق uppend query بهذا تتعرف على الخطأ أين حصل وتقوم بتلافيه ثم تنتقل إلى عمل ذلك بالكود والسلام عليكم

اليكم كود لتلأم العمود لمحتوى النص بمعنى عند كتابة اسم طويل بالخليه تتوسع اتوماتيك ينحط الكود في حدث workbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) ActiveSheet.Columns(Target.Column).AutoFit End Sub

العزيز يحياوي : بداية اشكرك كود يقوم بعمل حماية على جميع أوراق العمل في ملف أكسيل مع ملاحظة كود تقسم الخلايا لم يعمل معي ؟؟ ربما لم اعرف التعامل معه ارجو المساعدة في اعادة الكود بملف اكسل آخر ... وعذرا وفقك الله ياسر الحافظ حماية مصنف.rar