Доступ к базе данных без вставки записей - PullRequest
1 голос
/ 18 февраля 2012

Решено: мне просто удалось решить проблему, создав новую таблицу и удалив [IT-DEC], [IT-DEC-MAKER-FNAME], [IT-DEC-MAKER-LNAME], где я заменил их на строкипринят доступ, такой как ITDECMAKER ITDECMAKEFNAME ITDECMAKERLNAME

Похоже, что проблема решена, однако если у кого-то есть теория, почему это произошло, я действительно ценю ваш вклад

спасибо

Я сталкиваюсь с проблемой вставки более одной строки данных в мою таблицу.Например, я загружаю свою форму и вводю данные в текстовое поле. Вся информация вставляется в соответствующие таблицы соответственно, однако во второй раз, когда я хочу вставить данные, все данные вставляются в соответствующие таблицы успешно, за исключением одной таблицы, которая неберу больше данных, таким образом позволяя только одну строку данных.

Это код, который я использую в той же форме

Эта часть кода отвечает за таблицу userinfo, которая не принимаетболее одной записи

Private Sub proceedBTN_Click()

GlobalVar.flp = Me.qfirstname + Me.qlastname + Me.qmobile

 CurrentDb.Execute "INSERT INTO UserInfo(" _
 & "FLP, FirstName, LastName, Company, JobTitle, PhoneNumber, Mobile, Email, Fax, " _
 & "[IT-DEC], [IT-DEC-MAKER-FNAME], [IT-DEC-MAKER-LNAME], Contact, ContactMethodPhone, " _
 & "ContactMethodEmail, ContactMethodFax, ContactMethodPostal ,    AcquisitionTimeFrame,        Budget  ) " _
   & "VALUES('" & GlobalVar.flp & "','" & Me.qfirstname & "','" & Me.qlastname & "','" &     Me.qcompany & "','" & Me.qjob & "','" & Me.qphone & "','" & Me.qmobile & "','" &    Me.qemail & "','" _
   & Me.qfax & "','" & Me.itdecopt & "','" & Me.qitfirstname & "','" & Me.qitlastname &   "','" & Me.contactoption & "','" _
   & Me.contactphoneopt & "','" & Me.contactemailopt & "','" & Me.contactfaxopt & "','" &     Me.contactpostalopt & "','" & Me.acquisitionoption & "','" & Me.budgetoption & "');"

Этот код отвечает за вставку в таблицу UserPartners, которая позволяет успешно вводить несколько записей.

CurrentDb.Execute "INSERT INTO UserPartners(" _
 & "FLP, PartnerACT, PartnerBMB, PartnerEverTeam, " _
 & "PartnerFormatech, PartnerICC, PartnerIBS, PartnerMegaTek, PartnerMDS,     PartnerProcomix, PartnerSetsSolutions, " _
 & "PartnerTripleC, PartnerNewHorizons, PartnerPromethean, PartnerTeletrade,     PartnerNokia, PartnerPolycom, PartnerDell ) " _
     & "VALUES('" & GlobalVar.flp & "','" & Me.partneract & "','" & Me.partnerbmb & "','" _
     & Me.partnereverteam & "','" & Me.partnerformatech & "','" & Me.partnericc & "','" & Me.partneribs & "','" & Me.partnermegatek & "','" & Me.partnermds & "','" _
     & Me.partnerprocomix & "','" & Me.partnersetssolutions & "','" & Me.partnertriplec & "','" & Me.partnernewhorizons & "','" & Me.partnerpromethean & "','" _
     & Me.partnerteletrade & "','" & Me.partnernokia & "','" & Me.partnerpolycom & "','" & Me.partnerdell & "');"

Наконец, это код для всей формы

Option Compare Database




Private Sub contactoption_Click()

If Me.contactoption.Value = 2 Then
Me.contactemailopt.Enabled = False
Me.contactfaxopt.Enabled = False
Me.contactphoneopt.Enabled = False
Me.contactpostalopt.Enabled = False
Me.partneract.Enabled = False
Me.partnerbmb.Enabled = False
Me.partnerdell.Enabled = False
Me.partneredm.Enabled = False
Me.partnereverteam.Enabled = False
Me.partnerformatech.Enabled = False
Me.partneribs.Enabled = False
Me.partnericc.Enabled = False
Me.partnermds.Enabled = False
Me.partnermegatek.Enabled = False
Me.partnernewhorizons.Enabled = False
Me.partnernokia.Enabled = False
Me.partnerpolycom.Enabled = False
Me.partnerprocomix.Enabled = False
Me.partnerpromethean.Enabled = False
Me.partnersetssolutions.Enabled = False
Me.partnerteletrade.Enabled = False
Me.partnertriplec.Enabled = False
Else: Me.contactemailopt.Enabled = True
Me.contactfaxopt.Enabled = True
Me.contactphoneopt.Enabled = True
Me.contactpostalopt.Enabled = True
Me.partneract.Enabled = True
Me.partnerbmb.Enabled = True
Me.partnerdell.Enabled = True
Me.partneredm.Enabled = True
Me.partnereverteam.Enabled = True
Me.partnerformatech.Enabled = True
Me.partneribs.Enabled = True
Me.partnericc.Enabled = True
Me.partnermds.Enabled = True
Me.partnermegatek.Enabled = True
Me.partnernewhorizons.Enabled = True
Me.partnernokia.Enabled = True
Me.partnerpolycom.Enabled = True
Me.partnerprocomix.Enabled = True
Me.partnerpromethean.Enabled = True
Me.partnersetssolutions.Enabled = True
Me.partnerteletrade.Enabled = True
Me.partnertriplec.Enabled = True

