Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Hi Forum, I have problems to add a
- Thread starter xerife007
- Start date
- Thread starter
- #2
And another thik with this code i can't clean the fields :
What is wrong ?
Private Sub Command4_Click()
Dim n As Integer
Dim adoSecondaryRs As Recordset
n = txtfields(0).Text
Call contaId
Set adoSecondaryRs = New Recordset
adoSecondaryRs.ActiveConnection = m_oConn
adoSecondaryRs.CursorLocation = adUseClient
adoSecondaryRs.Open "Select * from", m_oConn, _
adOpenStatic, adLockOptimistic
txtfields(0).Text = n
With adoSecondaryRs
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
txtfields(188).Text = Format$(Now, "dd-mm-yyyy"
txtfields(189).Text = Format$(Now, "hh:mm:ss"
mbAddNewFlag = True
End With
Exit Sub
What is wrong ?
Private Sub Command4_Click()
Dim n As Integer
Dim adoSecondaryRs As Recordset
n = txtfields(0).Text
Call contaId
Set adoSecondaryRs = New Recordset
adoSecondaryRs.ActiveConnection = m_oConn
adoSecondaryRs.CursorLocation = adUseClient
adoSecondaryRs.Open "Select * from", m_oConn, _
adOpenStatic, adLockOptimistic
txtfields(0).Text = n
With adoSecondaryRs
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
txtfields(188).Text = Format$(Now, "dd-mm-yyyy"
txtfields(189).Text = Format$(Now, "hh:mm:ss"
mbAddNewFlag = True
End With
Exit Sub
- Status
Similar threads
- Locked
- Question
- Locked
- Question
