Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Parameter Value when running code

Posted on 2008-06-18
12
Medium Priority
?
224 Views
Last Modified: 2013-11-28
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
Comment
Question by:Jamie Poole
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 3
  • 3
  • +1
12 Comments
 
LVL 3

Expert Comment

by:BitRunner303
ID: 21812925
See if this works:

DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES (""" & WeekText(1) & """, """ & WeekText(2) & """)"
0
 
LVL 19

Expert Comment

by:frankytee
ID: 21812945
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
 

Author Comment

by:Jamie Poole
ID: 21813030
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
Vim Reference Guide

Vim is a powerful text editor favored by many sysadmins and developers - here are some commands that you'll want to keep in your back pocket!

 
LVL 19

Expert Comment

by:frankytee
ID: 21813137
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
 
LVL 19

Accepted Solution

by:
frankytee earned 1000 total points
ID: 21813152
typo, it should be (replace accordingly):
DoCmd.RunSQL "update tbl_EmployeeShiftInformation set DaysWorkedWK1 ='" & WeekText(1) & "', DaysWorkedWK2 = '" & WeekText(2) & "'" & " WHERE whateverIDfield = " & whateverid
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 21813162
you will need an update query not an insert (append) query

0
 

Author Comment

by:Jamie Poole
ID: 21813163
frankytee, I will try this, but low group question , why an update not an insert statement.

Thank you
0
 

Author Comment

by:Jamie Poole
ID: 21813443
What do I do if I am populating a new table with empty fields how do I write this UPDATE statement?
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 21813665
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
 

Author Comment

by:Jamie Poole
ID: 21813704
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
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 21813899
frankytee already posted the codes at http:#a21813152
0
 

Author Closing Comment

by:Jamie Poole
ID: 31468326
Thank you
0

Featured Post

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question