mbn قام بنشر مايو 5, 2008 قام بنشر مايو 5, 2008 السلام عليكم ورحمة الله وبركاته ،،،، الإخوان الأفاضل عندي سؤال صغير وما أضنه عليكم بعسير تعرفوا أنه أو ماتسوي نموذج بواسطة المعالج إذا فتحت النموذج تقدر على طول تعدل على المعلومات طيب سؤالي هو كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟
كمال النحال قام بنشر مايو 5, 2008 قام بنشر مايو 5, 2008 السلام عليكم ورحمة الله وبركاته ،،،، الإخوان الأفاضل سؤالي هو كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟ أخي الكريم تحية طيبة وبعد ،،،،،،،،،،،،، اليك هذه القاعدة حيث تتكون من نموذجين أحدهم للإدخال ومن خلاله تستطيع ادخال بيانات المشتركين واذا تكرر نفس الرقم المدخل سوف تظهر رسالة بذلك والآخر للتعديل حيث بامكانك ادخال رقم المشترك تظهر جميع بياناته والآن أتركك مع تنزيل القاعدة. مع خالص تحياتي لك بالتوفيق BILLS_WATER.rar 1
أ / محمد صالح قام بنشر مايو 5, 2008 قام بنشر مايو 5, 2008 كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟ مرفق مثال بسيط يكون فيه التعديل والإضافة ممنوعين إلا بعد الضغط على زر السماع بالإضافة والتعديل ويكون ذلك بجعل جصائص النموذج السماح بالتحرير _____ لا السماح بلإضافة _____ لا ثم نضيف هذا الكود عند النقر على الزر Me.AllowEdits = True Me.AllowAdditions = True أرجو أن يكون هذا المطلوب db1.rar 1
mbn قام بنشر مايو 7, 2008 الكاتب قام بنشر مايو 7, 2008 إخواني أنا ماطلبت نموذج انا طلبت الطريقة اكتبوها كتابة
mbn قام بنشر مايو 7, 2008 الكاتب قام بنشر مايو 7, 2008 الف شكر لكم إخواني على مجهودكم بس مافهمتوا عليي بالضبط أنا أقولكم انا عرفت المكان إلي أحط فيه التعليمات عشان أحط الأمر من خلال نموذج الأخ كمال النحال بس ممكن تشرحلي زياده عن الـفيجوال بسيك المدخل Private Sub DER_Click() On Error GoTo bbc If IsNull(S1) Then Beep S1.SetFocus Exit Sub End If Q.AddNew Q!CustNo = S1 Q!CustNm = S2 Q!Site = S3 Q!Datee = S4 Q!NZONE = COM1 Q!SortNo = COM2 Q!Ret = S5 Q!Reste = S6 Q!Clean = S7 Q!Pris = S8 Q!Ser = S9 Q!SWG = S10 Q!DR1 = S11 Q!R1 = S12 Q!Chassi = S14 Q!CustNmm = S13 Q!Rooms = S15 Q!Str = S16 Q.Update S1 = Null S2 = Null S3 = Null S4 = Null COM1 = Null COM2 = Null S5 = 99999 S6 = 0 S7 = False S8 = False S9 = False S10 = False S11 = Null S12 = 0 S14 = Null S13 = Null S15 = 0 S16 = False S1.SetFocus bbc: S1.SetFocus Exit Sub End Sub Private Sub S1_AfterUpdate() Dim ss As String Dim QRY As String QRY = "SELECT Custs.* FROM Custs;" Set Q = CurrentDb.OpenRecordset(QRY) ss = "custno=" & S1 Q.FindFirst ss If Not Q.NoMatch = True Then Beep MsgBox "åÐÇÇáÓÌá ãæÌæÏ Ýí ãáÝ ÇáãÔÊÑßíä ", , "ÇáãÈÑãÌ" S2.SetFocus S1.SetFocus S1 = "" End If End Sub Private Sub S10_AfterUpdate() If IsNull(S10) Then S10.SetFocus S10 = 0 Exit Sub End If End Sub Private Sub S12_AfterUpdate() If IsNull(S12) Then S12.SetFocus S12 = 0 Exit Sub End If End Sub Private Sub S15_AfterUpdate() If IsNull(S15) Then S15.SetFocus S15 = 0 Exit Sub End If End Sub Private Sub S2_AfterUpdate() S13 = S2 End Sub Private Sub S5_AfterUpdate() If IsNull(S5) Then S5.SetFocus S5 = 99999 Exit Sub End If End Sub Private Sub S6_AfterUpdate() If IsNull(S6) Then S6.SetFocus S6 = 0 Exit Sub End If End Sub Private Sub S7_AfterUpdate() If IsNull(S7) Then S7.SetFocus S7 = 0 Exit Sub End If End Sub Private Sub S8_AfterUpdate() If IsNull(S8) Then S8.SetFocus S8 = 0 Exit Sub End If End Sub Private Sub S9_AfterUpdate() If IsNull(S9) Then S9.SetFocus S9 = 0 Exit Sub End If End Sub Private Sub ZXCV_Click() DoCmd.Close End Sub كل سطر وفائدته إذا مافي كلافه
كمال النحال قام بنشر مايو 7, 2008 قام بنشر مايو 7, 2008 أخي الكريم بعد التحية ،،،،،،،،،،، اليك هذه القاعدة وهي مبسطة جداً وقد أنشأتها خصيصاً لك وهي مكونه من جدول واحد به 3 حقول فقط للتبسيط ونموذج للاضافة وآخر للتعديل حيث تم الشرح داخل الكود وكذلك وحدة نمطية واحدة . أتمنى أن تستفيد منها وتكون البداية نحو الانطلاق الى عالم البرمجة db22.rar
mbn قام بنشر مايو 8, 2008 الكاتب قام بنشر مايو 8, 2008 (معدل) كلمة مأثورة خذوها مني "لقد تعلمت وتعلمت فخولت لنفسي أني قد دخلت إلى خليج ، فزددت علماً فعلمت أني على باب البحر ، فزددت علماً فضربت رأسي ؛ لإني مازلت على شاطئ المحيط" تم تعديل مايو 8, 2008 بواسطه mbn 1
onnah قام بنشر مايو 12, 2008 قام بنشر مايو 12, 2008 اعتقد يمكنك استخدام خاصية setvalue وتجعل جميع الحقول disable وبالضغط على زر معين تجعل جميع الحقول enable والله كريم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.