Search results

I have a field that provides a 1 or 0 based upon if a field contains "-k" K_Code: IIf(InStr([service_code_string],"-k"),1,0) Is there a way to search for both "-k" and "QP" I tried with no luck. K_Code: IIf(InStr([service_code_string],"-k", "QP"),1,0) Any idea?

Just figured it out. Private Sub CMD_Pic_Dish_Click() Dim fDialog As Office.FileDialog Dim VAR_PIC_Dish As String Me.LBL_Pic_Dish.Caption = "" Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .Title = "Please select...

That's not the issue. I don't want them to be able to select mutiple files which is why I put that in there. I just want them to click on one and store it (the path) into a string. When I try to see the value in the message both after I exit the for loop it comes up blank. I don't really...

I have a form with a command button that prompts the user to select a picture file. When they select it it shows the file in a label. I'm trying to have the file path they select be stored in a string so I can copy, rename, etc the file. When I used a message box to confirm it still has the...

In excel, when I do a pivot table I can do a % of column function. Is there a way to do this with a crosstab in Access?

Thanks! No idea how I missed that.

When I run the command button I get the "You canceled the previous operation" error. Keep in mind I'm not pulling anything from the form. It's only ref fields in my table. Table: "TBL_Kick" Fields: "Num" & "KU" (Both Text) Private Sub Command4_Click() Dim rr As String rr =...

Thanks! I knew I was making it more complex than it needs to be.

So how would you write it? Dim UN_Check as String UN_Check = DLookup("[NT_Login]", "User_Auth", fOSUserName") I know the last part of a dlookup is the criteria so how would I write it? I haven't used a dlookup before.

I have a table call "User_Auth" with two fields (Name & NT_Login). I have some code where it checks to see what a users nt login is and stores it in a variable. Code For User Name Checking: Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal...

Tired the shift key and it still gets that error. When I press "ok" it seems to open access up but with no project window (yes I tried to unhide it). I also tried to compact and repair from another and it prompts me with the same error. I tried some demo repiar tools and it sees all the...

Thanks but I have tried everything in all those articles. Does anyone have any ideas that aren't currently posted on the web or know of any FREE tools?

I'm sorry about the title of this thread but I've been working on a database for the past month and all of a sudden I'm getting an error "the microsoft jet database engine could not find the object 'database'" and when I click ok nothing is showing (i.e. no project window or anything). I...

I have some fields on a form that get updated into a table. If I don't have a value in one of the date fields and I run this function, I receive the error "Data Type Conversion Error". The table this information is getting dumped into has fields formatted as a date. I used the Nz function to...

It was a typo. It took me printing it out to find it. I was missing a single underscore. Thanks again!

Public Function testt() and End Function at the end. Nothing else.

Same error. Here's my exact code: Dim TestThis As String Dim str As String str = Forms!frm_request_main!CBO_Prop_State.Value TestThis = DCount("[ROM_Email]", "[TBL_EMAIL]", "[State]= '" & str & "'") MsgBox TestThis Anything else I should check?

When I message boxed the value of the combobox it displayed the value of what is currently selected in the combobox (i.e. CO) I'm not sure what you mean by "have I made the change using a single quote". If you mean did I change it to what you had above then yes. Row Source: SELECT...

It displays the correct value in the combobox.

I made sure there are no typos and updated my vba with the changes you have in red and no luck. How do I make sure my combobox is returning a string?