Search results

the record gets inputed but the value fromthe list box isnt selected. and i agree i really need to do a better job with naming...it will make life much easier

when the user clicks on the button, a value is selected in the list box. i then hit another button to input a record with a value from the previous mentioned list box...when the user hits this input record button, the data base says that nothing is selected in the list box... the code i...

i use a button to select a few things on a form. Although the correct record is highlighted in the list box, i still need to select it before i can input a record. even if i set focus to the list box. is there something else i could try? Me.lst0.Selected(11) = True Me.Combo17.Value = 14...

GREAT LINK! works like a champ

sorry..im new and need help with the vba that fires multipule message boxes...i get to the "print pdf and save" and it displays an error msg cant output to...any suggestions??? Private Sub Form_Load() Dim MResponse As Integer MResponse = MsgBox("HAVE YOU IMPORTED NEXT WEEKS PAYROLL EVENT...

I have a general date column titled “in” I use a query to convert it to short time. Inhr: Format([in],"Short Time") I then calculate the hours between midnight and 6am using this 1: IIf([inhr] between #00:00:00# and #06:00:00#,DateDiff("h",[inhr],#06:00:00#),0) It works like a champ, except...

I am new to this so bare with me…I have a general date column entitled “out”. I am building an iif statement that would return just the hours between midnight and 6am. otadd2: IIf([out]>#23:59:00#<#05:59:00#,DatePart("h",[out],0)) this statement returns all hours after midnight..can some one...

The user inputted… IN:4am OUT:8am basically hours worked between midnight and 5:59am are paid at a different scale depending on position. So when a person works 4am – 8am 2 of those hours need to be paid at the special rate and 2 hours at regular. The following iif statement in my query...

now i get the error 3134 syntaxerror in insert into statement Private Sub cmdPrintMultipleLabel_Click() 'Print multiple labels for current record. Dim bytCounter As Byte Dim strSQL As String On Error GoTo errHandler If IsNull(Me!txtNumberOfLabels) Then MsgBox "Please indicate...

i still get the syntax error (missing operator) in query expression 'count(group2)'. Private Sub Command220_Click() On Error GoTo Err_Command220_Click If DCount("Group 2", "00 upc create", "group 2 = 3") > 0 Then MsgBox ("Already created! Try Again.") Exit Sub Else DoCmd.OpenForm...

In the following code an error occurs where “release" of “cd release" is high lighted and a compile error expected: end of statement appears strSQL = "INSERT INTO " _ & "tblMultiplLables(cd release, dvd release , " _ & "customers, upc, group 1, group 2, " _ & "VALUES(" _...

i will get into the "naming" habbit...thats is great advice. i can see how it would help. im still getting syntax error. When the user hits the button on this form, the database creates a record that will be inputted to the forms subform. This button has a value "3" which is the ID of the field...

i changed my code to this but it creates a syntax error (missing operator) in query expression 'count (group2)'. Private Sub Command220_Click() On Error GoTo Err_Command220_Click If DCount("Group 2", "00 upc create", "id" = "3") Then MsgBox ("Already created! Try Again.") Else DoCmd.OpenForm...

Still didnt work:( current code is Private Sub Combo0_AfterUpdate() On Error GoTo Err_Combo0_AfterUpdate Dim stDocName As String Dim stLinkCriteria As String If Me.Combo0.Text >= "100210071001" And Me.Combo0 <= "100210079999" Then DoCmd.OpenForm "PURCHASE 2", , , ""...

that worked BEAUTIFULLY!!!! however the combo0 is a look up field so the number 100210071001 is actually id 7 in the upc table. STUPID LOOK UP FeILDS!!!...is there a way to fix my code to focus on the 100210071001 number and not the id? i m so sorry for lack of terms...i am a newbie!

the message box only displays if the first record in the subfrom "00upc created" contains the value 3. i would like the code to check all records in subform. Private Sub Command220_Click() On Error GoTo Err_Command220_Click If Me.Form("00 upc creatED").Controls("group 2").Value = 3 Then...

i apologize in advance...i am very new and have much to learn. i have a combo box with the following code in the after update...i get the error "object required" can someone please guide me to a fix Private Sub Combo0_AfterUpdate() On Error GoTo Err_Combo0_AfterUpdate Dim stDocName As...

thanks guys...great tips! bad habits!

WORKED LIKE A CHAMP!!! THANKS AGAIN Private Sub Combo0_AfterUpdate() On Error GoTo Err_Combo0_AfterUpdate Dim stDocName As String Dim stLinkCriteria As String DoCmd.OpenForm "PURCHASE 2", , , "" Forms("PURCHASE 2").Controls("CUSTOMERS").Value = Me.[Combo0] Me.Form.SetFocus DoCmd.Close...

my barcode scanner works like a keyboard. i have a form that opens up with 1 combobox. i scan in a barcode. numbers appear in the combo box but no event happens...i have used the following code in after update, before update, on change, on eneter, and all the "key" options...is there something...