End If

End Sub

Private Sub itdecopt_Click()

If Me.itdecopt.Value = 1 Then
Me.qitfirstname.Enabled = False
Me.qitlastname.Enabled = False
Else: Me.qitfirstname.Enabled = True
Me.qitlastname.Enabled = True

End If

End Sub



Private Sub proceedBTN_Click()

GlobalVar.flp = Me.qfirstname + Me.qlastname + Me.qmobile

CurrentDb.Execute "INSERT INTO UserInfo(" _
& "FLP, FirstName, LastName, Company, JobTitle, PhoneNumber, Mobile, Email, Fax, " _
& "[IT-DEC], [IT-DEC-MAKER-FNAME], [IT-DEC-MAKER-LNAME], Contact, ContactMethodPhone,     " _
& "ContactMethodEmail, ContactMethodFax, ContactMethodPostal , AcquisitionTimeFrame,     Budget  ) " _
& "VALUES('" & GlobalVar.flp & "','" & Me.qfirstname & "','" & Me.qlastname & "','" & Me.qcompany & "','" & Me.qjob & "','" & Me.qphone & "','" & Me.qmobile & "','" & Me.qemail & "','" _
    & Me.qfax & "','" & Me.itdecopt & "','" & Me.qitfirstname & "','" & Me.qitlastname     & "','" & Me.contactoption & "','" _
& Me.contactphoneopt & "','" & Me.contactemailopt & "','" & Me.contactfaxopt & "','" & Me.contactpostalopt & "','" & Me.acquisitionoption & "','" & Me.budgetoption & "');"


 CurrentDb.Execute "INSERT INTO UserPartners(" _
 & "FLP, PartnerACT, PartnerBMB, PartnerEverTeam, " _
 & "PartnerFormatech, PartnerICC, PartnerIBS, PartnerMegaTek, PartnerMDS, PartnerProcomix, PartnerSetsSolutions, " _
 & "PartnerTripleC, PartnerNewHorizons, PartnerPromethean, PartnerTeletrade, PartnerNokia, PartnerPolycom, PartnerDell ) " _
 & "VALUES('" & GlobalVar.flp & "','" & Me.partneract & "','" & Me.partnerbmb & "','" _
 & Me.partnereverteam & "','" & Me.partnerformatech & "','" & Me.partnericc & "','" & Me.partneribs & "','" & Me.partnermegatek & "','" & Me.partnermds & "','" _
 & Me.partnerprocomix & "','" & Me.partnersetssolutions & "','" & Me.partnertriplec & "','" & Me.partnernewhorizons & "','" & Me.partnerpromethean & "','" _
 & Me.partnerteletrade & "','" & Me.partnernokia & "','" & Me.partnerpolycom & "','" & Me.partnerdell & "');"


 CurrentDb.Execute "INSERT INTO UserProducts(" _
 & "FLP, ProductsExchange,ProductsLyncServer, ProductsLync , ProductsOffice, ProductsSharePoint, ProductsSharePointInternet, ProductsWindowsServer, " _
 & "ProductsSystemCenter, ProductsSQL, ProductsWindows7 ) " _
 & "VALUES('" & GlobalVar.flp & "','" & Me.productexchange & "','" & Me.productlyncserver & "','" _
 & Me.productlync & "','" & Me.productoffice & "','" & Me.productsharepoint & "','" & Me.productsharepointinternet & "','" & Me.productserver & "','" & Me.productsystemcenter & "','" _
 & Me.productsql & "','" & Me.productwindows & "');"

DoCmd.OpenForm "DayChoose", acNormal
DoCmd.Close acForm, "UserInfo", acSaveYes



End Sub

1 Ответ

0 голосов
/ 19 февраля 2012

Прежде чем я смогу вам помочь, пожалуйста, переделайте, используя следующие параметры:

Private Sub proceedBTN_Click()
    Dim Db As DAO.Database
    Set Db = CurrentDb
    Dim qd As DAO.QueryDef
    Dim SQL As String
    SQL = "INSERT INTO UserInfo(" & _
      "FLP, FirstName, LastName, Company, JobTitle, PhoneNumber, Mobile, Email, Fax, " & _
      "[IT-DEC], [IT-DEC-MAKER-FNAME], [IT-DEC-MAKER-LNAME], Contact, ContactMethodPhone, " & _
      "ContactMethodEmail, ContactMethodFax, ContactMethodPostal ,    AcquisitionTimeFrame, Budget) " & _
      "VALUES([pflp], [pfirstname], [pqlastname], [pqcompany],[pqjob],[pqphone],[pqmobile], [pqemail]," & _
            "[pqfax],[pitdecopt],pqitfirstname,[pqitlastname],[pcontactoption],[pcontactphoneopt],[pcontactemailopt]," & _
            "[pcontactfaxopt],[pcontactpostalopt],[pacquisitionoption],[pbudgetoption]);"

    Set qd = Db.CreateQueryDef("", SQL)
    qd.Parameters("pflp") = GlobalVar.flp
    qd.Parameters("pfirstname") = Me.qfirstname
    ' continue filling parameters....
    qd.Parameters("pbudgetoption").Value = Me.budgetoption
    qd.Execute

End Sub

Если это не решит вашу проблему, мы можем копнуть немного глубже.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...