اهل استطيع عند وضع علامه صح ان يتم ادخال

moom2007 كتب:

اهل استطيع عند وضع علامه صح ان يتم ادخال username فقط ولا يتم التعديل علية الا مرة واحده عند الضغط

نعم يمكن ذلك باستخدام هذا الكود في الحدث بعد التحديث للحقل as

If Me.as = -1 Then
username.Locked = falsu
Else
username.Locked = True
End If

واستخدام نفس الكود بالحقل المسمى username. ولكن هذه المرة في الحدث عند الأدخال .

هذا والله أعلم ...

مع تحيايي

بيانات المستخدم.rar

مشكور .

لكن في مشكله يظهر مسج

بعد اذن استاذنا محمد سمير علي

فقط غير الكلمة الاخيرة من السطر الثاني لتصبح false بدلاً من falsu

والكود الصحيح كما يلي

If Me.as = -1 Then
username.Locked = false
Else
username.Locked = True
End If

تم تغيير

لكن نفس المشكله

شكر ع التواصل

وينكم ؟؟؟؟؟؟؟

moom2007 كتب:

مشكور .

لكن في مشكله يظهر مسج

شكرا أستاذ ايهاب على التعديل .. والغريب أن رغم هذا الخطأ الغير مقصود طبعا فالمثال يعمل بشكل جيد..

أخي الكريم المثال يعمل ولا يعطني عندي أي رسالة .. ما الاصدار من الاكسس الذي تستخدمه ؟

وأرجو منك التكرم بوضع صورة عن الرسالة حتى نستطيع تحديد الخطأ ..

وبالتوفيق ..

مشكور ع المداخلة

انا استخدم 2003

Private Sub Form_Current()

Dim dwLen As Long

Dim strString As String

dwLen = MAX_COMPUTERNAME_LENGTH + 1

strString = String(dwLen, "X")

GetComputerName strString, dwLen

strString = Left(strString, dwLen)

Me![computername] = strString

Me![username] = CurrentUser()

Dim N

Dim UserN As String

UserN = Space(15)

N = GetUserName(UserN, 15)

Me![username] = UserN

Me.Refresh

End Sub

انا اقد انه لم احط علامه صح يتم تخزين username

moom2007 كتب:

مشكور ع المداخلة

انا استخدم 2003

Private Sub Form_Current()

Dim dwLen As Long

Dim strString As String

dwLen = MAX_COMPUTERNAME_LENGTH + 1

strString = String(dwLen, "X")

GetComputerName strString, dwLen

strString = Left(strString, dwLen)

Me![computername] = strString

Me![username] = CurrentUser()

Dim N

Dim UserN As String

UserN = Space(15)

N = GetUserName(UserN, 15)

Me![username] = UserN

Me.Refresh

End Sub

انا اقد انه لم احط علامه صح يتم تخزين username

أخي الكريم نأسف على التأخير ..

تم اضافة الكود التالي

If (IsNull([code])) Or (IsEmpty([code]) Or [code] = " ") Then Exit Sub

وأعتقد أن الخطأ يحدث عندما تكون قيمة للحقل code . تساوي null ....

هذا والله أعلم ..

بيانات المستخدم.rar

مشكور ع الرد ....

لكن انا اريد لم افتح البرنامج يكون username فاضي يعني ما ينكت في شى الا لم اضع علامه الصح فقط

في حال اي شخص ضغط على علامه الصح يتم التخزين في username فى

اتمنا ان تكون الفكره وصلت

تفضل أخى اتمنى ان يكون مذا ما تريد

بيانات المستخدم.rar

يعطيك الف عافية

هذا هو المطلوب ..

بس هل يستوي انه لم اضع علامه صح تكون مرة واحد يعني يتم حفظ ولا يستطيع مرة ثانية التعديل

بالتأكيد أخى

ممكن ذللك

فقط احذف الجزء الاخير من الكود من بداية else

و غير خصائص الحقلين الى locked = yes