drthaodean > 12-01-19, 11:01 AM
Private Sub cmdthem_Click()
Dim SoAo
If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
Docmd.GoToRecord , , acNewRec
SoAo = DLast("[SoBN]", "tbl_BBGiaoNhan_Main")
SoBN = Format(SoAo + 1, "#")
Me.SoLuu.Value = Me.SoBN.Value & "/" & Year(Now) & "/GBN-TTPY"
Me.Dienthoaidelienhe.Value = DLast("[Dienthoaidelienhe]", "tbl_BBGiaoNhan_Main")
Me.Tennguoinhan.SetFocus
Else
Docmd.GoToRecord , , acNewRec
Me.SoBN.Value = "1"
Me.SoLuu.Value = "1" & "/" & Year(Now) & "/GBN-TTPY"
Me.Tennguoinhan.SetFocus
End If
End Sub