Search:

Here is a Simple way to do this, No Outlook required, No win-socket Required.

Just add this Library to your project and use this function for send emails from VB applications.

Microsoft CDO for...

What was the Error? describe it and then tell what u written down into ur code!

That's right !! When we use ALT+TAB, we can switch only between the opened Application, and the Icon of the concerned application displayed in the ALT+TAB Display, so it is not possible to show the...

First of all Welcome to Codeguru !

and thanks to god, you solved ur problem on ur own....gud !

BYe!

Hi Nanuk, Welcome to Codeguru !

I Hope the following example will help to you at all,



Private Sub Command1_Click()
Dim variable1 As String
Open App.Path & "\sample.txt" For Input As #1

it will be a Textual value , as the ' prefixed and postfixed to it in the query !

Dear nthaby,

here i have make some changes in the code given by hensa22, so that the user can't access the disabled selection and index reset to the previous valid seletion, so that c.text...

Hi Camelia, I just wanna to know that do u want to run your command from "Run Dialog box" or from VB Shell command?

Please clear it..!

BTW...Hi again!

Dear friend pepsisc,

use your query in the following format, and it will works..100%!


Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Set MyConn = New ADODB.Connection...

tell me some more abt your prob dear !

Hi

try out this and definately you will thanks me for this ;;



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
If KeyAscii = 45 And...

I Agreed with Dan_H Also..

The Method is also a Beautiful way to scroll. !

Thanks Shuja !!!

It's Working.. Keep it up !

Hi Shuja..

Okay.. I agree. with you.. but why givinh it an Erro when I try for it..?


MsgBox Split("Rahul#Kul", "#")

If your have string like this.. (for Example)

Mystr = 4140483656^232#12/10/2005@Credit

Here ^, #, @ are the Sepreators.. and then I can use Mid and Instr functions to get the Strings...!...

HI Toracle..

You can use the Following code to open a Text File and load all the Text from it by Line-By Line..



Dim iFile as integer
iFile = FreeFile
Open strFilename For Input...

I agreed with Manju !!

Dear all...

It is a tiny bug in MS-Access, that whenever dates are less than 13 (= to 12) it confused between dates and Month.. so we have to use "MMM" and applied Format fucntion to display the...

Hi Limpit,



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Frame1.Left Then
Frame1.Left = X
End If

If X >...

You have to re-install you VB and then re-again do the all the copy procedure of your DLL ... it will be works again..

Regards!

Hi

try this and tell me...!



dtPurchase = lstPurchaseDate.List(lCounter)
dtWarranty = CDate(DateAdd("yyyy", 3, dtPurchase))
sUpdateSQL = "Update tblDate Set WarrantyExpirationDate = #"...

I Agree with your Hannes..!

Like this ;

"Select count(at_Yes) as CntOfYes from YOUR_TABLE_NAME"

then use CntOfyes field to retrieve the Count Value for Yes type of Records... and same for...

What Operating System are u Using?

agreed

txtbox.Text = chr(34) is the right way to doing all this.

HI Raj.. !

I have done this type of code in my software already...see like this..

For doing this.. you have to fill first combo sorted on a autonumber field with the Item code. and then another...