Need some help with linking mysql database and running a query declared in a function. Currently my access form is updating the linked table (mdb file) but need it to also update changes to mysql table. Below is the code I tried:
Code:
Dim db As DAO.Database
Dim rstAccounts As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
Set rstAccounts = db.OpenRecordset(strSQL)
If rstAccounts.NoMatch = True Then
Function testboxescheck()
End If
Private Function testboxescheck()
If FLFACheckBox = True Then
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text49';
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text53';
ElseIf NLCheckBox = True Then
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text51';
ElseIf FedMutualCheckBox = True Then
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text61';
ElseIf AmericanaCheckBox = True Then
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text55';
ElseIf SACheckBox = True Then
strSQL = INSERT INTO 'accounts1' ('ShortDesc', 'Description', 'Account', 'Region', 'CostCode', 'LOB', 'State', 'StateReq', 'NAI', 'StateReq', 'Company')
VALUES 'Me.ShortDescriptionTBox', Me.DescriptionTBox', 'Me.MajorAccountTBox', 'Me.DivRegionTBox', 'Me.CostCodeTBox', 'Me.LOBTBox', 'Me.StateTBox', 'Me.NAIC-TBox', 'Me.Text57';
Exit Function
End If
End Function