I have a table (Table 1) with a field (F1) that has a numeric value. The data in this table is imported trough an excel and is going to be updated regularly.
F1 consists of a four digit number (1234) but if the first one, two or three numbers are a zero (ie. 0033) Access only display "33". I have solved this in Querys by using: Format([Table 1.[F1];"0000").How do i use Format([Table 1.[F1];"0000") or similar when i display data from Table 1 -> F1 in a form?
how to control the numeric field range..e.g. number 00.01< and > 99.99...I am looking for some simply code under On Change() event...how I can restrict the field should only take input number no character or special characters.
I wanted to assign the field "Number of magazine" with special format based on date/time format but showing only year and month in the format: "yyyy-mm".
So in property of this field in format I put yyyy-mm and in input mask I type 0000-00;;-
I also created the form based on the table containing above field and I defined format and input mask for corresponding formant in the same way like at the table.
But if I try to type date for example 2014-01 in text box of the form it comes up with the full date 2014-01-01. Why does it do like this? What do I do incorrectly?
I have a text field having data i-e HO-1, HO,2, ACW-25 and so on. The field name is nBadge_num and is Unique. The data in this field is sorted automatically like 1, 10, 11, 12, 13, 2, 3, 4, 5...because this is the text field.
The number on the form is automatically generated, when the user type HO- for example on field exit event. The last number will generate like HO-5.
Code for automatic number generation is:
Dim dbs As Database, rst As Recordset, Response Set dbs = CurrentDb Set rst = dbs.OpenRecordset("SELECT Max(Right([nBadge_Num],Len([nBadge_Num])-" & Len(Me.NBadge_Num) & ")) AS MaxNo " _
[Code]....
My problem is when the number is generated it give HO-5 instead of HO-14, How can I sort the numeric part of the field ?
I have several combo box fields in a bound form where they are selecting values from a list (values stored in a separate table) and then loading a number into the bound table field when selected.
How can I put a text prompt in these fields when loading the form which gets removed when focused and of course is not permitted to attempt a save into the bound numeric fields? I've done quite a bit of searching but can only find materials about doing this on bound text fields. I've also seen solutions using Nz which don't seem to work.
Have a continuous form with 2 date fields in each record .
If dateField1 is empty ,Then I want a way to make DateField2 Take its Place .
I know how to make things happen with conditional formatting on one field by UsingIsNull ,I have tried sending datefield2 to back.But cant work out how to bring it to front If DateField1 IsNull.
we would like to enter text that is always in this format,2013 04 11 / 09:15...I have tried using the field as date, with the formatting of yyyy mm dd / hh:mm...but the records keep showing a data entry problems with this format.
I have recently upgraded my Access 2003 application to Access 2010. I am running into a problem when formatting a textbox to 'Long Time' that is linked to a Double type field. The error that I get is 'The value you entered isn't valid for this field. You may have entered text in a numeric field or a number that is larger than the FieldSize setting permits.'
The textbox is linked to a field (double data type) and displays as the time in long format (4:06:17 PM). When I try to change to 4:07:17 PM I get the error. I tried removing the 'PM' and the colons but the error still occurs. The only way that I can get it to work is if I use a double value (0.735405092592593). In Access 2003 the time value would display properly, allow me to change the time and then save the time as a double to the database.
I have a continuous form that displays data from a table. What I am trying to accomplish is to change the format of the field if the string length is equal to 11, to "@@@-@@@-@@@@-@". Otherwise if it is greater or less than 11 then no format.
I have tried it using code:
If Len(Me.FormFieldName)=11 Then Me.FormFieldName.Format = "@@@-@@@-@@@@-@" End If
Is it even possible and if so is my syntax correct or am I way off base?
Is there a way to format a memo field to ensure that sentences begin with capital letters. There might have been something in the strConv function, but it seems my hopes are dashed?
I have a pop up window that maximizes and the need to format a Memo Field to users specification.
Unfortunately the Mini Popup Bar that comes up when you select text is very shy and annoying when it doesn't show up. It's Completely Unreliable.
So I thought I'll make the Controls on the form for Bold,Italic... etc but I can't seem to get the code to work.
My TextField is a Memo and I have changed the TextFormat to RichText, but I cannot use any of the commands like .SelBold or .SelColor etc.. It gives me a Compile Error: Member or Data Member Not found.
I don't understand why? Is there a Add In/Reference that I need to include?
Hello, I have a little problem. I am using th sendObject command where 'str_Body' is the concatenated body of the message. It contains some fields from an open form. When opening the email, the value of the numeric fields do not appear exactly in the same format as they look on the form (how they should be). For instance in the form I have number "$293.80" and when opening the email this value becomes only "293.8". Is there anyway that I can fix this up?
I have a list of dates in the mm/dd/yyyy format and I am looking to get it into the fiscal format of yyyyww. I am able to do this with the datepart and format functions, but I need to make it so that the fiscal month begins in January but the first week starts if there are three or more days in the week. For instance if Jan 1st is a Friday then this stands as the first fiscal week, if it is a Saturday then it does not count as the first week.
datepart and format functions have the Use the first week in the year that has at least 4 days for the firstweekofyear option but I need it where it has at least three to make it work.
I want numeric only input for a certain textbox. I can use a ISNUMERIC function to test this, but prefer to use the Keypress event. So far got the following:
Code:
Private Sub txt_Position_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 ' backspace Case Asc("1") To Asc("9") Case Asc("-") If InStr(1, Me.txt_Position.Text, "-") > 0 Or Me.txt_Position.SelStart > 0 Then
[code]...
It is working alright, except I want to avoid input that has multiple leading zeros, such as 00000 or -00000 (i.e. minus sign with mulitple leading zeros).
I have a text percentage that reads 28.0%. I want to convert to a numeric percentage that reads either 0.28 or 28.0%, preferably the latter. The Val function returns an error.
I'm working on a form that I want to insert a plus button/minus button.I am aware of the vba code numbers 107 and 109 if you want to use the actual keys but I would rather use a button.
I made a button and here is the code I used now. This code is numeric box specific. So it only adds one to the MileageStart numeric field. (Additionally you can put a minus in to subtract one).
Private Sub Command153_Click() MileageStart = MileageStart + 1 End Sub
Instead of having a bunch of these buttons all over boxes on my form is there some code that I can use to "select" a text box and just have the Plus/Minus button on the form header that I would hit and it would add or subtract (and then I could go to another box select it and hit Plus/Minus and so forth).
I've created a macro to use an unbound textbox to filter a form. In a query, I combined 3 fields to enable an easy search over. Sadly, only text characters work for the search, so whenever I search for numeric values, it returns null. This doesn't happen if I utilise the filter over just a numeric field - only when the search field combined multiple fields.
Is there a simple solution? My marco filter is
Code: [Forms]![STAFF SEARCH FORM]![SEARCHDATA] Like "*" & "[SEARCHFIELD]" & "*"
The following works when I am searching a form on a value in a sub-form where the value is text
Private Sub find_boats_by_enq_no_Click() Dim stDocName As String Dim strSQL As String Dim trz As String trz = InputBox("Enquiry number??") stDocName = "find_boats_by_enq_no" strSQL = "SELECT * FROM boats INNER JOIN prices ON boats.[boats-prices#] = prices.[boats-prices#] " _ & "WHERE prices.[stn-enquiry-number-1]= '" & trz & "'" Me.RecordSource = strSQL End Sub
What changes do I need to make if "prices.[stn-enquiry-number-1]" is a number rather than text. I'm thinking I dont require some of the "dims" and I'm not sure if I don't need to do something with the quote marks...
I have looked everywhere for a solution to this and found none. Its an annoying issue which I would like to get around.
Here is what happens.
I have a union query that gathers rows with different criteria together. The query works execept that the yes/no feild which is set to display as "Yes" or "No" is displayes as 0 for No and -1 for Yes.
I understand that the numeric values are the underlying values of yes/no feilds in access, however they are displayed as yes/no in all my queries and reports execept my union query.
I will include the union query here in case.
The following code is a function that I use to build the union query on the fly based on some parameters. If you are asking why I am doing it like this is becasue I need the rows that have a value for the feild schFeilds(0) to be on top of the final results followed by the rows that don't have any values for the above mentioned feild, and I want them sorted. I found this method to be the only one that gives me the result in the order I need.
I would like to store the string in my table when I choose a string from a combobox or radio button in the form.For example, if I choose 'Business' ( from major field in my department table ) in my combobox, I expect there is a 'Business' in my major field in my department table. And if I click radio button labled 'A' (position field), I expect there will be 'A' in the position field in my table. However, those only store numeric values, for example '3' for 'Business' and '1' for 'A' in the table. How can I store the 'real value' in my table instead of number when I choose them.
Where can I find information on the format of 'forms!' ? I want to extract multiple items in a listbox or combo box and write the data to a table. Any samples/help will be greatly appreciated . . .
I have a numeric field (long integer) in a table. I've set the format to fixed. No matter what I set the decimal places to, auto, 0 or 2, when I enter a value of 0.71, it displays as 1.00
In my form, I've also set the field property to fixed, but it displays the value as 1.
In the bit of code below how do I set QTY to be right aligned using the Format keyword? Example of the output I am trying to get with my output strings is
1600.00 ***1.00 **15.00 *100.00
I've messed about with the format function but no quite there yet.
code: Set rs2 = CurrentDb.OpenRecordset("qry_test") With rs2 Do Until .EOF StrBody = StrBody & vbCrLf & _ "" & !Item & "" & !Desc & " " & Format(!QTY, "##0.00") & " " & !PRICE & ""
