error in updating records in access db...

[Killer42]

Subscribing .

[vikas1111]

Subscribing .

what???? i couldnt understand...

[lotus18]

what???? i couldnt understand...

He just wants to subscribe to this thread so that anytime he can go to this thread.

[vikas1111]

He just wants to subscribe to this thread so that anytime he can go to this thread.

Ok this site is new to me so i dont know much about it...

[lotus18]

Ok this site is new to me so i dont know much about it...

BTW, have you fixed your problem?

[vikas1111]

BTW, have you fixed your problem?

No there is 1 error. I am working on it.

[lotus18]

No there is 1 error. I am working on it.

Hope you got it right ^ ^ .

[Ali Rizwan]

HELLO Vikas,
Sorry for late,
This is the sample after doing all open the database you will see the changes.

Regards
>> ALI <<

[vikas1111]

Hope you got it right ^ ^ .

Problem finally solved.. Thanks all for helping..


[CODE=vb]addnew = True

On Error GoTo err1

If text1.Text = "" Then
MsgBox " enter the c name"
text1.SetFocus
Exit Sub
End If

If text2.Text = "" Then
MsgBox " enter the c addr"
text2.SetFocus
Exit Sub
End If

rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimisti c
rsnew3.addnew
rsnew3.Fields(" comp_name").Val ue = text1.Text
rsnew3.Fields(" comp_addr").Val ue = text2.Text
rsnew3.Update
rsnew3.Close
If addnew = True Then MsgBox " add new successful ", vbInformation, "successful "

If rsnew3.State = adStateOpen Then rsnew3.Close
Set rsnew3 = Nothing[/CODE]