Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: access101
  • Content: Threads
  • Order by date
  1. access101

    Code works in debug but can't publish

    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...
  2. access101

    iif statement issue

    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.
  3. access101

    Textbox array error Conversion from string "Button1" to type 'Integer' is not valid

    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...
  4. access101

    convert code from access to Sql

    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...
  5. access101

    Sql column query

    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...
  6. access101

    Loop through even numbers

    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() <...
  7. access101

    Shrink Code in module

    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...
  8. access101

    error 3048 cannot open tables

    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...
  9. access101

    Access Textbox to Excel Cell

    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...
  10. access101

    ms access and excel loop

    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...
  11. access101

    Populate fields in excel from access form

    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...
  12. access101

    Summary Textbox Loop Issue

    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...
  13. access101

    For statement loop through combo boxes

    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 =...
  14. access101

    textbox to multiselect listbox

    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...
  15. access101

    Replace functions and wildcards

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

    Need help with For statement

    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...
  17. access101

    Textbox loop through recordset

    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) &...
  18. access101

    Excel VBA need help with loop

    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...

Part and Inventory Search

Back
Top