Search results

its ok i have found the fix i didn't set the variables correctly for ref this is the fixed code Dim Bay As String Dim num As Integer Dim Frm As Form Dim txt As String Dim txtbay As TextBox Dim lngred As Long Dim lnggreen As Long lngred = RGB(255, 0, 0) lnggreen = RGB(0, 255, 0) Set rs =...

basically im wondering if there is a way to get the string value of txtbay = "Forms![frmbaydisplay].[txtbay2]" to work like txtbay.Backcolor = lngred not have to do this Forms![frmbaydisplay].[txtbay2].Backcolor = lngred for every text box

i have a form, on this form it has 14 textboxes all labelled as Bay 1 to Bay 14. When a user checks in Trailer which ever Bay the user checks the trailer into the text box will go red. do do this i have a table in the background called tblbays which has a in use column. the form does a on timer...

<SOLVED>Change a string to be able to use as a text box to access the properties Right i have been racking my brain on this im sure its something simple but im not getting it. on a form i have 14 text boxes named txtbay1 - 14. Now what i want the code to use the value in that Textbox to find a...

hi all im hoping that some one will be able to help me i have a text box that users will need to put values such as >5 <5 to filter through results problem is when i put >5 or <5 its not displaying anything this is the expression im ussing in the Query Like...

thanks CJ_LONDON just a question so i know i understand this is early binding Private Sub EmailPallet_Click() Dim oApp As New Outlook.Application Dim oemail As Outlook.MailItem If Me.cmbShift = "Green" Then Set oemail = oApp.CreateItem(olMailItem) oemail.To = "someone"...

thanks CJ_LONDON just a question so i know i understand this is early binding Private Sub EmailPallet_Click() Dim oApp As New Outlook.Application Dim oemail As Outlook.MailItem If Me.cmbShift = "Green" Then Set oemail = oApp.CreateItem(olMailItem) oemail.To = "someone"...

@RANMAN256 where would i input this code when they login or on application load? Thanks for your input everyone really appriciate it, i found out what the screen that was popping up was trying to search for. It was searching for reference of MSOUTL.OLB file unsure how to fix this issue...

Hi all I have created a database in access 2016. now i also have access 2013 on my computer and when i open the database i experience no issues. but when my end user saves to their laptop they experience these issues when logging in will keep flashing with a box if flashes to quickly to...

hi all i have a query that criteria is linked to a form now i need the query to return all the results even if the criteria box is null this includes two date fields so this is the code i have but keeps throwing it back saying its too complicated or entered incorrectly Between...

mark-Thanks that worked a treat steve- was unable to work the input mask but thanks for the suggestion

So i have a text box called Description. this is the only text box in which they would add alphabetical characters. if they where to put an incorrect character such as a ' then i would stop the macros that sends the data to a table :/ i need a way of restricting such characters any ideas please

Hey all thanks for all your advice i couldn't get the dlookup to work for the life of me so i used this instead If TempVars("AccessLevel") = 8 Then DoCmd.OpenForm ("Palletediter") DoCmd.close acForm, ("PalletMenu") Exit Sub ElseIf TempVars("AccessLevel") = 2 Then...

so i tried with the brackets and it didnt make any difference to the outcome of the code i tried a debug on the dlookup Debug.Print Nz(DLookup("hasaccess", "tblhasaccess", "accesslvl=" & TempVars("AccessLevel") & " AND formname='" & Me.Name & "'"), False) and it returns a -1, when it should...

hello steve i did the debug mate and it did come up with what it should be for the criteria the tempvars is set when the user logs in so even though the criterea is showing what i thought it would why would it allow access to a user that is not marked to have access :/ its driving me nuts i...

Hello i have this vba code that is supposed to resrtict access to users based on their access level what i have is a table that shows the access level and the forms they have access to and a tick box that says whether they have access to that form. now the problem im finding is that if i give...

hey i managed to fix it :) so i created a event after update and used this code If Me.cmbShift = "Blue" Then Me.txtJanuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 1 AND [Shift] = '" & "Blue" & "'") Me.txtFebuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 2...

i dont know what im doing wrong but i cant seem to get it to work for some reason:/ :banghead:

Hello i have a form it has a combo box that allows you to choose between shifts then i have 12 text boxes that have a dlookup. the dlookups return the number of errors in a month from a query. i need the dlookups to refresh and display the new values when they choose a different shift. I AM...

Thank you MASSIVELY mate managed to make it work so that it records the users date input from that huge thanks