Search results

The table has few columns: (Policy_ID is primary key for this table) Policy_ID, User_ID, Name, Policy_Number, Deductible, Deductible_Remaining, Active The User_ID, Name, Policy Number, and Deductible will be the cells I want to copy the data from. I start from my main form it has a report list...

I am trying to take an existing record in a table and make a new entry in the same table using some of the values of the existing cell and new values based on user input. I have been searching and I haven't had any luck. What I want to happen is, the user clicks a record from a list of options...

Hi CJ, Thank you so much that works perfectly. -Freon Final code: Private Sub Member_Search_Click() 'Purpose: Build up the criteria string form the non-blank search boxes, and apply to the form's Filter. 'Notes: 1. We tack " AND " on the end of each condition so you can easily...

Hi CJ, When I try your code I am receiving a Compile error: Expected: end of statement namlaim, I want to be able to search with in the member id. so if I have a partial i can still find it. i.e. 7895463; 5469812; 3681254 if you search these for 54 they will al come back as results How would...

I am trying to search for a partial number in the primary key field. I have based my search off Allen Browne's search form http://allenbrowne.com/ser-62.html I have posted my full code below. I am having trouble with the portion searching the Member_ID field. My first version: I would get a...

Hi CJ_London, I just tried it with your fix and I got the "Run-time error 3251". Once I added the dbOpenDynaset it fixed it. Private Sub Command144_Click() Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("dbo_Patient_Insurance") If rs.RecordCount <> 0 Then With rs...

I tried it and i recieved "Run-time error '3251': Operation is not supported for this type of object" I searched for that error and found out that I needed to add ", dbOpenDynaset" to the code. Private Sub cmd_Deactivate_Click() Dim rs_PI As DAO.Recordset Set rs_PI =...

Hi CJ_London, I tried your suggestion I am getting a "Compile error: Invalid or unqualified reference" the txt_PT_Ins_ID is highlighted. your code as I have implimented it: Private Sub cmd_Deactivate_Click() Dim rs_PI As DAO.Recordset Set rs_PI =...

I have a report that I run which has PT_Ins_ID in it, I am trying to edit that row with the following code. I have been searching how to do this and I haven't had any luck. If I am doing something wrong or if someone know of a way to do this with vba it would be appreciated. Thanks, Freon...

Hi contractor, I tried your code as written and I was getting a compile error until i removed the quote at the end of Order_ID So now it looks like this: DoCmd.OpenReport "Order_Details", acViewReport, , "Order_ID= & Me.txtOrder_ID", acNormal Now I am getting: Run-time error '3075': Syntax...

I have a database I am working on. When I am on my one form it has a report that shows a summary of different orders for a single customer. When I click on one of the summaries I want it to open the full detailed report based on which line in the report was clicked. How would I go about getting...

That would be great. I appreciate the help. Let me describe what I want to do so you can see if I may be going about this in the wrong way. I am creating a new Access 2010 database with a split back end. I would like to use LDAP to have my user verified so only authorized users can access this...

After review your description of your code it sounds like exactly what I have been looking for. How would I implement your code? If you have a basic database that use that code or could explain how to use it correctly it would greatly appreciated. I am using Access 2010 using VBA. Thanks.

John, To get the code to work I had created a button. I then went to the property sheet, clicked the event tab, then click into the "On Click" box, click the three dos "..." and select code builder and place the code there.

Thanks. It works great! This is my final code. Private Sub cmdSave_Click() ' If text box Null If Len(Trim(Nz(Me.[txtAddComment], ""))) = 0 Then Exit Sub Dim rstComments As DAO.Recordset Set rstComments = CurrentDb.OpenRecordset("Comments")...

Ok changing it to Me.sfrComments.Requery work in now updates. The problem with the house keeping part is the text in the text box is still there. Also any ideas on how not to make an entry when the text box is empty?

That is strange. That is the name of my subform. Also the housekeeping portion of the code is not doing what it's supposed to.

I get "Run-time error '2467': The expression you entered refers to an object that is closed or doesn't exist." Then when I hit Debug Me.sfrComments.Form.Requery is highlighted.

I have created a database using Access 2010 32 bit. It worked fine until I split the database. The problem was that I had a macro referencing a data Macro attached to a table in the database. Now I have one function that will not work the way I want to, I have looked around the internet to fix...