Private Sub确定_Click() On Error GoTo Err_确定_Click DoCmd.ApplyFilter , "密码 = Forms!更改密码!Text1" If IsNull([密码]) Then MsgBox ("密码不正确， 请再输入一次") Text1.SetFocus GoTo Exit_确定_Click: End If If Text3.Value < > Text2.Value Then Text3.SetFocus MsgBox ("请输入正确的确认密码") Else: 密码 = Text3.Value DoCmd.Close End If Exit_确定_Click: Exit Sub Err_确定_Click: MsgBox Err.Description Resume Exit_确定_Click End Sub 更改密码后，应记住此密码，以备以后使用。 ----设计好程序，并将有关代码隐藏起来（与隐藏“表”的方法相同），以防其他人修改或偷看。这里介绍的方法只是在程序中实现加密功能的一个小技巧，在其他数据库管理中，也可采用此方法进行加密。也许存在更为简洁的方法，有待大家在编程过程中发掘出来并互相交流。
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
