كيف أقفل النماذج

[mbn]

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

الإخوان الأفاضل

عندي سؤال صغير

وما أضنه عليكم بعسير

تعرفوا أنه أو ماتسوي نموذج بواسطة المعالج

إذا فتحت النموذج تقدر على طول تعدل على المعلومات

طيب

سؤالي هو

كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟

[كمال النحال]

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

الإخوان الأفاضل

سؤالي هو

كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟

أخي الكريم

تحية طيبة وبعد ،،،،،،،،،،،،،

اليك هذه القاعدة حيث تتكون من نموذجين أحدهم للإدخال ومن خلاله تستطيع ادخال بيانات المشتركين واذا تكرر نفس الرقم المدخل سوف تظهر رسالة بذلك والآخر للتعديل حيث بامكانك ادخال رقم المشترك تظهر جميع بياناته والآن أتركك مع تنزيل القاعدة.

مع خالص تحياتي لك بالتوفيق

BILLS_WATER.rar

[أ / محمد صالح]

كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟

مرفق مثال بسيط يكون فيه التعديل والإضافة ممنوعين

إلا بعد الضغط على زر السماع بالإضافة والتعديل

ويكون ذلك بجعل جصائص النموذج

السماح بالتحرير _____ لا

السماح بلإضافة _____ لا

ثم نضيف هذا الكود عند النقر على الزر

Me.AllowEdits = True
Me.AllowAdditions = True

أرجو أن يكون هذا المطلوب

db1.rar

[mbn]

إخواني

أنا ماطلبت نموذج

انا طلبت الطريقة

اكتبوها كتابة

[mbn]

الف شكر لكم إخواني على مجهودكم

بس مافهمتوا عليي بالضبط


أنا أقولكم

انا عرفت المكان إلي أحط فيه التعليمات عشان أحط الأمر
من خلال نموذج الأخ كمال النحال

بس ممكن تشرحلي زياده عن الـفيجوال بسيك المدخل

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

كل سطر وفائدته إذا مافي كلافه

[كمال النحال]

أخي الكريم

بعد التحية ،،،،،،،،،،،

اليك هذه القاعدة وهي مبسطة جداً وقد أنشأتها خصيصاً لك وهي مكونه من جدول واحد به 3 حقول فقط للتبسيط ونموذج للاضافة وآخر للتعديل حيث تم الشرح داخل الكود وكذلك وحدة نمطية واحدة .

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

db22.rar

[mbn]

الف شكر لك مجدداً

وإن شاء الله يكون مفيد

[mbn]

كلمة مأثورة خذوها مني

"لقد تعلمت وتعلمت فخولت لنفسي أني قد دخلت إلى خليج ، فزددت علماً فعلمت أني على باب البحر ، فزددت علماً فضربت رأسي ؛ لإني مازلت على شاطئ المحيط"

تم تعديل مايو 8, 2008 بواسطه mbn

[onnah]

اعتقد يمكنك استخدام خاصية setvalue وتجعل جميع الحقول disable وبالضغط على زر معين تجعل جميع الحقول enable

والله كريم

[أبا عمر]

ينقل 

.....