-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
22 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
6 عاديعن htkamal
-
الرتبة
عضو جديد
معلومات الملف الشخصي
- الجنس ذكر
أحدث الزائرين لملفلك الشخصي
-
تقييد حقل الباركود بالارقام المدخلة في البرنامج
htkamal رد على jamal sinani's موضوع في قواعد بيانات Microsoft Access
تفضل اخي الكريم مع ضرورة التعديل كما هو موضح ادناه يرجى ملئ الفراغات اداناه و وضع الكود في حدث بعد التحديث x1= اسم العمود او الحقل في الجدول x2= اسم الجدول x3 = اسم مربع النص في النموذج If DLookup("[x1]", "[x2]", "[x1] = '" & [x3] & "' ;") <> [x3] Then MsgBox "هذا الصنف غير مسجل", vbMsgBoxRight + vbCritical, "تنبيه" -
كيف يمكنني تغيير تواريخ جميع الملفات مره واحدة
htkamal رد على ahmed246's موضوع في قواعد بيانات Microsoft Access
تفضل اخي الكريم حيث ان tabale_name هو اسم الجدول الذي سيتم التعديل عليه و column1 اسم العمود او الحقل الذي به التاريخ في الجدول يجب عليك تعديل قيمة x1 كما هو موضح ادناه DoCmd.SetWarnings False Dim x1 x1 = [حقل التاريخ في النموذج] DoCmd.RunSQL "UPDATE [table_name] SET [column1] = '" & x1 & "' ;" DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد" -
اخي الكريم سأشرح لك الموضوع بالتفصيل اولاً / تم استدعاء اسم المستخدم UserName من جدول PASS بناء على المدخلات في حقل n1 و حقل n2 DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") اذا تحقق شرط التطابق اسم المستخدم في النموذج مع اسم المستخدم و كلمة المورر المدخل في النموذج If DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") = Me.n1 Then سيتم تنفيذ شرط فتح النموذج و ارسال اسم المستخدم الى حقل التمسية رقم 3 وسيتم اغلاق نموذج الدخول DoCmd.OpenForm "welcome" [Forms]![welcome]![تسمية3].Caption = "اهلا وسهلا بك" & " : " & Me.n1 DoCmd.Close acForm, "pass" لكن توجد طريقة سهلة جداً اضف مربع نص في الصفحة الرئيسية welcome و اجعل مصدر عنصر التحكم هو [Forms]![Pass]![n1] هنا قمنا بجلب اسم المستخدم من صفحة تسجيل الدخول و لنا كامل الحرية في التحكم بها في جميع النماذج و التقارير
-
A3.com أعطى سمعة إيجابية لــ إجابة على سؤال: ادراج اسم المستخدم لجميع الاعمال
-
تفضل التعديل اخي الكريم Password (1).rar
- 5 ردود
-
1
-
اريد اضافة زر للبحث بالإسم أو جزء منه . وشكرا
htkamal رد على zoom10's موضوع في قواعد بيانات Microsoft Access
تفضل التعديل اخي الكريم 11.accdb -
تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير X Dim x, x2 x = "Table Name" x2 = CurrentProject.Path & Me.Text6 & ".xls" Open CurrentProject.Path & Me.Text6 & ".xls" For Binary Access Write As #1 Close #1 DoCmd.TransferSpreadsheet acExport, 8, x2, x, True
-
ارفق المثال اخي الكريم لكي يتم التعديل عليه
-
حسب الخصم والقيمة المضافة وعمل نموذج ونموذج فرعي
htkamal رد على alsaeed147's موضوع في قواعد بيانات Microsoft Access
تفضل طلبك اخي الكريم اضغط هنا للتحميل -
احمد المبرمج أعطى سمعة إيجابية لــ إجابة على سؤال: طلب مساعدة فى تجميع عدد خانات اختيار التى تحتوى على علامة صح لسجل وراجاع رقم المجموع
-
احمد المبرمج أعطى سمعة إيجابية لــ إجابة على سؤال: اضافة خيارات من قائمة الى حقل اخر
-
برجاء المساعدة فى عمل قوائم تشغيل رئيسية متفرع منها قوائم تشغيل فرعية ببرنامج اكسس
htkamal رد على حمدى الإبراشى's موضوع في قواعد بيانات Microsoft Access
تفضل هذا المقترح اخي الكريم اضغط هنا للتحميل -
faife أعطى سمعة إيجابية لــ إجابة على سؤال: اضافة خيارات من قائمة الى حقل اخر
-
faife أعطى سمعة إيجابية لــ إجابة على سؤال: اضافة خيارات من قائمة الى حقل اخر
-
اسم النموذج خطأ او محذوف هذا النموذج تم اضافته عند الفتح فقط عليك ازالة اسم النموذج من الصفحة الرئيسية او ارفق البرنامج ان لم يفلح الحل
-
تفضل التعديل اخي الكريم l1 (1).mdb
- 7 ردود
-
2
-
طلب مساعدة فى تجميع عدد خانات اختيار التى تحتوى على علامة صح لسجل وراجاع رقم المجموع
htkamal رد على walid_alex's موضوع في قواعد بيانات Microsoft Access
تفضل طلبك اخي الكريم تجميع عدد خانات.mdb- 1 رد
-
1
-
تفضل طلبك اخي الكريم l1 (1).mdb
- 7 ردود
-
1
-
Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub يا اخوان وجدت هذا الكود و لكن للاسف ما نفع المطلوب كود تغيير مصدر السجلات للنموذج الفرعي Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub
-
Hosain21 أعطى سمعة إيجابية لــ إجابة على سؤال: برنامج السلف و الاقساط
-
بناء على طلب احد الاعضاءالكرام برنامج للسف و الاقتراض للموظفين احببت ان يستفيد الجميع من هذه الفكرة مرفق لكم البرنامج آمل ان يحوز على رضائكم نظام سلف الموظفين.rar
- 1 رد
-
1