Private Sub SaveA_Click()
If rubfongmainkey <> "" Then
Forms!FormKomrong!a4 = Me!rubfongmainkey
Forms!FormKomrong!Namerub = Me!jod
Forms!FormKomrong!dang1 = Me!dang1
Forms!FormKomrong!dang2 = Me!dang2
DoCmd.Close
Else
Label1.Visible = True
NewT.SetFocus
End If
End Sub
