what am i doing wrong???? something simple which i can find (1 Viewer)

[Jouma47]

hi there

what am i doing wrong???? something simple which i can find

plz help

Private Sub cdmadd_Click()
Propmt$ = "Enter the new reocrd and then click the right arrow button"
Reply = MsgBox(Prompt$, vbOKCancel, "Add Record")
If Reply = vbOK Then
txttilte.SetFocus
Data1.Recordset.AddNew
End If
End Sub
Private Sub cmddelete_Click()
Prompt$ = "Dp you really want to delete this reocrd"
Reply = MsgBox(Prompt$, vbOKCancel, "Delete Record")
If Reply = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If

End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub txtcost_Change()
Form1.txtcost.Text = Format(txtcost.Text, "Currency")
End Sub


i have also atteched the whole project

 

[sunny]

txttilte.SetFocus

txttitle, not txttilte - this is something the compiler should have told you. Even when you coded, the lack of autocomplete should've raised alarm bells.

Data1.Recordset.AddNew

You've gone about using the Data control the wrong way.
Since you don't have MSDN installed, you can refer to it online:
http://msdn.microsoft.com/library/d...ry/en-us/adodc98/html/vbctlADODataControl.asp