استكمال البيانات
استكمال البيانات
الكود التالى وظيفته عند الضغط على رقم 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