Okay, I think I got it, here is the code I am using:
=DCount("[Transcript type]","[TRANSCRIPTS]","[Transcript type]"="Official copy")
This is what I am using to count the occurances of the text "Official copy" form a combobox. however, it returns a value of zero. TRANSCRIPTS is the name of the table and Transcript type is the name of the combobx.
Any help on this one?
Thanking in advance,
Dee
creating the VBA code to find the total number of tables in my database.
View 2 Replies View RelatedTrying to get this to work, on a continous form i have a text box in the footer to count no of records.
Want to count all that have a "B" for their value. Why won't this code work in the footer text box source
=Count([strFKBedContractTypeID])="B"
Hi! Don't know if you remember me, but I'm back again with a weird question.
A while ago, I built a database with a report in it that served as a schedule for my hospital. Names down the side, dates across the top, with counts in the data fields. Like if So and so works on 3/16/05, there would be a '1' in the field at the intersection of that date and her name. Now, because we have so many different shifts and the directors want everything in the grid fields, I'm trying to figure out a way to put in the actual shift symbol (7A, 7P, 12, D, E, N, etc.) in the grid for them so that if they have 7 nurses on the 7A shift and 3 paramedics on the 12 shift, and one unit secretary on the D shift, they will all show on the same schedule. Here's the data from the query I am using. It's a crosstab query and I'm not quite sure how to tweak it to get it right. Thanks for any help/advice you might be able to give me.
PARAMETERS [Forms]![frmDates]![Date] DateTime;
TRANSFORM Count([Staffing Query for Department].Title) AS CountOfTitle
SELECT [Staffing Query for Department].ERName, [Staffing Query for Department].Department, [Staffing Query for Department].Title, [Staffing Query for Department].Shift, Count([Staffing Query for Department].Department) AS [Total Of Department]
FROM [Staffing Query for Department]
GROUP BY [Staffing Query for Department].ERName, [Staffing Query for Department].Department, [Staffing Query for Department].Title, [Staffing Query for Department].Shift
PIVOT "d" & DateDiff("d",[Forms]![frmDates]!Date,[Date Scheduled]) In ("d0","d1","d2","d3","d4","d5","d6","d7","d8","d9","d10","d11","d12","d13","d14","d15","d16","d17","d18","d19","d20","d21","d22","d23","d24","d25","d26","d27");
I am going to try an Iif statement and see if it helps. Thank you!
Kelly Jo
like we do when we change our password, if characters are <4 or >10 then warning comes, I am making a password change button and want same thing.
I tried but could not locate any help for this. Can some body help?
Also, if put an If Text2.value = Null then
msgBox "Blank not allowed", vbcritical,"Error"
End If
While debugging I can see Null = Null but it does not give message box.
I tried everywhere in all text boxes of my db and found same thing.
Hello,
in my Access database there is quite a bit of VBA code.
I have set my LAN and file path in some of this code but will need to change it when this database will get to other users using a different LAN and path.
Is there a way I can avoid them to open the code and manually change this information?
I was thinking of some sort of text box where they will write their path (ex. \S01000sharedoffice*.*) and use a cmdbutton to overwrite the existing path?
Thanks.
I try to to set the value of a text box through code and it will always display the same value in every record. I think i cant display a recordset in a text box. What way i use so that i can display my values in the text box.
Private Sub Form_Open(Cancel As Integer)
Dim qry As String, rst As Object
qry = "SELECT tbl_EquipmentChronology.Equipment1 FROM tbl_EquipmentChronology INNER JOIN tbl_events ON tbl_events.TicketNum=tbl_EquipmentChronology.Ticke tNum where tbl_events.TicketNum=" & Forms!tbl_PPVResearch_Edit!frm_Events!TicketNum & " and tbl_events.PPVVOD_Outlet=tbl_EquipmentChronology.O utlet"
Set rst = CurrentDb.OpenRecordset(qry)
rst.MoveFirst
Do While Not rst.EOF
Forms!tbl_PPVResearch_Edit!frm_Events![Text2] = rst!Equipment1
rst.MoveNext
Loop
End Sub
So...I have a table with 2 fields: Name and Times Accessed
I have three names in the table: Shane, Bill, Chris
There are multiple entries for each name with no primary key set.
The Times accessed are as follows:
Shane 2
Bill 2
Chris 1
Bill 3
Shane 5
This is what I want to do if possible:
I will have multiple text boxes on the form that will display running totals for different people in a table.
So i have three text boxes on the form. 1 for each name. i want that textbox that corresponds to each name to keep the running total for Times accessed. So, for Shane it would be 7, bill would be 5, and chris would be 1.
How/where do I do this? need more info?
Thanks...
Shane
I have a query that has clients sorted in the row area and a column from my table that is set up as text but only has yes/no options for the data. I have a pivot table that counts the yes's and counts the no's and finds a grand total; however, I want to be able to find the percentage of pass's given the grand total. I'm able to do this in Excel and was wondering if it was possible in Access.
View 2 Replies View RelatedI have a memo field that feeds to a textbox control on one of my forms. I would like to re-format the textbox using the .Height value based on how many lines appear in it (i.e. it will fit only 3 lines if there are 3, but 5 lines if there are 5, etc.).
Is there any way to count the number of lines that appear in the textbox?
I have a table by name "newtab" and I was trying to import a tab delimited text file "newdata.txt" into newtab. The first line in the text file are the column names: SSN, Lastname, FirstName (all tab delimited though). The same field names exist in the destination file. However I am getting the error which says the "the field name SSN Lastname FirstName does not exist in the destination file" What could possibly be the problem? Since the field names are not separated in the error message, could it be that it is seeing all 3 field names as one and therefore cannot match them to the destination fields? Does that mean TAB cannot be used as the delimiter? Using the interactive IMPORT from access directly for the same files work really good though. However, I would like to do this programmatically since the files would be coming in weekly for me to load and they are many such files. The command I used is as below. Please I need help.
DoCmd.TransferText cImportDelim, , "newtab", "c:
eportsewdata.txt", True
I'm trying to figure out how to link a text file to my database with VBA. I know how to do this for other types of data sources, using the DoCmd.TransferDatabase acLink command, but need guidance using this with TXT files.
Thanks,
Randy
I have two forms sourced from one table. if the address of a client has changed then there is a Command button that opens a form to enter the previous address.
What I want is for the text on the command button to change to red if there is a previous address filled in. I have seen it done but cannot copy the code. What I have is on the OnCurrent event of the (main form)
Dim InColor As Integer
InColor=255
Me.[Command126].Forecolor=(And what I want to say here is "If the field previousaddress is not null then ...)*255
Any ideas??? (I wanted to have the database completed before the New Year (less than 12 hours to go!!!)
I am working with 4 tables and I am trying to get a count of the email address field in each table grouped by Email Group Name. I tried the dcount function but returned an error because some of the email addresses have an apostrophe in the field. Is there a way to do this in 1 query? This is an example of the result I would like:
EmailGroup/TtlEmailSents/TtlEmailsOpened/TtlEmailsClicked/TtlFormSubmits
AAA 50 30 15 10
BBB 100 75 50 20
CCC 60 25 5 1
Tables:
Emails Sent
Emails Opened
Emails Clicked
Form Submits
Field Names in all tables:
Email Group Name
Email Address
Field I want to count is Email Address for each table, grouped by Email Group Name.
I am trying to improve a work process using an existing Access DB.We have a form with multiple texts boxes on it. I need to search through these boxes to determine the total number of occurrences of a specific value. This is not tied to a table.
The text boxes I'd be searching through all have related names: "Element0" to "Element40". And I'd most likely be looking for a "/" within the value in the boxes (value could be 12345/01, for example).Would then be using the result in VBA to apply some conditions, so I would prefer if I could do the count in VBA (the count/sum is the part that is hanging me up.)
I've found multiple ways to accomplish this from a table, but nothing for what I have to work with.I am unclear in my description of what I am trying to do, let me know and I will try to provide more information.
create/find code that will count the number of text files in a directory with one level of folders please see below:
Directory path is : B:
First and only level of sub folders:
there are 100 of these and they all end in ".fof"These .fof folders will always contain .txt files.I've tried using the following code, but it always returns No files found.
Code:
Dim lngFileCount As Long
Dim StrFileName As String
StrFileName = Dir$("B:*.txt")
Do While Len(StrFileName) <> 0
[code]...
Hi
I need to create a command button to import a tab delimited text file into a table in Microsoft Access using VBA Code.
I have set up the button however I am unsure as to how I should approach it and what code i need.
If anybody has any suggestions I would be very grateful.
Kind Regards
Elaine
I have a report and at the footer i want to show how many of the txt boxes i have are >0
i tried
=Count([txtbox]>0)
I know that this is quite simple but i just cant get it.
Is there a quick way to export ALL VBA code to a text file/word document?
View 5 Replies View RelatedIs there a code for when I press a button it refreshes and clears out certain text boxes in my form?
View 1 Replies View RelatedI have a file that I need to import on a regular basis. There are two different issues with the import:
1. the first digit in the file indicates if it is a record I want to keep. In this case a 1 indicates a repair record and an 8 indicates it is just information such as email, contact info etc.
2. I have a field in the file that may change the import specifications
For example:
If the record is a Non wheel repair then column 167 is a 50 character description
If the record is Wheel repair then column 167 is a 28 character description and the remaining 22 characters are broken down into 10 different fields
So I need to do the following
1. Read the first character in the line and determine if it is a number 1 and if not discard it
2. Read a field in column 109 that is two characters long and if it says it is a wheel repair the import will break column 167 -216 down to the appropriate 11 fields and if it is a non wheel repair it will import columns 167 - 216 as one big description field.
I have used the import specifications with Access but it seems this will have to be done in code in a module or something and I am not very good with VB. (only know the basics)
One other issue is I have dates in the file that are 130225 and 1302 (so full date and then Year/Month) if i take out the / date separator in the import spec the full date works but the Year/Month doesn't.
I have a table tblBookings.
In this table it has a bookingID, CustomerID and some other none relevant details.
The CustomerID comes from table tblCustomer. i.e a customerID must exist in the customer table to be allowed in the bookings table tblBookings
A customer can exist in tblCustomer without existing in the booking table.
I am trying to write a query that will list each and every customer ID in the tblCustomer and count the number of bookings that that customer has (even if it is zero).
I have a query that will count the bookings if they exist in the booking table and display the number of times that a customer appears in the bookings table.
SELECT tblBookings.CustomerID, Count(tblBookings.CustomerID) AS NoOfBookings
FROM tblBookings
GROUP BY tblBookings.CustomerID;
How do I create a query that will do this but list all customers even if they don't exist in the bookings table (but obviously occur in the customers table)
I am trying to create a similar query where all bookings per hotel are listed even if no bookings are made for that hotel. I am guessing the answer is the same as above.
The Ritz. Bookings 0
The Hilton. Bookings 3
The Carlton. Bookings 0
The Lowry. Bookings 2
For every hotel.
That kind of thing.
If you need more information please shout.
I have a table that has 5M+ accounting line entries. Below is an example of one accounting journal in the table.
BUSN_UNIT_IJRNL_DJRNL_ICNCY_CMONY_A
CB0014/07/20140002888269323AUD16797
CB0014/07/20140002888269323AUD-16797
CB0017/07/20140002888269323AUD16797
CB0017/07/20140002888269323AUD-16797
The journal ID above was an accounting entry, debit $16,797 and credit $-16,797. because it was entered as a reversing journal in the system, the table has captured the Journal ID with 2 dates. For my purpose i only want the one date (MIN) date, the total amount of the journal (either the debit or credit amount 16,797) and the total number of lines the journal ID has so in this instance I want the count to be 2 and not 4.
Right now this is what i get
BUSN_UNIT_I JRNL_I CNCY_C SumOfMONY_A CountOfJRNL_I MinOfJRNL_D
CB001 0002888269 AUD 0 4 4/07/2014
This is the output i would like
BUSN_UNIT_I JRNL_I CNCY_C SumofMONY_A CountofJRNL_I MinOfJRNL_D
CB0010002888269323 AUD16797 2 4/07/2014
Im thinking with the total sum because theres debits and credits is there a way to do the absolute value of the journal MONY_A then divide by 2?
current SQL
SELECT [One Year Data Lines].JRNL_I, [One Year Data Lines].CNCY_C, Count([One Year Data Lines].JRNL_I) AS CountOfJRNL_I, Min([One Year Data Lines].JRNL_D) AS MinOfJRNL_D, [One Year Data Lines].BUSN_UNIT_I, Sum([One Year Data Lines].MONY_A) AS SumOfMONY_A
FROM [One Year Data Lines]
GROUP BY [One Year Data Lines].JRNL_I, [One Year Data Lines].CNCY_C, [One Year Data Lines].BUSN_UNIT_I
HAVING ((([One Year Data Lines].JRNL_I)="0002888269") AND (([One Year Data Lines].CNCY_C)="aud"));
Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Thanks
SHADOW
Hi,
Just spent the past hour in here trying to nut this one out, but not sure I've found something quite the same...though I know the answer will be painfully simple.
I have a customer table and a product table, and a query that groups customer first and last names along with a count of products per customer e.g. 1,1,3,2,3,4,2,1 indicates customer A buys qty 1 of product z, customer B buys qty 1 of product x, cust C buys qty 3 of product y and so on.
All I need to do now is do something to also output the total number of products. ie as per example above, 1+1+3+2+3+4+2+1 to get 17.
Can I do a count of the count or do I do some sort of sum of the count results?
I've tried everything I'm capable of as a newbie, and I'm not having any progress.
Any help appreciated.