محمد احمد لطفى

أستاذى ابو خليل لى استفسار هل هذا الكود يعمل على النص و الارقام rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0))

أستاذى كانت المراقبة تأخذ خانة الهندسة ولقد توصلت الى رقم المدينة ( هندسة) المشكلات التى تواجهنى الان 1 - يجب الضغط مرتين على مربع النقل حتى تدخل المدينة فى خانة الهندسة 2- عند ادخال قراءة اخرى لشخص اخر تحمل الصفحة مرة اخرى بسبب المحافظة Test 900100.mdb

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

جزاك الله خيرا استاذى في حدث Form_Load وضعت سطرين لشفرة الإتصال بالموقع: ( لم أجد السطر المعطل ) بيان المحافظة يعمل ممكن استأذن حضرتك لادخال قرائة اخرى لشخص اخر يعمل تحميل للصفحة بسبب المحافظة ممكن جعلها لا تعمل اذا كانت المحافظة دقهلية بيان الهندسة لا يعمل و لكن لا يهم مرفق نسخة من برنامجى الأن قد عدلت عليها بعض التعديلات جعله الله فى ميزان حسناتك Test 900100.mdb

للرفع

استاذى ابو خليل الرسالة MsgBox "لا يوجد سجل مطابق" تاتى سواء السجل مطابق أو لا يطابق عند كتابة سجل غير موجود يذهب الى سجل اخر اريده ان لا يذهي الى سجل اخر

جزاك الله خيرا استاذى ابو خليل ليست لى خبرة جيدة بالاكسيس و البرمجة و لكن تعلمت من حضرتكم الكثير

استاذى حدثت لى مشكلة أن عند اختيار المحافظة ( الدقهلية ) لم تفعل الهندسة لم تاتى بياناتها المفترض اختيار ( مدينة ميت غمر ) و لم تظهر كذلك الكبتشا

اسف فى هذا النموذج test622.mdb

السلام عليكم ورحمة الله و بركاته عند البحث عن سجل غير موجود يظهر سجل بشكل عشوائى اريد عند البحث عن سجل غير موجود تاتى رسالة هذا السجل غير موجود ولا يذهب الى اى سجل وجزاكم الله خيرا test622.mdb

الكود موجود فى الخلية غير منضم numx = numx + x x = 0

أستاذى ما ذكر سابقا يفى بالغرض

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

أستاذى صالح حمادى رقم 5 ده مش ثابت بقول مثال يعنى ممكن يكون اى رقم

السلام عليكم ورحمة الله و بركاته فى هذه الخليه رقم 20 اذا تم تغير الرقم الى 5 الطبيعى سيبقى الرقم 5 كيف يمكن عند اضافة الرقم مثلا 5 يصبح الرقم النهائى 25 فى نفس الخلية وجزاكم الله خيرا test 987.mdb

اها انظر الة اخر مشاركة

تخفيضها برمجيا انظر لهذا الموضوع

شاهد هذا الموضوع

DCount("REFVAL","SrNoiseOutCome","[SRNOIOUT]='INDUST'" And "[SRNOICAT]='NUICEA'")

تم التغيبر فى نموذج الواجهة زرار الاستعلام عن متدرب تم التغيير فى تموذج الاستعلام عن متدرب عند التحميل برنامج أدارة المتدربين.mdb

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

غير كود أستاذى @Shivan Rekany الى Private Sub Command17_Click() On Error Resume Next On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command17_Click: Exit Sub DoCmd.Close acForm, Me.Name Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub

هل هكذا كما تريد برنامج أدارة المتدربين.mdb

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

على الاقل اخر عشر سجلات