استكمال البيانات

كل ما يخص برنامج مايكروسوف اكسس
أضف رد جديد

كاتب الموضوع
emadmoh
مشاركات: 1
اشترك في: رجب 1443

استكمال البيانات

مشاركة بواسطة emadmoh »

Last Situation.zip
(25.46 KiB) حُمِّل 174 مرةً
السلام عليكم يرجى التكرم بالمساعدة

الكود التالى وظيفته عند الضغط على رقم 1 او 2 او 3

كل رقم يعطى ادخال ( المطلوب اذا تم استخدام رقم من الارقام من قبل واريد استخدام رقم اخر بعد ذلك ... اريده ان لا يلغى الادخال القديم ولكن يكمل بعده فى سطر جديد لا اريده مسح الادخال القديم )

الكود كالتالى هو :


Private Sub Npos_AfterUpdate()
On Error GoTo Err_Npos_AfterUpdate

' Dim strMsg As String, strTitle As String, MMM As String
Dim ttt As Integer, intStyle As Integer
ttt = Me.Npos
' TTT = InputBox("Enter number between 1 and 11")
Select Case ttt
Case 1
Me.[Last Situation] = "استعجال المورد بسرعة التوريد _تاريخ / /"
Case 2
Me.[Last Situation] = "مراسلة المورد باستبدال المهمات المرفوضة _تاريخ / / "
Case 3
Me.[Last Situation] = "مراسلة المورد بتوفير شهادات المطابقة الفنية _تاريخ / / "
Case Else
MsgBox ("برجاء إختيار رقم من القائمه")
End Select

DoCmd.RunCommand acCmdRefresh
Exit_Npos_AfterUpdate:
Exit Sub

Err_Npos_AfterUpdate:
MsgBox Err.Description
Resume Exit_Npos_AfterUpdate
End Sub
أضف رد جديد