عبد الفتاح كيرة

السلام عليكم

وجدت بالمنتدى هذا الموضوع لتصدير الاستعلامات إلى إكسيل

لكنى أبحث عن ميزة اختيار الحقول التى يتم تصديرها من الاستعلام

يعى مثلا الاستعلام ينتج 45 حقلا

أرغب فى تصدير الحقول من 19 : 45

و لكم جزيل الشكر

نظام كالآتي

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

آخذ نسخة منه

و أشغلها على جهاز المنزل

فقدت أن النسخة التى لم تعمل على 2010

لن تعمل مرة أخرى

و يلزم جلب نسخة جديدة لم تتعطل من قبل

أعتقد لو أن الملف الأصلى أنشئ بإصدار متقدم فلن يتعطل

قد فعلت ما يلى

حذفت 2010

النسخة التى لا تعمل ستظل كذلك حتى بعد حذف 2010

اجلب نسخة جديدة من القاعدة و ستعمل

إن شاء الله

أوفيس 2010 و تحديثه

يفعل هذا

إذا كانت القاعدة بإصدار أقدم

10 ساعات مضت, kaser906 said:

اذا المشكلة تكون بالآتي

يوجد نسخة اوفيس تحتوي على كامل التحديثات والأخرى لم يتم تحديثها

استخدم  نفس النسخة من الاوفيس على الجهازين  وقم بتحديث الوندوز

وستحل المشكلة بإذن لله

 

كلامك تمام

وقد قمت بحذف 2010

وكان قد تطلب التسجيل

ولم يتم تسجيله

لكن بقيت المشكلة بالملف حتى بعد الحذف

شكرا لتجاوبك مع الموضوع

*حبذا لو تكرم أستاذنا أبو خليل بتصحيح عنوان الموضوع

لا

لم أحول الملف أبدا

نظام التشغيل بالعمل اكس بي

و بالمنزل وندوز  7

أما الأوفيس فهو 2007

فى كليهما

و المشكلة مستحدثة فى جهاز المنزل فقط

44 دقائق مضت, kanory said:

اخي الكريم راجع هذا الرابط قد يفيدك

https://support.microsoft.com/ar-sa/help/2581301/acc2010-you-receive-an-error-in-microsoft-access-using-the-built-in-wi

 

قمت بتغيير أسماء الملفات كما قالوا

لكن عند تشغيل أكسيس يتم توليدها من جديد

إصلاح هذه المشكلة بنفسي

لحل هذه المشكلة، اتبع الخطوتين التاليتين:

1. قم بإغلاق جميع مثيلات برنامج Microsoft Office Access 2010.

2. أعد تسمية ملفات المعالج المناسبة الموجودة على المسار c:\Program Files\Microsoft Office\Office14\ACCWIZ\ 
 

السلام عليكم

كل عام أنتم بخير

وصف المشكلة:

قاعدة بيانات تعمل بصورة سليمة على جهاز العمل

و لكن عند تشغيلها على جهاز المنزل مؤخرا

ظهرت هذه الرسالة كما بالصورة

علما أنها كانت تعمل على نفس الجهاز بكفاءة

برأيكم

ما الأسباب التى تجعل هناك مشكلة مع أوامر vb

جزاكم الله خيرا

الحقل يكون فى الجدول

وهو حقل رقمى

1=ذكر

2=أنثى

استحدث حقلا للجنس

لا عيب

ولا حرام

وفقكم الله

13 ساعات مضت, محمد احمد العصري said:

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

وفقكن الله وبارم فيكم

شكراً لك

يا سلام على الأفكار النيرة

حيلة عظيمة

قسمة الحقل على نفسه

يعطينا 1  فى حال كان به أى رقم

وصفر إن كان فارغا

بارك الله فى علمك

وشكرا لاستحابتك

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

هذا كود يقوم

1- حساب عدد حصص كل معلم وتسجيلها فى مربع نص اسمه sthu88

2 - حساب مجموع كل الحصص و تدوينها فى مربع نص اسمه total

وذلك بالتنقل عبر حقول الاستعلام Q_all و حساب الحصص و ذلك باستخدام رقم الحقل فى dao

