قراءة مقطع من نص و نسخه الى حقل اخر في استعلام احتساب الوقت الزمني

تفضل طويل العمر :)

هذا كود الزر الذي يقوم بالعمل (وفي الكود تفصيل لعمل كل سطر :) ) :

Private Sub cmd_split_Click()

    Dim x() As String
    
    'we will use the Form Navigation
    
    'take the Form Record Source as a Recordset
    Set rst = Me.RecordsetClone
    'move to the 1st Record
    rst.MoveFirst
    'move the Record in the Form to the 1st Record
    DoCmd.GoToRecord , , acFirst
    
    'loop through the Form's Records
    For i = 1 To rst.RecordCount
         
        'split InOut values, which is saperated by a SPACE, into an array
        x = Split(Me.InOut, " ")
        
        'give Time Start the 1st value, which is Lower Bound of the x array
        Me.TimeStart = x(LBound(x))
        'give Time Finish the LAST value, which is Upper Bound of the x array
        Me.TimeFinish = x(UBound(x))
        
        'next Recordset
        rst.MoveNext
        'move to the next Record
        DoCmd.GoToRecord , , acNext
        
    Next i
    
End Sub

جعفر

شكر خاص لأخي القحم على تنبيهي لخاصية اظهار الكود بهذه الطريقة :)

97.InOut Times.mdb.zip

ممتاز جعفر+1

دائما أكتب الحل بهذه الطريقة

حاول استخدام خاصية إدراج (كود) 

حياك الله اخي القحم :)

بس ما فهمت قصدك :(

جعفر

يعني في محرر المنتدى استخدم  الوسم (<>)  حتى تظهر الشفرة منسقة وتصبح قراتها سهل.. يعني تصبح الشفرة مثل التالي

Dim x() As String

'we will use the Form Navigation

'take the Form Record Source as a Recordset
Set rst = Me.RecordsetClone
'move to the 1st Record
rst.MoveFirst
'move the Record in the Form to the 1st Record
DoCmd.GoToRecord , , acFirst

'loop through the Form's Records
For i = 1 To rst.RecordCount

'split InOut values, which is saperated by a SPACE, into an array
x = Split(Me.InOut, " ")

'give Time Start the 1st value, which is Lower Bound of the x array
Me.TimeStart = x(LBound(x))
'give Time Finish the LAST value, which is Upper Bound of the x array
Me.TimeFinish = x(UBound(x))

'next Recordset
rst.MoveNext
'move to the next Record
DoCmd.GoToRecord , , acNext

Next i

End Sub

شكر خاص لأخي القحم على تنبيهي لخاصية اظهار الكود بهذه الطريقة  :)

حيّاك أبا صادق .. نعم الرّد وبارك الله فيك

حياك الله :)

جعفر

أخي ابومنتظر ، رجاء استخدام هذا الكود المعدل :)

Private Sub cmd_split_Click()

    Dim x() As String
    
    'move the Record in the Form to the 1st Record
    DoCmd.GoToRecord , , acFirst
    
    'loop through the Form's Records
    For i = 1 To Me.RecordsetClone.RecordCount
         
        'split InOut values, which is saperated by a SPACE, into an array
        x = Split(Me.InOut, " ")
        
        'give Time Start the 1st value, which is Lower Bound of the x array
        Me.TimeStart = x(LBound(x))
        'give Time Finish the LAST value, which is Upper Bound of the x array
        Me.TimeFinish = x(UBound(x))
        
        'move to the next Record
        DoCmd.GoToRecord , , acNext
        
    Next i
    
    DoCmd.GoToRecord , , acFirst
    
End Sub

جعفر