程式如下: 當我按101時可儲存且畫面也說要更新資料..但實際上卻無更新.按102時也說要更新資料且真的有更新... 想請教這2組是差異在哪裡....初學還請解惑.....有感謝... Private Sub Command101_Click() On Error GoTo Err_Command101_Click Dim TT As String TT = ChrW(24040) & ChrW(-26938) & ChrW(51) DoCmd.RunMacro TT Exit_Command101_Click: Exit Sub Err_Command101_Click: MsgBox Err.Description Resume Exit_Command101_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit Sub MsgBox Err.Description Resume Exit_Command101_Click End Sub Private Sub Command102_Click() On Error GoTo Err_Command102_Click
Dim TT As String TT = ChrW(24040) & ChrW(-26938) & ChrW(51) DoCmd.RunMacro TT Exit_Command102_Click: Exit Sub Err_Command102_Click: MsgBox Err.Description Resume Exit_Command102_Click End Sub |