rasheedraj

Private Sub cmdPrint_Click() Dim cnview As New ADODB.connection Dim rsview As New ADODB.Recordset Call connection(cnview, App.Path & "\Seeyou.mdb", "endromida") 'Call connection(cnview, "\\SEEYOU-PC\shared\Seeyou.mdb", "endromida") Call Recordset(rsview, cnview, "SELECT * FROM [order] where Edate = #" & txtEdate.Text & "#") If rsview.RecordCount = 0 Then MsgBox "No Record Found On Query.", vbCritical, …

Function Cant() Dim cnview As New ADODB.connection Dim rsview As New ADODB.Recordset Call connection(cnview, App.Path & "\Commissions.mdb", "endromida") Call Recordset(rsview, cnview, "SELECT * FROM Commi_Cus") 'If txtShaha = ("Commi_Cus" ,"Sha_no") Then 'txtCou = Sha_no + 1 ' End If End Function

Private Sub pre() Dim cnview As New ADODB.connection Dim rsemployee As New ADODB.Recordset Call connection(cnview, App.Path & "\Commissions.mdb", "endromida") Call Recordset(rsemployee, cnview, "SELECT * FROM commi_cus WHERE sha_no ='" & txtShaha.Text & "'") If recexist("commi_cus", "sha_no", txtShaha.Text, cnview) = True Then Call hlfocus(txtPrt): Exit Sub With rsemployee txtPrt.Text = .Fields!funa …

Hye, I have problem with Auto Generate Slip No from Database.I wrote following code to get last record but it does not give me last record. Please help me? [CODE]Private Sub Command1_Click() Module1.Connect Dim rs As New ADODB.Recordset Dim str As String str = "SELECT Item_ID FROM Entry_Tab" rs.CursorLocation = …