وقد قمت بعمل دوارتين لهذا الغرض

و قد اضطررت لتكرار جزء من الدوارة الأولى و استخدامه فى الدوارة الثانية

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
Dim db As Database
Dim rs As DAO.Recordset
Dim i As Integer
Dim ii As Integer
Dim tt As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset(Me.RecordSource)
rs.MoveFirst
Do Until rs.EOF
    For i = 3 To 47
                If rs(i) <> "" Then
                     ii = ii + 1
                End If
    Next i
 tt = tt + ii
 rs.MoveNext
   ii = 0
 Loop
rs.MoveFirst
  rs.FindFirst ("[tt_tname]=" & [tt_tname])
  For i = 3 To 47
                If rs(i) <> "" Then
                ii = ii + 1
                End If
    Next i
    Me.sthu88 = ii
Me.total = tt
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

الجزء المكرر هو هذا الذى يحسب عدد حصص كل مدرس

                     
  For i = 3 To 47
                If rs(i) <> "" Then
                ii = ii + 1
                End If
    Next i
    Me.sthu88 = ii

هل يمكن ضم الدوارتين معا كما كنت أحاول سابقا

لكنى لم أنجح

شكرا لكم مقدما

الملف مرفق

و التقرير

rpt_alls

newTab113.rar

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

كيف يتم عرض الترتيب مع عدم عرض الخلايا الفارغة

ملفك ليس به سجلات فارغة

ما يظهر فى نهاية النموذج الفرعى هو لاستقبال سجل جديد

كلنا نتعلم

شكرا لك

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

أولا ما يصلح أن تسمى حقلا باسم date

غيرته إلى mdate

أضف السطرين التاليين إلى زر ترتيب تصاعدى فى النموذج الرئيسى

Me.test.Form.OrderBy = "mdate asc"
Me.test.Form.OrderByOn = True

ملفك بعد التعديل

test1005.rar

17 ساعات مضت, Shivan Rekany said:

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

    Me.test1 = date()

اوتوماتيكيا يتغير الى هذا

    Me.test1 = date

صدقت

أما التى بالقوسين ففى مصدر بيانات عنصر التحكم من نافذة الخصائص

=date ()

ما علاقة ذلك بقسم الأكسيس؟

تقبل الله منا ومنكم صالح الأعمال

الله يبارك فيك أبا خليل المحترم

وهذه النتيجة المرضية

و الحمد لله

و كل عام و أنتم بخير

السلام عليكم

وكل عام و أنتم بخير

الصورة الأولى بها عنصر التحكم rs

وبجواره عنصران آخران

فالفصل 2/1  لديه المدرس فوزى عوف و المادة لغة عربية

كيف يمكن الحصول على الشكل التالى فى التقرير

وجميع هذه الحقول فى استعلام يبنى عليه التقرير

و هذه هى القاعدة كاملة

newTab112.rar

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

لكن لأجل الأستاذ شيفان نحاول

الحل بطريقة الجدول الوسيط

تقرير taqall

الحل بطريقة الأستاذ شيفان

تقرير  rpt_all2

فى الملف التالى

newTab10.rar

الحل النهائى بطريقة الأخ رمهان فى الملف التالى

تقرير rpt_alls

وفقكم الله

newTab11.rar

6 ساعات مضت, Shivan Rekany said:

المشاركة لاستاذنا و خبيرنا @عبد الفتاح كيرة يرجع ل 21 مايو في سنة 2011
اي يعني كان قبل 6 سنوات

هذا كان فى بدايات الانتقال من الإكسيل إلى الأكسيس

والحمد لله مازلنا نتعلم كل يوم فى منتدانا الغالى

شكرا لك أخى شيفان

7 ساعات مضت, Shivan Rekany said:

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

تقبل تحياتي

ده شغل كبير جدا

ربنا ييسر الأمر

طريقتك بها قاعدة مرفقة

و طريقة الأستاذ رمهان ما تحتاج قاعدة

و الطريقة الثالثة سأحاول رفعها إن شاء الله

جزاكم الله خيرا