Hi Guys, I am willing to design a form where I could browse the files and a button should read from text file and insert values into my Table. Please help me in this regard.
I want to have a function with parameters like text file name and destination table. Any clue will be highly appreciated
Cheers
Abid Hussain
Hi,
I have 2 text boxes in a form. In first box a sentence is appearing and second text box is unbound.
In second text box, I need to read only first word of a sentence appeared in a first text box.
How can I do it?
Please advise.
With kind regards,
Ashfaque
This is what I would like to achieve
Each time a person comes into our building, they use a electronic key. The information is recorded into a text file. I would like to extract information as described next
The date from the line marked D. Date is marked in bold
The time from the line marked T. Time is marked in bold
The key number and Location from the line marked M. Key Number & Location is Marked in Bold
Sample of the text file:
D[ Fri 30/04/04 ]
T[ 08:19 ]
M[ Valid key:130 Ing group, tenancy:SUNCITY, door:Lower Roller Dr, panel:SURF CITY. ]
N[ 0 2 0 0 5 23 1 0 0 0 130 2 ]
D[ Fri 30/04/04 ]
T[ 08:22 ]
M[ Valid key:20 LEAD NGUYANST, tenancy:SUNCITY, shaft:0, panel:SURF CITY. ]
N[ 0 1 0 0 5 16 1 0 0 0 20 2 ]
D[ Fri 30/04/04 ]
T[ 08:23 ]
M[ Valid key:556 Ing Group, tenancy:SUNCITY, door:Lower Roller Dr, panel:SURF CITY. ]
N[ 0 2 0 0 5 23 1 0 0 0 556 2 ]
…..and so on the text goes
I am reasonably familiar with access but I have not had any experience with Text Files . Could someone post a sample db that would give me a starting point. any information would be appreciated.
Phil.t
I have a text file that I am using VBA to read and print 2 pieces of data to another text file.The code works to a point, in some instances it does not appear to find the end of file but captures and writes all the data. Or, after printing 36 lines correctly, it then stops writing.
I have stepped through the code and it appears to be capturing the data up past this issue but for what ever reason it does not print it to my text file.
PHP Code:
Option Compare DatabaseOption Explicit    Public Mode As String    Public FUNDREF As String   Â
Public rst As String Function DAILYAUDITTRAIL()     Close #1    Close #2      Open "C:UsersTEST IN.TXT" For Input As #1   Â
Open "C:UsersTEST OUT.txt" For Output As # 2      Do While Not EOF(1)    Â
Line Input #1, rst     If rst Like "KM56Aasdf*" Then        FUNDFINDER   Â
End If     Loop  End FunctionFunction FUNDFINDER()         Â
[code]...
I would like the label for a text box to read "B&W or Color" for a database of photographs.
Access will not accept the ampersand. Since this is just a label, I thought I could get away with using this symbol.
Is there a way to get the label to accept the ampersand?
Hi,
I'm new to Access and was wondering if there is a function that can split/divide the contents of one field into seperate fields like you can do in Excel via the 'text to columns' function. I have people's names (surname christianname in one field in a table and want to have a query that splits them up by the space between the names and put one in one filed and the other in a seperate field).
Hoping someone can help me..
Thanks.
Greg
Is there any way to set the ControlTip Text for a Text Box to be the value of the Text Box using a function?
If so what event would you use?
txtNotes is a text box on my form.
I use this code to put an AutoText into the box:
Code:txtNotes = "New Appointment: " & Chr(13) & "Sales Rep.: " & Chr(13) & "Date and Time: " & Chr(13) & "Contact: "
I would expect the text appear in the text box like this:
New Appointment:
Sales Rep.:
Date and Time:
Contact:
...but it appears in ONE single line with a square between the 'labels' instead of a CRLF, like this:
New Appointment: {square}Sales Rep.: {square}Date and Time: {square}Contact:
I tried it also with Chr(10) but came to the same result.
Any idea how to overcome this?
Show me the door please...:-)
I've been searching for several hours now and can't find the answer to this problem...
I'm using a form to capture criteria for a query. One of the fields is a text field and here is the parameter I'm using:
Nz([forms]![frmMain]![Company],[CNm])
I want to return all records if the text box named Company is null. I'm getting only the non-null records. How can I get it to display all the records in the field, CNm?
Thanks!
Let me start by saying I am very, very new to Access, but have been assigned a report to create.
I have the following textbox in my report:
=[Location]+(Chr(13) & Chr(10)) & [callnumber]+(Chr(13) & Chr(10)) & [Online Availability]+(Chr(13) & Chr(10)) & [PF Subject]
I'm using this format so that my 4 fields appear in a list and don't leave blank lines if the one of the fields happens to be empty.
The problem is that I need to alter or substitute some text.
First, in the location field, I can have several different entries, but if the entry is 'Circ', I don't want that text to display and I don't want a blank line either.
Secondly, in the online availability field, if there is any value in the field, I want whatever text that is to change to something like 'Online - Yes'. If there is no value in the field, nothing should display.
I think the use of the Iif function should work, but I can't seem to write it correctly. Help!!
I am trying to rearrange text contained in a mid function. my code is:
Private Sub MaterialA_Reportable_Quantity_AfterUpdate()
Dim USDOTlen As Integer
If Me.MaterialA_Reportable_Quantity = False Then
USDOTlen = Len(Me.MaterialA_US_DOT_Description)
Me.MaterialA_US_DOT_Description = Mid(Me.MaterialA_US_DOT_Description, 7, USDOTlen - 6)
[code]....
How do I rearrange the mid function to do this?
I have a function in a module that looks like this (it takes 2 dates as arguments):
Code:
Function get_KPIScanAgeRange(in_ScanDate As Date, KPIDate As Date) As String
Dim ret As String
ret = "Invalid"
' return value, by default is because age is negative number
[Code] .....
I'm trying to pass the date in a text box which exists in a form called "d3FormAging". The text box name is "KPIDate". The query looks like this:
Code:
SELECT Query_d3_Open.[Company No], get_KPIScanAgeRange([Scan date],[Forms]![d3FormAging]![KPIDate]) AS KPIScanAgeRange, Count(Query_d3_Open.[Scan date]) AS Scans
FROM Query_d3_Open
GROUP BY Query_d3_Open.[Company No], get_KPIScanAgeRange([Scan date],[Forms]![d3FormAging]![KPIDate])
ORDER BY Query_d3_Open.[Company No], get_KPIScanAgeRange([Scan date],[Forms]![d3FormAging]![KPIDate]);
For some reason Access doesn't recognize the "[Forms]![d3FormAging]![KPIDate]" when I pass it to the function. I get run-time error 3070 with information that Access can't recognize this expression even though the code should be correct as it's made with the expression builder and I'm sure the form that contains the text box is open when the query runs.
I have a list of consumables;
Syringe 50ml
Syringe 20ml
Syringe 5ml
Syringe Cap
White Needle
I want to remove only the number and the ml part from the list, so I would end up with;
Syringe
Syringe
Syringe
Syringe Cap
White Needle
If I use
PHP Code:
Replace([DrugNameVial],"50ml","")Â
I get the desired result for the 50ml syringe size.
I have tried every possible combination of "**ml", "##ml", "Like [0-9]ml all with no success.
How this can be resolved without having to individual enter each syringe size "5ml", "20ml" etc
I can't even just take the text from the right till the first space as this would lead to problems with other consumables in the list.
I have a brand new database in-the-works that is causing me headaches. For some reason, if I create a query and then exit and re-enter the database, I cannot re-open that query. I get an Error 3112 (cannot be read; no read permission on <name>) and to contact the administrator or creater of the database.
I'M the creator and the administrator on this thing - so why can't I get into the darn thing? I haven't added any security features. This has never happened before on any database I've created, so obviously, it's frustrating.
Any ideas?
Hi friends,
I am new to this forum, and I am facing a problem while learning MS-Access.
I am preparing a database that stores the marks obtained by students in a particular paper in addition to their particulars in tables.
A query is then generated to canculate the aggregate marks and result (Pass/Fail) for the student. It is then presented in a report fomatted as a marksheet, as well as one tabulation chart.
The database is very crude in format, but I am happy with it since I do not know programming at all, and still I could make it.
I have used in built menu of "ms-access" and mouse clicks only for generating query. It was a learn by doing method.
The problem is that my marksheets require absent students to be marked as "ABSENT" or something of that kind. If I convert my Null values to :
Expr2: IIf(IsNull([E_1]),"ABSENT",[E_1])
It shows ABSENT for null value, but refuses to make column total for E_1; On the other hand if I do not enter such expression, it makes column total in tabulation report, but fails to mark "ABSENT" to those who did not appear. So I have to lose one thing to gain another, while I need both.
Can anybody help me at this?
pc
I have a form based on query. On form i am retrieving data from another table using DLookup in a unbound text box. So I want to save the result of DLookup function in another field/table on same form.
View 8 Replies View RelatedI upgraded to Access-2010 and the Text File Import function will not recognize dates in the format YYYY-MM-DD. The import dialogue sees enough to recognize the field as a date, but then every date encountered is written to the Import-Errors table. This is true whether the file has a .txt or .csv extension. The actual file format is .csv.
View 6 Replies View RelatedI am using the dcount function as the example I display below. The problem is that it returns the correct result (i.e. 59) but the data type is text (59 is on the left side) . I need this to be number.
=DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")
I am importing an excel text field into a table. I am then appending the data to another table. I am having a hard time with the Cdate function
Excel Date Field:
YYYY.MM.DD HH:MM:SS
Example Value:
2014.04.21 18:24:30
My Query Code:
NewDate: CDate(Left([DateQ],4)+"/"+Mid([DateQ],6,2)+"/"+Right([DateQ],2))
My Query Result:
4/30/2014
What it should be:
04/21/2014
Is there a way to use a convert use a "text to column" function in access that separates at a fixed width?I have an access table (that I can't change) that includes the data and time in the same column and I want to separate the two (date and time) in a query. I can't use the "Left" function because my date isn't a consistent 10 characters.
View 1 Replies View RelatedWill like to check, i have a access database which can be open up by a few users.
How can i only allow the first user who open up the database to read and write the database and the follow users who open up the access have only read access?
I want to format the text using format function. how i format the word apple to "apple" (With Quatation mark).
str = Format(Me.word, xxxx)
So basically I need making a function that will count the number of records from another table/query based on a field from the current query.
View 2 Replies View RelatedI have a project at hand and it's been a predecessor of mine and client has asked me to do some work on it and extend functionality - but I have not really delved into Access before and I have had to worked my way through to this final snag :/
The Main Form has one sub form. This sub form allows the user to add multiple order items i.e. qty, stock, description from records within the system - fairly straight forward.At the last column of each row is the sub total of those particular items i.e.
Qty Unit | Item ID | Total
-----------------------
2 | 1234 | 80.00
------------------------
1 | 43526 | 20.00
------------------------
> | |
So the total is a function of =[Qty Unit] * [Unit Price].Then in the Footer of this SubForm is the Sub Total
=SUM([Qty Unit] * [Unit Price])
All fine and well..... However, the additional functionality kicks in.
Lets add the additional customer_id from the Main Form. Each Item bought is dependent on the customer_id i.e. they get special prices depending on who they are.So a New table is made which has the Item ID and SpecialPriceID (of a table to define as a specialPrice) and the Price linked to this Item and Special Price category. So say that there are two groups of users "wholesale" and "nonwholesale" these would be SP_1 and SP_2 and each client is defined either one of these, and each stock item has a Price for each SP_1 and SP_2. Hopefully I've explained myself there.
Back to the SubForm. So now the Total needs to calculated differently with needed the external customer_id from the Main Form.
Code:
Function CalculateSpecialPrice(ItemID As String, CustomerID As String, Unit As Integer)
Dim SPSelect As String
SPSelect = "SELECT Price FROM [Items_SpecialPrices] WHERE"
SPSelect = SPSelect & " ItemID = '" & ItemID
SPSelect = SPSelect & "' AND SpecialPriceID = (SELECT SpecialPriceID FROM Customers WHERE customer_id = " & CustomerID & ") "
[code]....
its the sub total I just keep on getting #Error on. I have even watched (using alerts) that the correct return variable is the same as the individual rows. This is the equation I used for the SubTotal within the footer.
=SUM(CalculateSpecialPrice([Item ID], [Form]![FormName]![CustomerID], [Qty Unit]))
#Error
We have a date function that converts a text date format. Can someone help me with time function to do the same thing? We want military time. The field is like this now: txt fields.
160037
213137
224356
235716
235800
12341
21708
22732
Here is the date function we use:
Function f2Date(strDateOld As String)
Dim strDate As String, strMonth As String, strYear As String
strMonth = Mid(strDateOld, 5, 2)
strDate = Right(strDateOld, 2)
strYear = Left(strDateOld, 4)
f2Date = strMonth & "-" & strDate & "-" & strYear
f2Date = CDate(f2Date)
f2Date = Format(f2Date, "mmmm d yyyy")
End Function
Hi all,
I need a little help. In my DB, I have a command button set up (I was tired of typing in dates) for date, but I used the Now function, which also gives me the time.
Now I have over 3000 subrecords of the main ones. I now need to queries transaction for that specific date, but it also retrieves the time.
I tried to go back and change the NOW to DATE in VB, but the code does not run.
How do I change all records that have date and time (using NOW function) and only click that command button to show only the date (mm/dd/yyyy)?
Thanks in advance.