Add new record

[jerry]

Hallo everyone,

I have a form with unbound textboxes that forms a record,how can I add a
new record of unbound textboxes afterI have update the first record?
Can anyone help me please?

 

[Alex White MCDBA MCSE]

Hi Jerry,

Because all your controls are unbound, I am guessing that the form is
unbound too,

what you need is a button e.g. 'save' and in the click event for the button
the following

** Air code **

Dim adoTest As New adoDB.Recordset
With adoTest
.Open "Select * from YourTableName", CurrentProject.Connection,
adOpenKeyset, adLockOptimistic
.AddNew
.Fields("first1").VALUE = Me.Text1.VALUE
.Fields("second1").VALUE = Me.Text2.VALUE
.Update
.Close
End With

' you will want to clear the textboxes at this point to start again

me.Text1.value = ""

......

 

[adsl]

Hallo everyone,

I have a form with unbound textboxes that forms a record,how can I add a
new record of unbound textboxes afterI have update the first record?
Can anyone help me please?

 

[adsl]

Hi Jerry,

Because all your controls are unbound, I am guessing that the form is
unbound too,

what you need is a button e.g. 'save' and in the click event for the
button the following

** Air code **

Dim adoTest As New adoDB.Recordset
With adoTest
.Open "Select * from YourTableName", CurrentProject.Connection,
adOpenKeyset, adLockOptimistic
.AddNew
.Fields("first1").VALUE = Me.Text1.VALUE
.Fields("second1").VALUE = Me.Text2.VALUE
.Update
.Close
End With

' you will want to clear the textboxes at this point to start again

me.Text1.value = ""

.....


--
Regards

Alex White MCDBA MCSE
http://www.intralan.co.uk

 

[adsl]

Hi Jerry,

Because all your controls are unbound, I am guessing that the form is
unbound too,

what you need is a button e.g. 'save' and in the click event for the
button the following

** Air code **

Dim adoTest As New adoDB.Recordset
With adoTest
.Open "Select * from YourTableName", CurrentProject.Connection,
adOpenKeyset, adLockOptimistic
.AddNew
.Fields("first1").VALUE = Me.Text1.VALUE
.Fields("second1").VALUE = Me.Text2.VALUE
.Update
.Close
End With

' you will want to clear the textboxes at this point to start again

me.Text1.value = ""

.....


--
Regards

Alex White MCDBA MCSE
http://www.intralan.co.uk