Recent content by dongodu

Private Sub lap() Dim cnuser As New ADODB.connection Dim rsupdate As New ADODB.Recordset Dim reply As String Call connection(cnuser, "\\mika\medrar\Medrar.mdb", "endromida") Call Recordset(rsupdate, cnuser, "SELECT upd,LanNum FROM Reser where LanNum = '" & txtSaLan.Text &...

'Call connection(cnuser, App.Path & "\Medrar.mdb", "endromida") Call connection(cnuser, "\\mika\medrar\Medrar.mdb", "endromida") Call Recordset(rsupdate, cnuser, "SELECT l_status,lnum FROM Lands where lnum = ' & txtLaLanum.Text & '") Can u see my Database exactly.???????

That is the database location which i am connecting

Its Table and i am updating record from that table.

unable to work out with With rsupdate If Not (.BOF And .EOF) Then .Fields!upd = txttext2.Text .Update End If End With 1. i did not wrote any procedure specially

Error Description

Private Sub laup() Dim cnuser As New ADODB.connection Dim rsupdate As New ADODB.Recordset Dim reply As String 'Call connection(cnuser, App.Path & "\Medrar.mdb", "endromida") Call connection(cnuser, "\\mika\medrar\Medrar.mdb", "endromida") Call Recordset(rsupdate, cnuser...

******** Code ******** Private Sub cmdPrint_Click() Set obj = New PrinterControl obj.ChngOrientationPortrait Call ConnectMe rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from...

rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from customer inner join sales on customer.idcn = sales.idcn where customer.idcn = '" & txtCusC.Text & "'", con, 1, 3 Same Error...

Kindly Verify This Query "rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from customer,sales where customer.idcn = '" & txtCusC.Text & "'", con, 1, 3"

Date formate is dd/mm/yyyy in Access file

SELECT * FROM cheques WHERE e_date between #' & Text1.Text & '# and #' & Text2.Text & '#"

SELECT * FROM cheques WHERE e_date like = #' & Text1.Text & '# and #' & Text2.Text & '#" -- To get the data between dates in a report. Throughs run time error Sugesst Plz