ผมจะทำการบวกเวลาไปอีก 1 วันถ้า CB1=01:00 ครับ
CB1 คือ Combo ให้เลือกครับ
TX30 คือวันที่ได้รับมาครั้งแลกครับ
TX32 คือวันที่จริงที่จะได้ครับ


Private Sub TX30_AfterUpdate()
If TX30.Value <> "" And CB1.Value <> "" Then
        If CB1.Value = "01:00" Then
                    TX32.Value = TX30.Value + 1
                    
               Else
                    TX32.Value = TX30.Value
                   
        End If
    End If
End Sub

คำตอบที่ได้มันไม่ +1 ให้ครับ ก็ยังคงเป็นวันเดียวกับ Else ครับ
ช่วยดูให้หน่อยครับ ผมเข้าไปดูกะทู้เก่าแล้วครับ เข่น
http://www.thai-access.com/yeadram_view.php?topic_id=135    
แต่ก็ยังไม่ได้ตามต้องการครับ พอมาเขียน If คำตอบที่ออกมาไม่ได้ครับ
รบกวนด้วยครับ ขอบคุณครับ