Ravi Kant

Hello ! I want to get the current week number of the month. I have used this code below : - Private Sub Command1_Click() Dim t_Day As Double t_Day = Day(DTPicker1.Value) Select Case t_Day Case 1, 2, 3, 4, 5, 6, 7, 8 Text1.Text = "1st Week" Case 9, 10, …

Private Sub Check1_Click() If Check2.Value = 1 Then Check2.Value = 0 If Check3.Value = 1 Then Check3.Value = 0 If Check4.Value = 1 Then Check4.Value = 0 If Check5.Value = 1 Then Check5.Value = 0 If Check1.Value = 1 Then Text1.Text = Check1.Caption If Check1.Value = 0 Then Text1.Text = …

Hi Friends ! I want to create DSN automatically with common dialog to choose database. I don't want user have to go to control pannel \ Administrative tools \ ODBC Manager for create DSN. I am using MS Access as My Database. How can i do it ? Plz help …

Hi Friends! I am creating a project & want to minimized its form like photoshop in its own status bar. How can I do this ? Any Idea .... ?

cguan_77 has written the right code for this. Use his code in this way : - Private Sub Command1_Click() Dim txturl As String txturl = "http://www.google.com" Shell "C:\Program Files\Internet Explorer\IExplore.exe " & txturl, vbMaximizedFocus End Sub

Give this code in Form1 :- Private Sub Text1_Change() Form2.Label1 = Text1.Text End Sub

Use this Code below :- Private Sub Command1_Click() Dim RetVal RetVal = Shell("D:\Project\Project1.exe", 1) End Sub

Please Help me. Please see the attachment. I have created a project and have coding problem. Please help me. it's urgent.

I am doing a project in VB and have used ADODC connection to connect in Access Database. I have used MSHFlexGrid and want it's data get highlighted Automatically if it is on current date (i.e Today's Date) for Birthday Reminder. How can i do it?