بسم الله الرحمن الرحيم
ارجو مساعدتي في عمل برنامج بسيط نوعا ما بس انا محتاجه ضروري.
بدي برنامج اكسس يجمع ارقام في عمود معين ويضهرالنتيجه في( تيكست بوكس ) عن طريق فنكشن في ال vba
ومشكورين سواء اتم الرد على الموضوع او لم يتم.
مساعده في الاكسس مع الفيجوال بيسك
أخي الكريم اهلا بك
هل استخدمت البحث ؟
فيما أعتقد أنه يوجد أمثلة على ذلك
موفق
اخي سمير طلبك موجود على صفحات النت فقط ابحث عن تطبيق الاكواد في
اعدادات اكسس مع VB او راسلني على البريد
اخي الكريم سمير
كما اخبرك المشرف اكسير يفترض انك قمت بعملية البحث في المنتدى فالأمثله والشروحات كثيره
عموما تفضل هذه هي طرق جمع عمود معين
الطريقة الأولى في النموذج مباشرة
وهذا مثال
الطريقة الثانية من خلال الـ VBA
يكون مربع النص غير منضم
ثم نضع الكود في حدث الحالي للنموذج
Private Sub Form_Current()
strA = DSum("[A]", "Table")
strB = DSum("", "Table")
strC = DSum("[C]", "Table")
Me.Refresh
End Subوستكون النتيجه بهذه الطريقة ايضا
وهذا مثال
