اريد عندما اضع علامه صح تظهر لي جمله مثلا لديه عذر عند وضع الصح وعندما لا اضع العلامه يبقي فاضي
اريد عندما اضع علامه صح تظهر لي جمله
مشكور اخويه
يعطيك الف عافية
هذا الكود عند الفتح
aa.SetFocus
aa.Value = yes
كيف اضع هذا الكود
Private Sub Form_Open(Cancel As Integer)
Dim SF As Control
With MyUser
If .GetAbility(Me.Name, OpenForm) Then
Me.AllowAdditions = .GetAbility(Me.Name, Add)
Me.AllowEdits = .GetAbility(Me.Name, Edit)
Me.AllowDeletions = .GetAbility(Me.Name, Del)
For Each SF In Me.Controls
If SF.ControlType = acSubform Then
SF.Form.AllowAdditions = Me.AllowAdditions
SF.Form.AllowEdits = Me.AllowEdits
SF.Form.AllowDeletions = Me.AllowDeletions
End If
Next
Else
MsgBox "ÚÝæÇð " & .UserName & " " & vbCr & vbCr & "áíÓ áÏíß ÇáÕáÇÍíÉ áÝÊÍ åÐÇ ÇáäãæÐÌ", 0 + 16 + 1572864, "äÙÇã ÇáÕáÇÍíÇÊ"
Cancel = True
End If
End With
End Sub