Recent content by shanmugham

Yes friend, second statement working fine many thanks shan

Replace(Format(123, "000000"), "0", " "), this statement it change 1000 as 1 is it right ? right(space(10) + cstr(123),6) in this statement i don't know the exact width of the numbers how to overcome this thanks in advacne shan

i am using Format(rs("tottax"), "######")) it dossnot work thanks in advance shan

what is the exact syntex my friend shan

Dear Sir, i have a number a = 10 b = 1000 c = 1234567 i want to print the following format 10 1000 1234567 how to do this printing a numer with right justification thanks in advance shan

access97 vb6 Windows XP i need to write a very small program updating a database which is located on another machine on a local area network and i have no clue where to start this., how can 2 pcs update the same database at the same time this is how i used to connect to mdb on my own pc cmk =...

i have chk1 to chk23 check boxes (23 boxes) i want to clear all check box value as False the following logic gives error dim temp as string For i = 1 To 23 temp = "chk" + CStr(i) temp.Value = False Next i thanks in advance shan

thanks F1 through F12 any one key enough thanks shan

that is just like cut and paste type, in any place of the textbox during the run time (at the time of entry part) ony the string 2004 will place it. (just like paste type) not only F1 may be any one functional keys regards shanmugham

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then 2004 End If End Sub how to assign the text 2004 thanks shan

Dear Friends, I am currently developing an application and was wondering how to create a shortcut key which is accessible from particualr form of my tool. Basicly, I want to register F1 to "2004", do a 2004 action. The user should be able to press F1 from a form and the action should...

the following code is working fine ... some slight modification .. it works fine.. thanks all Dim startdate As Date Dim enddate As Date startdate = CDate(crrifromdt) If ((Year(startdate)) Mod 4) = 0 Then enddate = DateAdd("d", 365, startdate) ' Leap year so add 365 Else...

dear digsy some problem, i.e. starting date is jan or feb no problem from mar to dec its problem ... disply day before date.. thnks shan

Dear Digsy thanks... simple code its working fine thanks lot shan

excellent !!! thanks but i am using 29-feb-2004 , it displays 27-feb-2004 01-mar-2005 converts 02-jan-2006 i think small correction shan