Salty,
Thanks for your replay.
I have had a good look and it appears it is not possible to do this in vb6
Not going to worry about it, i have done it manually
Many Thanks
Trob
I have created a new project and created a new form Form1 on which i need a LARGE number of controls
I am trying to avoid having to manually add all the controls !!!!
Using code i have generated all the controls and the form loads and works fine
eg...
'add a textbox
Set ctlText =...
Jedraw
The 365 is 64 bit.
The office installed is 64 bit
I tried copying 32bit ocx's from my computer and putting in wow564
but did not work. had to copy an ocx from another 64 bit computer
The problem i had was only with 1 program... all other programs seem ok
Regards Trob70
Yes i am preety sure this is the problem
My computer (at the moment) is 32 bit
The new computer is 64bit
I am getting a new computer and it will be 64 bit
Regards Trob
Just had an idea !!!
I setup a dummy form with nothing on it and altered the startup to be this dummy form.
Then did a command button to the original startup form on the dummy form.
The problem has gone away..
No idea why
But i will just live with it.. Probably just put a ?? welcome...
Andy,
The error only happens when it is run on the new win10 64 bit office 365 computer
The error comes up when loading the program .. and does not show any line numbers..
I have put a msgbox on the first line of the opening form (on load) to see if the error
comes up when loading the...
Andy,
I ?? thought i had a pretty good look but could not find an exact solution..
If i got this error after the program loads.. i would have no problem.
But this error comes up while loading...
I have a large msaccess program that has been running for many years..
The office has 10 computers running this program
Recently.
A computer has been replaced win10 64 bit
office 365
When i run the program i get a message
There is no object in this control ... BUT no detail ...
I have a large number of files in a root folder with sub directories eg f:\fixxml\ (this contains sub folders with .xml files as well)
I need to alter a character in the files eg ’ to '
Have never used powershell before..!!!
Did try the following with no success
in cmd
F:\fixxml...
MakeItSo (Programmer)
Thankyou very much for explaining this different method of
creating xml
I will now look closer at this and try using this method.
Really appreciate the time you have given to helping me.
Don't know why, but it has taken me a while coming to grips with xml !!!!
Must be...
Sorry I put that confusing comment !!
All I am asking is how to get the following working
I have the program working BUT all the xml text is manually coded by me
I am not using any xml functions. eg xmltextwriter etc
eg
spd = Split(spt(LL + 1), ") ")
TheL = spd(1)
If xyz = TheL Then...
I am trying to produce this line of code using XmlTextwriter
<item>
<question>Who was named Player of the Match for the first Test in the 2019 Ashes series?</question>
<answer>Nathan Lyon</answer>
<answer correct="true">Steve Smith</answer>
<answer>Matthew...
I am using xmltextwriter to create an xml file
but have a problem as follows
My code....
'---------------------------------------------------------------------------------------------------
Dim writer As New XmlTextWriter(sfilename, System.Text.Encoding.UTF8)...
SkipVought (Programmer)
Sorry to cause so much fuss about this question
I was just interested IF eg Case 97 To 122
That is hard wired into the code could be varied at runtime.
I looked all over internet and found no mention or anyone achieving this.
I have finally worked out how to do it...
Thanks for your interest
I need to REPLACE the existing values
BUT if its easier to achieve Add would do..
ie Have say 49, 57, 63, 45, 39, 32, 48 To 57, 65 To 90, 97 To 122:
in a text box on the form
alter the form textbox to say 32, 48 To 57, 65 To 90, 97 To 122...
What I am trying to do is as follows
49, 57, 63, 45, 39, 32, 48 To 57, 65 To 90, 97 To 122:
Alter it to say 32, 48 To 57, 65 To 90, 97 To 122: (or whatever) AT RUNTIME
ie. ADJUSTABLE ...Without having to actually alter the source code and recompile
I Have looked allover the...
Sorry I May not have made my question real clear...
This is my Current code
Function AlphaNumericOnlysss(strSource As String) As String
Dim i As Integer
Dim strResult As String
For i = 1 To Len(strSource)
Select Case Asc(Mid(strSource, i, 1))
Case 49, 57, 63...
??is it possible to make a case statement using a value from a form textbox
ie Contains eg Case 49, 57, 63, 45, 39, 32, 48 To 57, 65 To 90, 97 To 122:
This the present code..all working fine
Select Case Asc(Mid(strSource, i, 1))
Case 49, 57, 63, 45, 39, 32, 48 To 57, 65 To...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.