• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 232
  • Last Modified:

Parameter Value when running code

I am asked to enter a parameter value when I run this code. Anybody know why.

Thanks
Private Sub btn_Update_Days_Worked_Click()
 
   Dim WeekNumber As Byte
   Dim DayOfWeek As Byte
   Dim WeekText(1 To 2) As String
   Dim CurrentCheckBox As CheckBox
   
   For WeekNumber = 1 To 2
      For DayOfWeek = 1 To 7
         Set CurrentCheckBox = Me("WKDay" & LeadingZero(DayOfWeek + ((WeekNumber - 1) * 7)))
         If CurrentCheckBox = 0 Then
            WeekText(WeekNumber) = WeekText(WeekNumber) & "X"
         Else
            WeekText(WeekNumber) = WeekText(WeekNumber) & GetFirstLetterOfDay(DayOfWeek)
         End If
      Next
   Next
   DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES ([WeekText(1)], [WeekText(2)])"
   
End Sub

Open in new window

0
Jamie Poole
Asked:
Jamie Poole
  • 5
  • 3
  • 3
  • +1
1 Solution
 
BitRunner303Commented:
See if this works:

DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES (""" & WeekText(1) & """, """ & WeekText(2) & """)"
0
 
frankyteeCommented:
the error is this line:
 DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES ([WeekText(1)], [WeekText(2)])"

it should be:
 DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES ('" & WeekText(1) & "','" & WeekText(2) & "')"
0
 
Jamie PooleDigital Specialist Author Commented:
I now get the following message: Microsoft Office can't append all the records in the append query.

I just want to update a single record in the table.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
frankyteeCommented:
thats because your sql statement is an insert (ie append) and not an update statement
an update statement would be something like:
DoCmd.RunSQL "update tbl_EmployeeShiftInformation set DaysWorkedWK1 ='" & WeekText(1) & ', DaysWorkedWK2 = '" & WeekText(2) & "'" & " WHERE ..... whatever record id etc"


0
 
frankyteeCommented:
typo, it should be (replace accordingly):
DoCmd.RunSQL "update tbl_EmployeeShiftInformation set DaysWorkedWK1 ='" & WeekText(1) & "', DaysWorkedWK2 = '" & WeekText(2) & "'" & " WHERE whateverIDfield = " & whateverid
0
 
Rey Obrero (Capricorn1)Commented:
you will need an update query not an insert (append) query

0
 
Jamie PooleDigital Specialist Author Commented:
frankytee, I will try this, but low group question , why an update not an insert statement.

Thank you
0
 
Jamie PooleDigital Specialist Author Commented:
What do I do if I am populating a new table with empty fields how do I write this UPDATE statement?
0
 
Rey Obrero (Capricorn1)Commented:
life42,

updating a field in a table means revising/editing the fields value of an existing record.

appending to a table means inserting/adding a new record to the table.


what do you want to do?
0
 
Jamie PooleDigital Specialist Author Commented:
I want to update a table, that has employee id employee name and department already populated I want to add what days of the week they work based on checkbox values. I have the checkbox values stored, I just need to update the employee record in the table based on the input from the form.

0
 
Rey Obrero (Capricorn1)Commented:
frankytee already posted the codes at http:#a21813152
0
 
Jamie PooleDigital Specialist Author Commented:
Thank you
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 5
  • 3
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now