Microsoft Access : 폼에서 테이블로 콤보 상자 데이터 저장

Question

사용자가 폼에 입력 한 데이터를 저장하는 테이블이 있습니다. 양식에 입력 된 모든 데이터는 콤보 상자에서 선택한 필드를 제외하고 테이블에 올바르게 저장됩니다. 폼 디자인보기에서 이러한 모든 콤보 상자 선택이 기본 데이터의 연결된 테이블 필드에 바인딩되어 있는지 확인했습니다.

현재 테이블의 디자인보기에서 해당 필드에 대한 데이터 형식이 "간단한 텍스트"로 설정되어 있습니다. 문제가 데이터 형식을 다른 형식으로 설정해야하는지 또는이 문제를 일으키는 다른 것이 있는지 궁금합니다.

Answer 1

Option Compare Database 
Option Explicit 
Dim stay As String 
Function EnableInfo() 

    Me.ADescription.Locked = False 
    Me.ComboVendor.Locked = False 
    Me.ComboVendor.Locked = False 
    Me.onHand.Locked = False 
    Me.onOrder.Locked = False 
    Me.CostB.Locked = False 
    Me.ListPriceB.Locked = False 

End Function 

Function DisableInfo() 

    Me.ADescription.Locked = True 
    Me.ComboVendor.Locked = True 
    Me.onHand.Locked = True 
    Me.onOrder.Locked = True 
    Me.CostB.Locked = True 
    Me.ListPriceB.Locked = True 

End Function 

'------------------------------------------------------------ 
' Function that disables/enable when command buttons when ADD and Edit are clicked! 
'------------------------------------------------------------ 
Function AddEdit() 

    Me.CmdAdd.Enabled = False 
    Me.CmdEdit.Enabled = False 
    Me.CmdExit.Enabled = False 
    Me.CmdSave.Enabled = True 
    Me.CmdCancel.Enabled = True 

    Me.AllowAdditions = True 
    Me.AllowDeletions = True 
    Me.AllowEdits = True 

    Call EnableInfo 

End Function 

'------------------------------------------------------------ 
' Function that disables/enable when command buttons when Save and Cancel are clicked! 
'------------------------------------------------------------ 
Function SaveCancel() 

    Me.CmdAdd.Enabled = True 
    Me.CmdEdit.Enabled = True 
    Me.CmdExit.Enabled = True 
    Me.CmdSave.Enabled = False 
    Me.CmdCancel.Enabled = False 

    Call DisableInfo 


End Function 

'------------------------------------------------------------ 
' Function that enables navigation buttons 
'------------------------------------------------------------ 
Function EnableNavigation() 

    Me.cmdFirst.Enabled = True 
    Me.cmdNext.Enabled = True 
    Me.cmdPrevious.Enabled = True 
    Me.cmdlast.Enabled = True 

End Function 


'------------------------------------------------------------ 
' Function that disables navigation buttons 
'------------------------------------------------------------ 
Function DisableNavigation() 

    Me.cmdFirst.Enabled = False 
    Me.cmdNext.Enabled = False 
    Me.cmdPrevious.Enabled = False 
    Me.cmdlast.Enabled = False 

End Function 


'------------------------------------------------------------ 
' Function when the ADD button is clicked 
'------------------------------------------------------------ 
Private Sub CmdAdd_Click() 

    PartIDtext.SetFocus 
    stay = PartIDtext.Value 
    Me.DataEntry = True 
    Call EnableInfo 
    Call AddEdit 
    Call DisableNavigation 

End Sub 

'------------------------------------------------------------ 
' Function when the CANCEL button is clicked 
'------------------------------------------------------------ 
Private Sub CmdCancel_Click() 

    Call SaveCancel 
    Call DisableInfo 
    Call EnableNavigation 
    Me.Undo 
    Me.DataEntry = False 
    Me.RecordsetClone.FindFirst "partID = " & stay 
    Me.Bookmark = Me.RecordsetClone.Bookmark 



End Sub 

'------------------------------------------------------------ 
' Function when the EDIT button is clicked 
'------------------------------------------------------------ 
Private Sub CmdEdit_Click() 

    Call AddEdit 
    Call EnableInfo 
    Call DisableNavigation 
    PartIDtext.SetFocus 
    stay = PartIDtext.Value 



End Sub 

'------------------------------------------------------------ 
' Function when the EXIT button is clicked 
'------------------------------------------------------------ 
Private Sub CmdExit_Click() 

    DoCmd.Close 

End Sub 

'------------------------------------------------------------ 
' Function when the SAVE button is clicked 
'------------------------------------------------------------ 
Private Sub CmdSave_Click() 

     ADescription = Trim(ADescription.Value) 
     stay = Me.PartIDtext.Value 

     If IsNull(Me.ADescription) Or Len(Me.ADescription) < 5 Then 
      MsgBox "Please enter a description of at least 5 characters" 
      Me.ADescription.SetFocus 


     ElseIf IsNull(Me.onHand) Or (Me.onHand) < 0 Then 
      MsgBox "On hand must have a value greater than 0" 
      Me.onHand.SetFocus 

     ElseIf IsNull(Me.ComboVendor) Then 
      MsgBox "select one" 
      Me.onHand.SetFocus 

     ElseIf IsNull(Me.onOrder) Or (Me.onOrder) < 0 Then 
      MsgBox "On order must have a value greater than 0" 
      Me.onOrder.SetFocus 

     ElseIf IsNull(Me.CostB) Or (Me.CostB) < 0 Then 
      MsgBox "Cost must have a value greater than 0" 
      Me.CostB.SetFocus 

     ElseIf IsNull(Me.ListPriceB) Or (Me.ListPriceB) < (Me.CostB) Then 
      MsgBox "List price must be greater than cost!" 
      Me.ListPriceB.SetFocus 

     Else 
      Me.DataEntry = False 
      Me.RecordsetClone.FindFirst "partID = " & stay 
      Me.Bookmark = Me.RecordsetClone.Bookmark 

      Call SaveCancel 
      Call DisableInfo 
      Call EnableNavigation 

     End If 
End Sub 


'------------------------------------------------------------ 
' CmdNext 
'------------------------------------------------------------ 
Private Sub CmdNext_Click() 

    On Error Resume Next 
    DoCmd.GoToRecord , "", acNext 

End Sub 


'------------------------------------------------------------ 
' CmdPrevious 
'------------------------------------------------------------ 
Private Sub CmdPrevious_Click() 

    On Error Resume Next 
    DoCmd.GoToRecord , "", acPrevious 

End Sub 


'------------------------------------------------------------ 
' CmdFirst 
'------------------------------------------------------------ 
Private Sub CmdFirst_Click() 

    DoCmd.GoToRecord , "", acFirst 

End Sub 


'------------------------------------------------------------ 
' CmdLast 
'------------------------------------------------------------ 
Private Sub CmdLast_Click() 

    DoCmd.GoToRecord , "", acLast 

End Sub