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

[Abdelaziz Osman]

السلام عليكم   يرجى التكرم بالمساعدة

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

تم تعديل فبراير 10, 2022 بواسطه Abdelaziz Osman

[jjafferr]

وعليكم السلام 🙂

 

جرب هذا التعديل:

بدلا عن
= Me.[Last Situation]   

  
  استعمل
= Me.[Last Situation].oldvalue & vbCrLf & Me.[Last Situation].text
  
 او
= Me.[Last Situation].oldvalue & vbCrLf & Me.[Last Situation]  

 

جعفر

[Abdelaziz Osman]

اعطانى رسالة ان لدي مشكلة تقريبا تتعلق بعلامة  ( & )

كما هو موضح بالصورة

 

[Abdelaziz Osman]

مرفق النموذج المراد تحقيق الكود عليه

Last Situation.zip

[jjafferr]

تفضل 🙂

Private Sub 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] = Me.[Last Situation] & vbCrLf & "استعجال المورد بسرعة التوريد _تاريخ       /       / "
  Case 2
       Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد باستبدال المهمات المرفوضة _تاريخ       /       / "
  Case 3
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتوفير شهادات المطابقة الفنية _تاريخ       /       / "
  Case 4
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بإصدار الرسومات التنفيذية _تاريخ       /       / "
  Case 5
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بسداد التامين النهائي _تاريخ       /       / "
  Case 6
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتعديل طريقة الدفع _تاريخ       /       /"
  Case 7
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "انذار المورد بالشراء خصما من مستحقاته _تاريخ       /       /"
  Case 8
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بجاهزية المهمات _تاريخ       /       /"
  Case 9
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تحويل من المخازن"
  Case 10
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بموافاتنا بالإضافات _تاريخ       /       /"
  Case 11
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التوريد بالكامل _تاريخ       /       /"
  Case 12
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التحويل للخارجيه"
  Case 13
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم إلغاء امر التوريد _تاريخ  /  /  "
  Case 14
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "HOLD"
  Case 15
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم عمل تعاقد"
  Case 16
        Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم الارسال الى المركز الرئيسى بتاريخ"
  Case Else
        MsgBox ("برجاء إختيار رقم من القائمه")
End Select


Exit_Npos_AfterUpdate:
    Exit Sub

Err_Npos_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Npos_AfterUpdate
End Sub

 

جعفر

[Abdelaziz Osman]

تسلم صديقى  بارك الله لك فى علمك   لك جزيل الشكر والتحية

تسلم صديقى jjafferr بارك الله لك فى علمك   لك جزيل الشكر والتحية

 

[Eng.Qassim]

2 ساعات مضت, Abdelaziz Osman said:

تسلم صديقى  بارك الله لك فى علمك   لك جزيل الشكر والتحية

ماشاء الله عليك..

الرجل تعبان معاك من الصبح ...وانت تعطي لنفسك افضل اجابة 🤣

[Abdelaziz Osman]

اسف  دوست غلط