|
Dave,
<pre attribute="vb">
Yes I did debut and breakpoints.
Actually I have to keep getNodeAttribute function in the first set not in the second set. I examined that.
During call of the above function i print the var in immediate window. it is printing like :
Attribute=1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" Attribute2="
but when it go back to the main line from where are calling the function it is not returning anything..
Hope u might got my explanation..pls help
This is my function:
Function getNodeAttributes(node As String) As String
dim str_att as string
If node = "Policy_Years" Then
str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
ElseIf node = "Loss_Descriptions" Then
str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
Debug.Print str_att
End If
End Function
Calling the above function from the below line:
strXML = strXML & "<" & Nodes(t) & getNodeAttributes(Nodes(t)) & ">"
I wanted output like:
<Adjusted_Loss_PD Attribute="1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" Attribute2="">
<Adjusted_Loss_PD-1 />
<Adjusted_Loss_PD-2 />
<Adjusted_Loss_PD-3 />
<Adjusted_Loss_PD-4 />
<Adjusted_Loss_PD-5 />
<Adjusted_Loss_PD-6 />
<Adjusted_Loss_PD-7 />
<Adjusted_Loss_PD-8 />
<Adjusted_Loss_PD-9 />
<Adjusted_Loss_PD-10 />
</Adjusted_Loss_PD>
</pre>
|
|
|
|
|
It looks like you are missing quotes from the output string.
As you already know, you have to increase the number of quotes if you want to add quotes to the output, you are only doing this in some of your code.
priyaahh wrote: str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
Look at the code after "Attribute=" the opening value only has a single double quote, which will result in Attribute=1,1,....etc. and not Attribute="1,1,...etc.
yet at the end you correctly add the extra quotes. you can always consider user Char(34) in you string generator so you can see where you want to add the quote to the output e.g. (34 is the ASCII value for a double quote, look at asciitable[^])
str_Att = "Attribute1=" & chr(34) & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" & chr(34) & " Attribute2=" & chr(34) & "some value" & chr(34)
|
|
|
|
|
Hi Dave,
Yes I have noticed that and changed...but why the function is not returning anything.
Regards,
Priya.
|
|
|
|
|
Because you haven't returned a value yet!
remember you need to set the function name to the value you want to return;
Function getNodeAttributes(node As String) As String
getNodeAttributes = str_att
End Function
|
|
|
|
|
Hi Dave,
Thank you so much for ur kind and immediate reply...it worked. 
Regards,
Priya.
|
|
|
|
|
|
Nobody here is going to do your work so that you can be awarded a degree. Try searching the internet for a sample, but remember your professor will find the same results that you do. I expect he is reading your question right now.
It's time for a new signature.
|
|
|
|
|
rubyjera wrote: hi everyone.,
can u pls help me with my thesis the Online Student System with Enrollment System..
Im new in Visual Basic 6.0. I will use it to make the Enrollment System..
Can u give me a sample code for Enrollment System..
this is my email add. tejado_rubymadelene05@yahooo.com
Hope U can help me
Thanx
How about I send you a master's degree in computer science right away. That would be easier for everyone.
|
|
|
|
|
could you send me one also, i am fed up studying now.............. 
|
|
|
|
|
Hi,Friends! I used a treeview with checkbox in my form, now I want that after I checked a node, a groupbox was visible, after I made the treenode unchecked, the groupbox was hidden.It is easy when I use checkbox ,but I don't know how to do this with treenode.
I used AfterCheck event like this:
Private Sub treeMingPai_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeMingPai.AfterCheck
If e.Node.Text = "English" Then
e.Node.ForeColor = Color.RoyalBlue
grpYWMP.Visible = True
End If
End Sub
It could make hidden groupbox visible when I had checked the treenode, but what should I do to make it hidden after I made it unchecked again?
PLX help me and give me some suggestions!Thans a lot!
|
|
|
|
|
The AfterCheck event is raised by both checking and unchecking actions.
So base your actions on e.Node.Checked.
Cheers
I don't like my signature at all
|
|
|
|
|
Hi,Estts!Thanks for your suggestion!I've do it!THX!
|
|
|
|
|
You're welcome 
Cheers
I don't like my signature at all
|
|
|
|
|
I like to make with VB a command button in word to submit an email.
therefore I used 'the routing slip method' with this code:
Private Sub CommandButton1_Click()
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Reactie"
.AddRecipient "blabla@.nl"
.AddRecipient "blabla@gmail.com"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub
when I save the document and try to use the command button I get a window with the message: a program is trying to access e-mail adresses you stored in outlook do you want to allow this?
I have three options:
no: it redirected it to a debug
yes: there nothing happening
yes for example 1 minut: it is sending just one time after I click on yes.I get an email who say that I have to choose an other emailadress to send it to.
this is not what I want.
the question is:
I send by email a word document to a person. I would like an answer from that person. therefore I want to make a command button in that word document. the action should be: the person answers the question in the word document clicks on the command button and the word document is send to my emailadres.
who can help me to the VB code for this command button. I'm pleased to receive a correct code or information why the code I have used don't work.
|
|
|
|
|
Please don't repost, but rather edit the original question. It helps in terms of readability if blocks of code are wrapped in PRE-tags.
henkbongers wrote: I send by email a word document to a person. I would like an answer from that person. therefore I want to make a command button in that word document. the action should be: the person answers the question in the word document clicks on the command button and the word document is send to my emailadres.
Dude, that's not a coding-question, that's simply the description of the desired functionality. Either task someone with coding this for you, or ask a specific question.
henkbongers wrote: information why the code I have used don't work.
You didn't state "why" it didn't work. Is it the security-warning that's unacceptable?
I are Troll 
|
|
|
|
|
henkbongers wrote: .AddRecipient "blabla@.nl"
thats not valid for starters.
a domain that starts with a period infers locally in the dns, localhost (i think, don't quote me, been a while!)
|
|
|
|
|
Thanks for the 1 vote, for stating fact! i.e. blabla@.nl doesn't have a valid domain name.
|
|
|
|
|
+5, since it's a valid comment, aimed towards solving the problem.
Just to add to the pile of comments; there's not only a security-warning from Outlook - I expect that Word will also show a warning on opening the document, asking whether or not to enable macro's or something similar.
I are Troll
|
|
|
|
|
What version of word are you using? i have 2007, and it doesn't work either.
there appears to be changes to the availability of the objects depending on versions, i.e. they still show up in the object model, but you cannot use them.
I wasn't aware of this and having a look at the moment what the alternates are.
|
|
|
|
|
Ok,
There is other code to use, just tried it.
ActiveDocument.SendForReview "a.user@the-domain.com", "Your Question Answered", False, True
You still get a trust dialog, saying the usual an application is trying to send a message, allow/deny. (This dialog is created by outlook, if you have different mail client setup as a default, i.e. do not have outlook, i don't know what happens).
So, the code works, it is just that outlook is trying to protect you from potentially unauthorised emails being sent.
The other option may be to use Outlook automation, but as you can tell this requires a bit more coding.
|
|
|
|
|
Hi Friends,
I am getting an error 2023 in range variable.
Set rFoundCell_Value = Range(rFoundCell.Address).Offset(0, 1)
in above rFOundCell is having range address as "A1"
As wanted to fetch the value of the next col to A1 i am using the above line.
I am not sure about this error.
Please Help.
Regards,
Priya.
|
|
|
|
|
|
Hi Dave,
Yes I am trying to set value to an range object..I have changed and working fine..
Thanks.
|
|
|
|
|
Hi,
Please help me this problem
I have these tables:
CommissariatTD(CommissariatID, comm_name,region, DeptID, Deptname)
DepartmentTD(DeptID, region, Deptname)
I have a form that binds to CommissariatTD_view where I do this:
a RegionCombobox with these items(North,south,east,west)
a DepartmentCombobox
CommissariatTD_view datagrid
Here is my problem:
let's say I select a region on the regioncombobox, it loads the record on the grid but on the departmentcombobox, nothing shows. I bind it with departmentbindingsource, selected value is from CommissariatTD_view--DeptID
it should load all departments for that region.
**Note we can have more than one department on a region......
if we have more than one dept. when select a dept. the grid should show only the commissariats for that department and region..
I am missing something now. Please guide me.
Thanks in advance
Best regard..
|
|
|
|
|
I don't understand the layout of your two tables. The fields 'region' and 'Deptname' appear in both tables and I'm guessing that they are never populated in CommissariatDT. You only need to have the field 'DeptID' common to both tables and do the join on that.
What SELECT statement are you using to create your view?
It’s not because things are difficult that we do not dare, it’s because we do not dare that things are difficult. ~Seneca
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
