Search results for query: *

not sure whats wrong with this SELECT Projection.[Day], SUM(datediff('n', Sched.Start, Sched.[End]) / 60) AS Hours, AVG(SalaryRate.Expr3) + SUM(Staff.Rate1 * (datediff('n', Sched.Start, Sched.[End]) / 60)) AS Wage, wage / AVG(Projection.AvgOfPm) * 100 AS Expr1...

I have an access database back end and I'm trying to use this iif statement iif(schedule.type like '%p%', staff.rate1, staff.rate2). But I keep getting the error that the like statement is not recognized.

I have multiple buttons( button1, button2, etc and instead of typing repeated code i just want the button to refer to the recordid and then based on that update the text value of the button T=Form.RecordID.Text Main.Controls("Button" & T).Text = Me.textbox1.Text any help would be great...

im trying to convert code from access to Visual studio dataset query but its not recognizing my LIKE statement SELECT Staff.Deactivate, Staff.Employee, IIf([Position] Like "*O*","Opener") AS [Open], Staff.Rate1, Staff.Rate2, Staff.Salary, Staff.Availability FROM Staff WHERE...

im trying to convert code from access to Visual studio dataset query but its not recognizing my LIKE statement SELECT Staff.Deactivate, Staff.Employee, IIf([Position] Like "*O*","Opener") AS [Open], Staff.Rate1, Staff.Rate2, Staff.Salary, Staff.Availability FROM Staff WHERE...

Can someone help me loop this? If Weekday(4) Then If Time() < TimeValue("18:30") Then Me.cmbShifts = Me.cmbShifts.ItemData(0) End If End If If Weekday(5) Then If Time() < TimeValue("18:30") Then Me.cmbShifts = Me.cmbShifts.ItemData(2) End If End If If Weekday(6) Then If Time() <...

I want to shrink the following if possible is there a for or a loop that can run through this? Any help would be appreciated. Thanks Function StartShift(ByVal T, ByRef Y, Z, X) If X("S" & T) = #6:15:00 AM# Then A = A - 0.23 B = B - 0.23 C = C + 0.23 S = #6:15:00 AM# EndShift A, B, C, T, S, Y...

I have an unbound form with 50+ combobox that activate the function below but I keep getting the 3048 error because i keep opening and closing the recordset. i thought if i made the recordset public it would stop the error but im still having the same result. iS THERE AN ALTERNATIVE? I want the...

i have 5 textboxes driver 1,2,3,4,5 im trying to save the information to cells in my excel spreadsheet but when i run it and open excel nothing is saved? This is what i have so far Sub saveWSR(ByVal b, r) Dim XLapp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As...

I have a crosstab query called ShiftHours in access with the following fields: Staff, Shift, Mon, Tue, Wed, Thu, Fri, Sat, Sun i need to export the fields to excel using a recordset the problem i have is the the shift field i need to loop through the records and if the shift = "AM" then...

i have a form with 60 textboxes named I1- I60 i need a for statement that will loop through and populate my excel spreadsheet for this example I1=54.25 I2=38.16 so far i have this which works but is not looping correctly For a = 7 To 8 For b = 1 To 2 xlSheet.Range("d" & a) = Me("I" & b) Next...

I'm finally finished building my delivery system. I have a query which works fine the issue is every time i click on a item on my form the screen flickers. The form is a continuous form and on my form i have a list of menu items when i click on them it updates my summary textbox. but in order to...

I have a text box that auto populates when selecting an item in a combo box. The issue is i have 11 comboboxes that i want to list in the text box but only if it is <"s*". the code i have works but instead of going to the next line it overwrites my last combobox entry? Dim r As Integer For r =...

I have a textbox on a form that has a string listed as Text1 Text2 Text3 I want to multiselect all three if they match the listbox values. So far i tried this: Dim i As Variant For i = 0 To Me.Plus.ListCount - 1 If Me.Plus.Column(0, i) = Form_OrderForm.Notes Then Me.Plus.Selected(i) = True...

is it possible to use a replace function in vba that uses wildcards? Me.T = Replace(T, "#.# mi", " mi")

I have a continuous subform with 5 text boxes. text1, text2,text3, text4, text5 I created an unbound text box on the main form that combines the results of the 5 subform text boxes and displays them using vba. me.textbox =form_subform.text1 & text2 & text 3 etc... I need a For or a Do...

I have a form which also has a subform on it. On my main form I have an unbound textbox which has this as its controlsource ="Expr1: [Sandwich] & IIf([Notes]=Null Or [Extras]=Null Or [Sides]=Null Or [Drinks]=Null,Null,Chr(13)+Chr(10) & [Notes] & [Extras] & [Sides] & [Drinks]) & Chr(13)+Chr(10) &...

I am looking for a way to loop through records on tab1 and color fill on tab2. This code below works perfectly however i could have to write out a thousand more lines to finish it and i know there must be a simple loop which will solve it so any help will be greatly appreciated. If...