新增文章

文章标题分类内容

Private Sub Save_Click()
     
    Dim aSql As String:  aSql = "select * from Cust where FCustNo = '" & Me.FCustNo.Value & "'"
    Dim aTxt As String:
    
    Dim aDatabase As DAO.Database:    Set aDatabase = CurrentDb
    Dim aRecordset As DAO.Recordset:  Set aRecordset = aDatabase.OpenRecordset(aSql)
    
    
    If Me.FCustId.Value = 0 And aRecordset.RecordCount > 0 Then
    
        aTxt = "戶口編號 " & Me.FCustNo.Value & " 已存在，不能重複增加 ！":  MsgBox aTxt, vbExclamation, " 注意": Exit Sub
    End If

aSql = "insert into Cust (FCustNo,FCustName,FCustAddr) values( '" & Me.FCustNo.Value & "','" & Me.FCustName.Value & "','" & Me.FCustAddr.Value & "'"

If Me.FCustId.Value > 0 Then
    
        aSql = "update Cust set FCustNo = '" & Me.FCustNo.Value & "',FCustName = '" & Me.FCustName.Value & "',FCustAddr = '" & Me.FCustAddr.Value & "' where FCustId = " & Me.FCustId.Value
    End If

DoCmd.SetWarnings False:  DoCmd.RunSQL aSql
    DoCmd.SetWarnings True

Me.FindTxt.Value = Me.FCustName.Value:  Me.FindTxt.SetFocus:  Call aShow(False)
End Sub