akhileshbc

Why don't you write it in the [B]Click()[/B] event...??? Like this: [CODE]Private Sub DTPicker_start_hour_click() refreshRs End Sub[/CODE]

If [B]cuno[/B] is of numeric type, then this will be more suitable: [CODE]"SELECT * FROM Bill WHERE ID= " & val(text1.text) & " " [/CODE] If it is of [B]Text[/B] type then, [CODE]"SELECT * FROM Bill WHERE ID= '" & trim(text1.text) & "' " [/CODE] Assuming that you are using …

[QUOTE]VALUES (" & txtcclientnumber.Text & ", " & cmbs.Text & ", " & txtccopies.Text &[/QUOTE] You are missing this [B]'[/B](single quotes).... :)

What kind of connection are you using? DAO or ADO ? How do you access the database...??? In ADO, an exapmle is: [CODE]Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= " & App.Path & "\database.mdb;Persist Security Info=False;Jet OLEDB:Database …

I am not sure... But why don't you try removing the line: [CODE]rs.Close[/CODE] and check whether it is working or not... :)

Q 1. Do i need to create separate recordset for each alphabet (A-Z) ? Ans: [B]Why don't you create some labels or listbox, so that you can display the alphabets. When user clicks on the alphabet, use the database to fetch the data...[/B] Q 2. How do i get the …

Use a [B]Timer[/B] control in your form. Then write the below code: [CODE]Dim Start_Time As String Private Sub Form_Load() Start_Time = Time Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Me.Caption = "Elapsed Time: " & Format(DateAdd("s", DateDiff("s", Start_Time, Time), "0:0:0"), "hh:mm:ss") End Sub[/CODE]

Hi, I am Akhilesh B Chandran. I am from Kerala(India). I love programming, graphic designing, animation, gaming, etc... I am specialized in VB6 I am 19years old. Present status: studying B.Tech (Computer Science) I am always to help anyone... :) Thank you ! - Akhilesh

[CODE]Private Sub Command1_Click() Dim username As String Dim password As String username = Trim(txtUser.Text) password = Trim(txtPass.Text) If username = "dawid" And password = "qwerty" Then MsgBox ("Welcome," & " " & username) Dim age As Integer age = Val(txtAge.Text) If age >= 18 Then MsgBox "You are " & …

[QUOTE]Dim DBase As Database Dim RBase As Recordset Set DBase = OpenDatabase("DB Name") Set RBase = DBase.OpenRecordset("Table name")[/QUOTE] Try to use database name and table names without spaces. eg: [B]DBName[/B] , [B]TableName[/B]... Which line shows the error ? Make sure that the data saved to the database is of the …

[CODE] on error goto Er r.Fields("companyphone") = txtcphone.Text r.Fields("companywebsite") = txtcwebsite.Text exit sub Er: msgbox "Error occured" [/CODE] Please post your entire code inside save button...