Modules & VBA :: Code To Replace Special Character With Space
Jun 12, 2015
We have a spreadsheet that i upload onto a table, i use on of the fields to build a file path but if there is a special character it causes problems,i need to replace the below with spaces if they are in my field called path
< (less than)
> (greater than)
: (colon)
" (double quote)
/ (forward slash)
(backslash)
| (vertical bar or pipe)
? (question mark)
* (asterisk)
. (full stop)
, (commer)
how i can do this in some sort of update query.
View Replies
ADVERTISEMENT
Feb 3, 2014
L=Letter , X=number. Examples consisting of three parts (it can be more than three).
1. LLLLXXXXXX_LLLLXXXXXX_LLLLXXXXXX
OR
2. LLLLXXXXXX LLLLXXXXXX LLLLXXXXXX
OR
3. LLLLXXXXXX&LLLLXXXXXX&LLLLXXXXXX
OR
4. LLLL_LLLLXXXXXX&LLLLXXXXXX
OR
5. LL LLLLXXXXXX&LLLLXXXXXX
I would like to develop a function that takes a string that is made up of three parts or more and each part is separated by an underscore "_", space, or "&". There is no character that takes precedence over the other. It will always be only a single character which seperates the parts.
The check will always be done from the left. It should carry out the following actions:
1. Display all characters from the left until it reaches the first seperator "_" underscore OR "space" or "&"
2. Check only Part1 if it is made up of 4 letters and the rest 6 numbers (see 1-3 above). If that is the case only return part 1.
3. If part one only has letters and no numbers (see above 4-5) return all parts. Part one can consist of two letters or more.
I have started the function for step 1 above that searches for the character "_" underscore and display all characters until the first "_" is reached. I would like to include the same for "Space" or "&" in this function.
Once that is done I would like to do step 2 and step 3.
Code:
Function SearchforChar(strTest As String) As String
Dim test2 As String
Dim strUntil As String
strUntil = "_"
test2 = Left(strTest, InStr(1, strTest, strUntil) - 1)
[Code] ....
Answer3:
Full name with all parts should be returned for all above four cases under situation 3.
View 9 Replies
View Related
Dec 18, 2013
I have a table called: "tb_special_characters" with a field name [character]. In this table are values that I would like to remove from fields in another table ("tb_data", field name [Title]
The values in the "tb_special_characters" are thinks like
.
@
}
I'd like to run a query on tb_data.title that would replace any matching characters in tb_special_characters.character with nothing (I remove and close any spaces).
View 2 Replies
View Related
Aug 30, 2013
How can I adjust my required field so that you cannot simply enter a space bar character to circumvent the requirement?
Here is part of the code:
If IsNull([txtRequiredReason]) Then
MsgBox "The Reason field is required"
DoCmd.GoToControl "txtRequiredReason"
Else
View 1 Replies
View Related
Jul 25, 2012
How to enter special character ' in textbox...
View 1 Replies
View Related
Aug 29, 2014
I've got a string variable with a value that could be typically
"ABCD|123|R"
The string needs to be split into its three parts, the pipe symbol being the separator. Then the middle numeric string must be converted back to a long.
I know i could do a loop which identifies each character in turn, but my question is:
Is there a VBA function that can pick out the position in the string of the "|" characters, so i dont need a loop ?
View 3 Replies
View Related
Sep 23, 2013
I have a text such as "Arun-Halyal-12". I need to extract "12" from the text in MS Access query. What formula i have to add in query to get "12".
View 3 Replies
View Related
Apr 30, 2013
I am building a database for a client who manufactures car parts. I have a table to store vehicle model. Each model has a date range of production. I have two build dates from and to. Both of these fields are setup as date fields on the table. I made both fields required with a mask for validation. In the "build date to" field if a car is still in production I need to leave the field blank. Is there any special character that will allow me to store a required field blank.
View 2 Replies
View Related
Oct 12, 2005
Hi!
I have a field that has to be 20 Characters long. Most of the time data for this field is less than 20 characters, so the remaining has to be filled with spaces to make it 20. e.g. if there is a record xyz1234567, then the rest of the record should have 10 spaces like xyz1234567ssssssssss, meaning if i click on this record then the cursor should not blink after 7 but after the spaces. Hope I am making sense.
Thanks for any input.
View 1 Replies
View Related
Jun 17, 2013
How do I direct the ZipFilePath and ZipFolderPath to use a directory I define in a textbox in a form? Instead of hard code like it is now?
Option Compare Database
Option Explicit
Public Sub NewZip(ZipFilePath)
On Error GoTo Err_NewZip
Dim lngFile As Long
lngFile = FreeFile
[Code] ......
View 2 Replies
View Related
Aug 11, 2015
I have a database that I've split and have deployed to 7 persons.
The thing is, I have three (3) forms:
Form 1
Form 2
Form 3
...that require changing a portion of a line in each form's respective VBA codes. I need to change the directories to where an excel workbook is stored after exporting, and another is where same excel is moved to after being uploaded.
At the moment, during deployment I have to manually change the directories.
I was thinking of maybe a pop-up form with four (4) fields that allows the user to select his/her name at the start-up of their frontend app, and paste the directories in the other text boxes provided.
This information will then be used to replace the directories in the VBA.
If I were to make changes and have to redeploy, I would have to do everything manually again.
View 6 Replies
View Related
Jun 7, 2013
I have a form linked to a SQL DB. There is a column on the table that is defined as 1 byte character... Not Null... default value = ' '. If I edit this column via a linked table on a form and try to enter a space it does not see the space as a valid character and tries to update the row with null.. which is not allowed. Is there a way to force the space character to be recognized in Access as a valid character?
View 2 Replies
View Related
Feb 2, 2015
I sometimes get a last name with two names not connected by a dash (i.e. Smith-Jones), instead it is entered as "Smith Jones". When I get it from Excel into Access is there a way to replace the space with an underscore in Access? I know I can do it in Excel, but I need that Excel file the way it is for other purposes.
View 2 Replies
View Related
Dec 18, 2006
Hi
I’m using a simple mailto link to send the details of an order to email and then onto sms text. It would be particularly helpful if I could change a blank space to a hyphen (order to email stage). For example:
Mr.John.Smith.14 Main Road.UK. > Mr.John.Smith.14-Main-Road.UK.
Is there something I could add that would convert any blank spaces to a hyphen (or other character)?
Private Sub Command00_Click()
On Error GoTo Error
Application.FollowHyperlink "mailto:mobile#@textmagic.co.uk?subject=Job&body=" & Appointment & "." & Date & "." & Time & "." & Title & "." & Forename & "." & Surname & "." & Address1 & "." & Address2 & "." & Address3 & "." & Address4 & "." & Postcode & "." & Evetel & "." & Daytel & "." & Mobtel & "." & Requirement
Error:
If Err = 94 Then
Exit Sub
Else
Exit Sub
End If
End Sub
Many thanks :)
View 5 Replies
View Related
Aug 2, 2013
I have a field that contains 12 numbers. I need to replace the middle four numbers with a character so that the entire number is not readable. How do I do that?
View 14 Replies
View Related
Nov 13, 2006
Hello,
I have a macro that I used to import data into my database.
I use the transfertext action with the following specifications:
TRANSFER TYPE: Import Fixed Width
SPECIFICATION NAME: MYSPEC
TABLE NAME: MYTABLE
FILE NAME: \S0000FTESTMYFILEFILE.txt
The macro also contains and ECHO Yes after that event.
Is there a way I can write the above with code and not use the macro? I would like to add this code on a cmdbutton.
Thanks.
View 3 Replies
View Related
Nov 22, 2004
I am looking for a way of creating the following:
I want to be able to click a command button and have it prompt the user for input.
Then take the input and replace all cases of NA with that string in field B for all records.
I would prefer to have no other prompts other that the user input and a success msg box.
Can this be done?
View 4 Replies
View Related
Sep 11, 2012
I have the following in Column A
url.com?valueA
url.com?valueA&valueB
url.com?valueC
I need a function that
If string "ends with" valueA or ValueC, then replace it with ValueD
View 2 Replies
View Related
Jun 12, 2013
I 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.
View 9 Replies
View Related
Mar 6, 2014
Is it possible to tell VBA to sum up all columns with the column name containing a special string.
For example I want to sum up all columns containg 2013 as a column name.
View 3 Replies
View Related
Feb 25, 2015
I have a Memo field that is used to be a description of a document. I don't know what the user will put in (could be anything), but it is eventually passed in a string to a query, etc.I discovered during testing that if an apostrophe is entered (Ex: This document explains how to deal with Joe's pleasant disposition.), it breaks my code. I then realized that all reserved words and characters would cause this problem.
I can get around this one just by using Replace(str, "'", "''"). However, I know there are others that will cause problems, and I don't want to end up with a string of replace statements just to fix them.
View 2 Replies
View Related
Mar 19, 2014
the access database is about contracts.Each contract has an ID. So starting from ID1 to ID250. Right now i export in via VBA to excel. I have to create before in the excel the 250 tables. If the ID10 is not existing anymore i still have the table 10 left and then i have to delete this table.
Code:
Dim xlSheet As Object 'Excel.Worksheet
Dim rstID As DAO.Recordset, tmpStr As String
Dim rstGr As DAO.Recordset, strSQL As String
[code]....
View 3 Replies
View Related
Feb 20, 2014
I use the below code as part of a database which creates documents and then saves them using data from the form fields.
Every now and again one of the form fields contains a "special" character such as /,@,& and this prevents the file from saving.
Is there a simple addition to the below code to remove special characters from the file name if there is one present?
It causes all sorts of issues as many people don't realise that there has been a problem until it is too late.
Code:
objWord.ActiveDocument.SaveAs2 FileName:="C:UsersPublic" & Forms![Front Page]![Site 2 Name] _
& " " & Forms![Front Page]![Combo79] & " " & "O2" & ".doc"
objWord.ActiveDocument.Close
View 9 Replies
View Related
Mar 19, 2015
I'm trying to paste the values of worksheet 1 by value. Please see the attached two files.
When I run the code, it indicates that variable ( xlpastevalues) is not defined.
It is not a variable....
Code:
Private Sub Command0_Click()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "Your locationmetric_DEV.xls", True, False
With xlApp.activeworkbook.worksheets("Metric summary")
.usedrange.copy
.range("A1").pasteSpecial paste:=xlPasteValues
End With
End Sub
View 1 Replies
View Related
Sep 22, 2013
In Access i can create different contracts with different running time.
I have contracts with a running time of 4 years, 6years, 8 years, 10 years and 12 years.
I have for each contract a different Excel file.
The users can choose via an Inputbox, which contract he wants to Export in Excel. In the Inputbox he enters the SuWID.
Now i want that the the Excel file with the Special running time get opened.
4 years ----> ("C:UsersGRIMBENDesktop4years.xlsm")
6 years ----> ("C:UsersGRIMBENDesktop6years.xlsm")
and so on.
Code:
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Dim rst As DAO.Recordset, SuWID As Long, tmpStr As String
[Code] ....
View 1 Replies
View Related
Jul 29, 2013
I have an asset database I am designing to manage our computer inventory and assets.
I am trying to get a DLookup to work with one of my forms that will auto-populate some of the fields depending on what is entered in to the ProductID field. For instance, Make, Model, Asset type...
My problem is that the string that returns contains special characters, specifically "#" and gives me the error message -
Run-time error '3075':
Syntax error in date in query expression 'productID=EN371UA#ABA'.
My expression is definitely working, it just looks like it things it has something to do with date/time which it does not. Unfortunately, most HP equipment contains a # in the Product ID number.
Here is my expression -
Private Sub ProductIDCombo_AfterUpdate()
Make = DLookup("Make", "productlist", "productID=" & [ProductIDCombo])
End Sub
Make is the field I am looking up from the ProductList table. The Product ID is the ID I'm looking up from the ProductList table to find the make. My problem is actually getting it to return the correct value of "HP or Dell or Lenovo". etc.
View 12 Replies
View Related
