Mohamed rafaat

برجاء المساعده من الاخوه الأعضاء في حل المشكله🤔

في ٤‏/٢‏/٢٠٢١ at 01:35, محمد أبوعبدالله said:

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

جرب اخي الكريم واخبرني بالنتيجة

Database3.rar 331.92 kB · 7 downloads

تحياتي

شكرا لحضرتك لمتابعة الموضوع لكن لم يتم حل مشكله 

السلام عليكم

اريد الغاء الاسكرين للشاشه الرئيسيه

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

وسوف ارفق الملف

Database3.rar

9 ساعات مضت, محمد أبوعبدالله said:

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

جرب التعديل التالي

If Confirmation = False Then Exit Sub

    If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then
            DoCmd.CancelEvent
            Me.Undo
            Me.TxtUser.SetFocus
    Else
    If Me.NewRecord Then
            If Me.TxtUser = DLookup("Username", "Users", "[Username]='" & Me.TxtUser & "'") Then
                        MsgBox "هذا المستخدم موجود مسبقاً", vbInformation, "تنبيه"
                        Me.TxtUser.SetFocus
                        Exit Sub
                    End If
            Else
                    DoCmd.Save
                    DoCmd.Close
            End If
    End If

Database2.rar 36.21 kB · 1 download

تحياتي

شكرا لحضرتك هجربه باذن الله 

هذا هو الملف المرفق

Database2.rar

السلام عليكم

ارجو من اخواني الاعزاء مساعدتي علي تعديل في كود الحفظ

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

وسيتم ارفاق الملف

في 30‏/1‏/2021 at 23:56, Barna said:

ربما هذا طلبك حسب فهمي لموضوعك ....

 

Database1 (7).rar 196.6 kB · 4 downloads

شكرا لحضرتك هو ده طلبي بالضبط

السلام عليكم 

ارجو من سيادتكم التكرم بحل هذه المشكله

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

والملف مرفق

Database1.rar

Database1.rar

برجاء المساعده 

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

منذ ساعه, biskra said:

Private Sub Id_Click()
DoCmd.OpenForm "InvoiceSales"
Dim s
s = Me.Id
DoCmd.GoToControl "Idinv"
[Forms]![invoiceSales]![IdInv] = s
End Sub

جرب الكود التالي

 

حضرتك جربتها علي الملف واشتغل معاك تمام فتح الفاتوره بجميع بياناتها 

لاني قمت بكتابة كود مشابه ولم يدرك بيانات الفاتورة كامله والكود في الاول خالص

9 دقائق مضت, biskra said:

يظهر أن ئؤالك غير واضح أخي الكريم، حسب الملف الذي أرفقته، لو استبدلت الكود الموجود في الملف

DoCmd.OpenForm "InvoiceSales", , , "[IdInv]=" & Me.Id

بالكود المقترح أعلاه سوف يفتح لك الفورم الذي ذكرته في طلبك

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

إلا إذا كان ما تريده شيئا آخر

شكرا لرد حضرتك

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

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

انا اسف للجميع ارجو المساعده في طلبي والنموذج مرفق فالاعلي

ارجو المساعده لضرورة الامر

15 ساعات مضت, Mohamed rafaat said:

النموذج InvoiceSales

عند الضغط علي رقم الفاتوره بالتقرير يتم فتح الفاتورة التي اختارتها

15 ساعات مضت, AlwaZeeR said:

Invoicepay

هذا النموذج؟؟

اين هو؟

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

ما هو المعيار ؟

حضرتك ماوصلتش لحل للمشكله

ارجو المساعد من الأعضاء 

3 دقائق مضت, AlwaZeeR said:

Invoicepay

هذا النموذج؟؟

اين هو؟

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

ما هو المعيار ؟

النموذج InvoiceSales

عند الضغط علي رقم الفاتوره بالتقرير يتم فتح الفاتورة التي اختارتها

4 دقائق مضت, AlwaZeeR said:

 

DoCmd.OpenForm "InvoiceSales", , , "[id]=" & Me.Id

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

الملف 

Database1.rar

5 دقائق مضت, AlwaZeeR said:

نعم صحيح

ولكن اعطاني رساله ادخال قيمه معلومه

شكرا لرد حضرتك ولكن هل الغي الكرد كامل واكتب الكود الذي ارسلته لي

السلام عليكم 

اريد حل لهذه المشكله باذن الله

قمت بعمل بحث علي الفواتير واظهار النتائج بالتقرير وعند الضغط علي رقم الفاتورة بيتم فتح نموذج الفاتوره 

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

وهذا هو الكود المستخدم

Private sub Id_click() 

Docmd. Openform "Invoicepay" 

Dim s

S= me. Id

Docmd. Gotocontrol "Idinv" 

Docmd. Findrecord s

[forms]![Invoicepay]![Idinv] =s

السلام عليكم 

عندي استعلام مبني علي استعلامات اخري 

ارجو عمل استعلام تحديث من الاستعلام الي الجدول

السلام عليكم 

بعد اذن الجميع إلا يعرف يساعدني في عمل فرز لبعض العمده مع وجود حمايه للملف 

كنت اخد كود لعمل الفرز هو تمام شغال بس ع أوفيس ٢٠١٠ وانا لما باخده على جهاز عليه اوفيس ٢٠٠٧ مابيشتغلش 

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

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