Код доступа для доступа к VBA

Question

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

Private Sub btnAddEnt_Click() 
Dim strEnt As String 
Dim Direct As Integer 
Dim Indirect As Integer 
Dim DirectNum As Currency 
Dim IndirectNum As Currency 
Dim db As Database 
Set db = CurrentDb 
Dim disRs As DAO.Recordset 
Dim dayRs As DAO.Recordset 
Dim Jan As Currency 
Dim Feb As Currency 
Dim Mar As Currency 
Dim Apr As Currency 
Dim May As Currency 
Dim Jun As Currency 
Dim Jul As Currency 
Dim Aug As Currency 
Dim Sep As Currency 
Dim Oct As Currency 
Dim Nov As Currency 
Dim Dec As Currency 
Dim DKClient As String 
Dim DKNum As Integer 
strEnt = "INSERT INTO EntList (EntityID, BusinessUnit, EntityName, Position, Location, Client, Dept, DistKey, Salary, Currency, SQ&A, BillRate, Util%, MeritDate, MeritRate) " & _ 
     "VALUES ('" & Me.EntityID & "', '" & Me.BusinessUnit & "', '" & Me.EntityName & "', '" & Me.Position & "', '" & Me.Location & "', '" & Me.Client & "', '" & Me.Dept & "', '" & Me.DistKey & "', '" & Me.Salary & "', '" & Me.Currency & "', '" & Me.SG_A & "', '" & Me.BillRate & "', '" & Me.Util_ & "', '" & Me.MeritDate & "', '" & Me.Merit_ & "');" 
DoCmd.RunSQL strEnt 
Direct = (1 - Me.SG_A) 
Indirect = Me.SG_A 
If Direct > 0 Then 
    DirectNum = Direct * Me.Salary/12 
End If 
If Indirect > 0 Then 
    IndirectNum = Indirect * Me.Salary/12 
End If 
If Me.BillRate > 0 Then 
    Set dayRs = db.OpenRecordset("SELECT WrkDays FROM WrkDays ORDER BY WrkMonth;") 
    dayRs.MoveFirst 
    Set DayNum = dayRs.Fields("WrkDays") 
    While Not dayRs.EOF 
     Jan = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Feb = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Mar = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Apr = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     May = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Jun = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Jul = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Aug = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Sep = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Oct = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Nov = (Me.BillRate * DayNum) * Me.Util_ 
     dayRs.MoveNext 
     Dec = (Me.BillRate * DayNum) * Me.Util_ 
    Wend 
End If 
If Me.DistKey <> "N/A" Then 
    Set disRs = db.OpenRecordset("SELECT Client, DistPer FROM DistMap WHERE DistKey = '" & Me.DistKey & "';") 
    disRs.MoveFirst 
    Set DKClient = disRs.Fields("Client") 
    Set DKNum = disRs.Fields("DistPer") 
    While Not disRs.EOF 
     If Direct > 0 Then 
      DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
          "VALUES ('" & Me.Location & "', DKClient, '" & Me.Dept & "', '5010 SALARIES/WAGES - ADMIN', '" & Me.EntityID & "', 'Payroll', '" & Me.Currency & "', DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum, DirectNum * DKNum);") 
     End If 
     If Indirect > 0 Then 
      DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
          "VALUES ('" & Me.Location & "', DKClient, '" & Me.Dept & "', '7010 SALARIES/WAGES - ADMIN', '" & Me.EntityID & "', 'Payroll', '" & Me.Currency & "', IndirectNum*DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum, IndirectNum * DKNum);") 
     End If 
     If Me.BillRate > 0 Then 
      DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
          "VALUES ('" & Me.Location & "', DKClient, '" & Me.Dept & "', '4900 CONSULTING FEES', '" & Me.EntityID & "', 'Revenue', '" & Me.Currency & "', Jan * DKNum, Feb * DKNum, Mar * DKNum, Apr * DKNum, May * DKNum, Jun * DKNum, Jul * DKNum, Aug * DKNum, Sep * DKNum, Oct * DKNum, Nov * DKNum, Dec * DKNum);") 
     End If 
     disRs.MoveNext 
    Wend 
Else 
    If Direct > 0 Then 
     DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
         "VALUES ('" & Me.Location & "', '" & Me.Client & "', '" & Me.Dept & "', '5010 SALARIES/WAGES - ADMIN', '" & Me.EntityID & "', 'Payroll', '" & Me.Currency & "', DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum, DirectNum);") 
    End If 
    If Indirect > 0 Then 
     DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
         "VALUES ('" & Me.Location & "', '" & Me.Client & "', '" & Me.Dept & "', '7010 SALARIES/WAGES - ADMIN', '" & Me.EntityID & "', 'Payroll', '" & Me.Currency & "', IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum, IndirectNum);") 
    End If 
    If Me.BillRate > 0 Then 
     DoCmd.RunSQL ("INSERT INTO ForcastTrans (Location, Client, Department, Account, EntityID, Description, Currency, Month1, Month2, Month3, Month4, Month5, Month6, Month7, Month8, Month9, Month10, Month11, Month12) " & _ 
         "VALUES ('" & Me.Location & "', '" & Me.Client & "', '" & Me.Dept & "', '4900 CONSULTING FEES', '" & Me.EntityID & "', 'Revenue', '" & Me.Currency & "', Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);") 
    End If 
End If 

End Sub

Я получаю сообщение об ошибке на следующей строке кода Set DKClient = disRs.Fields ("Клиент") это говорит требуется Compile Object Error Но у меня есть объект уже объявлен ,

Answer 1

Причина, по которой вы получаете эту ошибку, заключается в том, что вы объявляете DKClient и DKNum как строки, а затем пытаетесь присвоить им объекты DAO.Field.

Изменить следующие строки:

Dim DKClient As String 
Dim DKNum As String 

To:

Dim DKClient As DAO.Field 
Dim DKNum As DAO.Field 

Тем не менее, это не совсем ясно, что цель этих переменных из кода, публикуемую. Они, кажется, не используются.

Исправление, которое я предложил, должно получить ваш код для компиляции, но вы, вероятно, захотите спросить дополнительно, , адрес вопросов, чтобы добраться туда, куда вы пытаетесь пойти.

UPDATE
Я вижу, что вы пытаетесь использовать эти переменные как часть строки SQL вы исполняющая через DoCmd.RunSQL. Поскольку @HansUp, похоже, правильно догадывается, что вы действительно хотите, это ценность этих полей. Так изменить строки из:

Set DKClient = disRs.Fields("Client") 
Set DKNum = disRs.Fields("DistPer") 

To:

DKClient = disRs.Fields("Client").Value 
DKNum = disRs.Fields("DistPer").Value 

Далее, я бы настоятельно рекомендуем вам использовать CurrentDb.Execute "{YOUR SQL HERE}", dbFailOnError вместо DoCmd.RunSQL.

Кроме того, вам нужно объединить свои переменные String с помощью &, а не просто записывать их в строку в следующих строках кода.

Сегодня я не хочу, чтобы я был сосать дальше в этом конкретном отверстии кролика, поэтому я остановлюсь там и желаю удачи в сортировке остальных.

Answer 2

DKClient - это строковая переменная.

Dim DKClient As String 

Позже вы пытаетесь присвоить ему значение, используя Set.

Set DKClient = disRs.Fields("Client") 

Однако Set может быть использован только с переменным объектом, который объясняет объект, необходимой ошибку компиляции. Используйте простое назначение..Value является свойством по умолчанию, поэтому не требуется, но попробовать этот путь первых в любом случае ...

DKClient = disRs.Fields("Client").Value