momy_nana

في ١٤‏/١٢‏/٢٠١٨ at 17:19, ابو عارف said:

تفضل اليك التعديل

test (1).mdbtest (1).mdb

في مصيبه قبلتني كمان 

21 ساعات مضت, ابو عارف said:

تفضل اليك التعديل

test (1).mdbtest (1).mdb

تسلم يا غالي يا رب الله يعطيك الف عافيه 
بس سؤال هل يمكن اضافة ساعه رقميه للنموذج و اضافة آلة حاسبه ؟

1 ساعه مضت, ابو عارف said:

هل تقصد منع ادخال قيم في نموذج Main4 الا القيم في القائمة vehicle_modle ؟ اذا جواب صح  في ورقة خصائص لـ vehicle_modle في لسان تبويب "بيانات" اجعل خيار التزام بالقائمة الى "نعم"

ثانيا لي سؤال حول برنامجك لو تسمح لي

لماذا كثرة نماذج وفتح نموذج من خلال نموذج رئيسي ثم حفظ و تحديث نموذج الرئيسي....

ماذا لو قمت باضافة عناصر القائمة من خلال مربع نص الصغيرة في نفس نموذج و نفس زر كما هو في المثال المرفق

test.mdb

فكرة رائعة اخي الكريم ساقوم باستخدامها 

الان بدي امنع ادخال نفس الموديل مثلا لو قمت باضافة مموديل UU حين اقوم بادخاله مره اخري تظهر رساله هذا الموديل موجود مسبقا

40 دقائق مضت, ابو عارف said:

في حدث عند اغلاق الصق الكود:

Forms!Main4!vehicle_modle.Requery

 

تسلم يا غالي يا رب مش عارف اشكرك اذاي 

44 دقائق مضت, ابو عارف said:

في حدث عند اغلاق الصق الكود:

Forms!Main4!vehicle_modle.Requery

 

بعد اذنك ممكن كود لعدم ادخال نفي القيمه في نموذج vehicle_modle

برجاء المساعده في نموذج main4

حقل vehicle_modle

في زرadd more modles بيفتح نموذج اريد عند غلق النموذج الخاص بالادد تتحدث قيمة الحقل 

test.mdb

وجدت مثال رائع للاستاذ jafae089 في احد المنتديات لنسخ و استرجاع البيانات و هو عمل نسخة من الداول فقط و هذا رائع

لكن اريد عمل النسخة الاحتياطية يكون اسمها اسم قاعدة البيانات + التاريخ

و يكون امتداد النسخة dll او sys 

و طبعا في الاسترداد يمكن الاسترداد من اي من الامتدادات دي و طبعامش عايو يكون في اختيارات للامتداد

هل من مساعده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

نسخ واسترجاع البيانات.rar

السلام عليكم كل خبراء الاكسيس

طلبي ممكن يكون غريب شوية بس ضروري جدا

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

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

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

مرفق مثال 

db.rar

تفضل الكود

Private Sub combo_a_Change()
Me.Text13 = DLookup("[price_a]", "العدسات", "[type_a] = '" & Me.combo_a & "'")
End Sub

في حدث بعد التحديث للكومبوبكس نفذ دالة

DLookup

للبحث في حقل السعر بشرط أن حقل النوع بالجدول يساوي ما هو مكتوب في الكومبوبكس

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

محتاج مساعده ممكن؟

يا جماعه مساعده ضروري عندي مشكلة في قاعدة بيانت

المشكلة هي 

عندي جدول لانواع النظارات و جدول انواع العدسات

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

المطلوب عند اختيار نوع النظاره من الكومبو بوكس يظهر سعرها في التكست بوكس المقابل ليها و كذلك في انواع العدسات

مرفق مثال و ارجو المساعده بارسع وقت مع شرح الطريقة و ما تم فعله

وشكرا

db.rar

السلام عليكم

مثل ما هو مذكور في العنوان

اريد كود يقوم باخفاء WINDOWS TASK BAR عند تشغيل قاعدة البيانات

انا حصلت على كود بس اشتغل على نموذج واحد و مش راضي يشتغل على باقي النماذج

هل يمكن مساعدتي

و الكود اللي حصلت عليه هو

Private Const SW_HIDE = 0

Private Const SW_SHOW = 5


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Sub SetWinTaskBarVisible(tbVisible As Boolean)

		Dim hTaskBar As Long


		hTaskBar = FindWindow("Shell_TrayWnd", vbNullString)

		If tbVisible Then

				ShowWindow hTaskBar, SW_SHOW

		Else

				ShowWindow hTaskBar, SW_HIDE

		End If

End Sub


Private Sub Form_Load()

		SetWinTaskBarVisible False

End Sub


Private Sub Form_Unload(Cancel As Integer)

		SetWinTaskBarVisible True

End Sub