add a empty database a record

the problem is when the database is empty i cant add a new record what do i wrong

VB Code:

Dim dbsklantgegevens As Database 'defineer de database
Dim recklantgegevens As Recordset 'defineer de recordset
Dim sqlklantgegevens As String
 
sqlklantgegevens = " select * from klantnummer " 'defineer de sqlquery: defineer de zoekcriteria
 
Set dbsklantgegevens = OpenDatabase("c:\klantgegevens.mdb") 'Defineer waar de database staat
Set recklantgegevens = dbsklantgegevens.OpenRecordset(sqlklantgegevens) 'defineer de recordset met de database en de sqlquery
 
If Not recklantgegevens.EOF Then
    If recklantgegevens.RecordCount = 0 Then
    End If
End If
If IsNumeric(txttelefoonnummer.Text) Then
    temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
Else
    If IsNumeric(txtptelefoonnummer.Text) Then
        temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
    Else
        If txtbedrijf.Text = "" Then
            temp = MsgBox("U heeft een van de velden niet ingevuld", vbCritical, "Mist data")
        Else
            If Not recklantgegevens.EOF Then
                recklantgegevens.AddNew 'nieuw record
                recklantgegevens.Fields("naam") = txtbedrijf.Text
                recklantgegevens.Fields("adres") = txtadres.Text
                recklantgegevens.Fields("postcode") = txtpostcode.Text
                recklantgegevens.Fields("woonplaats") = txtWoonplaats.Text
                recklantgegevens.Fields("contactpersoon") = txtcontactpersoon.Text
                recklantgegevens.Fields("telefoonnummer") = txttelefoonnummer.Text
                recklantgegevens.Fields("projectid") = txtid.Text
                recklantgegevens.Fields("padres") = txtAdres2.Text
                recklantgegevens.Fields("ppostcode") = txtPostcode2.Text
                recklantgegevens.Fields("pWoonplaats") = txtWoonplaats2.Text
                recklantgegevens.Fields("ptelefoonnummer") = txtptelefoonnummer.Text
                recklantgegevens.Fields("faxnummer") = txtFax.Text
                recklantgegevens.Fields("mobiel") = txtmobiel.Text
                recklantgegevens.Fields("emailadres") = txtEmailadres.Text
                recklantgegevens.Fields("Projectnaam") = txtProjectnaam.Text
                recklantgegevens.Fields("Projectinfo") = txtProjectInfo.Text
                temp = MsgBox("Weet je het zeker", vbYesNo, "weet je het zeker")
                    If temp = vbYes Then
                        recklantgegevens.Update 'schrijf de gegevens naar database
                        temp = MsgBox("Je hebt het record toegevoegd aan de database", vbOKOnly, "Toegevoegd")
                    End If
                    txtbedrijf.Text = ""
                    txtadres.Text = ""
                    txtpostcode.Text = ""
                    txtWoonplaats.Text = ""
                    txtcontactpersoon.Text = ""
                    txtid.Text = ""
                    txttelefoonnnummer = ""
                        If Not recklantgegevens.EOF Then
                        recklantgegevens.MoveLast
                        tnummer = recklantgegevens.Fields("projectid")
                        tnummer = tnummer + 1
                        txtid.Text = tnummer
                        End If
                    End If
                    chkidhandmatig.Value = False
                End If
End If

Re: add a empty database a record

Quote:

Originally posted by cusmar
the problem is when the database is empty i cant add a new record what do i wrong

VB Code:

Dim dbsklantgegevens As Database 'defineer de database
Dim recklantgegevens As Recordset 'defineer de recordset
Dim sqlklantgegevens As String

sqlklantgegevens = " select * from klantnummer " 'defineer de sqlquery: defineer de zoekcriteria

Set dbsklantgegevens = OpenDatabase("c:\klantgegevens.mdb") 'Defineer waar de database staat
Set recklantgegevens = dbsklantgegevens.OpenRecordset(sqlklantgegevens) 'defineer de recordset met de database en de sqlquery

If Not recklantgegevens.EOF Then
If recklantgegevens.RecordCount = 0 Then
End If
End If
If IsNumeric(txttelefoonnummer.Text) Then
temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
Else
If IsNumeric(txtptelefoonnummer.Text) Then
temp = MsgBox("Je hebt een letters in je telefoonnummer vak ingevoerd", vbCritical, "Letter")
Else
If txtbedrijf.Text = "" Then
temp = MsgBox("U heeft een van de velden niet ingevuld", vbCritical, "Mist data")
Else 'if db is empty and so is recordset it is at eof
[COLOR=darkred]
If Not recklantgegevens.EOF Then[/COLOR] 'als de database leeg is is de recordset ook aan het einde van de file
recklantgegevens.AddNew 'nieuw record
recklantgegevens.Fields("naam") = txtbedrijf.Text
recklantgegevens.Fields("adres") = txtadres.Text
recklantgegevens.Fields("postcode") = txtpostcode.Text
recklantgegevens.Fields("woonplaats") = txtWoonplaats.Text
recklantgegevens.Fields("contactpersoon") = txtcontactpersoon.Text
recklantgegevens.Fields("telefoonnummer") = txttelefoonnummer.Text
recklantgegevens.Fields("projectid") = txtid.Text
recklantgegevens.Fields("padres") = txtAdres2.Text
recklantgegevens.Fields("ppostcode") = txtPostcode2.Text
recklantgegevens.Fields("pWoonplaats") = txtWoonplaats2.Text
recklantgegevens.Fields("ptelefoonnummer") = txtptelefoonnummer.Text
recklantgegevens.Fields("faxnummer") = txtFax.Text
recklantgegevens.Fields("mobiel") = txtmobiel.Text
recklantgegevens.Fields("emailadres") = txtEmailadres.Text
recklantgegevens.Fields("Projectnaam") = txtProjectnaam.Text
recklantgegevens.Fields("Projectinfo") = txtProjectInfo.Text
temp = MsgBox("Weet je het zeker", vbYesNo, "weet je het zeker")
If temp = vbYes Then
recklantgegevens.Update 'schrijf de gegevens naar database
temp = MsgBox("Je hebt het record toegevoegd aan de database", vbOKOnly, "Toegevoegd")
End If
txtbedrijf.Text = ""
txtadres.Text = ""
txtpostcode.Text = ""
txtWoonplaats.Text = ""
txtcontactpersoon.Text = ""
txtid.Text = ""
txttelefoonnnummer = ""
If Not recklantgegevens.EOF Then
recklantgegevens.MoveLast
tnummer = recklantgegevens.Fields("projectid")
tnummer = tnummer + 1
txtid.Text = tnummer
End If
End If
chkidhandmatig.Value = False
End If
End If

If the recordset is empty, both EOF and BOF are true. The problem is that you only add a new record if EOF = False.
This way you can't add records to an empty table.

Here is the mistake:
VB Code:
If Not recklantgegevens.EOF Then 'deze regel moet je weghalen
                recklantgegevens.AddNew 'nieuw record

Isn't that what I marked in red

By the way why are you just adding records if the recordset isn't at eof. This is of no use No Where.

This can be of use if you want to edit a recordset.
Then you must be sure you aren't at the end of the file.
VB Code:
'probeer het eens uit  DUTCH
' try it out ENGLISH

Try correct you addnew case thisway:

VB Code:

With recklantgegevens
      If Not .EOF Then 'als de database leeg is is de recordset ook aan het einde van de file
                
             temp = MsgBox("Weet je het zeker", vbYesNo, "weet je het zeker")
             If temp = vbYes Then
                .AddNew 'nieuw record
                .Fields("naam") = txtbedrijf.Text
                .Fields("adres") = txtadres.Text
                .Fields("postcode") = txtpostcode.Text
                .Fields("woonplaats") = txtWoonplaats.Text
                .Fields("contactpersoon") = txtcontactpersoon.Text
                .Fields("telefoonnummer") = txttelefoonnummer.Text
                .Fields("projectid") = txtid.Text
                .Fields("padres") = txtAdres2.Text
                .Fields("ppostcode") = txtPostcode2.Text
                .Fields("pWoonplaats") = txtWoonplaats2.Text
                .Fields("ptelefoonnummer") = txtptelefoonnummer.Text
                .Fields("faxnummer") = txtFax.Text
                .Fields("mobiel") = txtmobiel.Text
                .Fields("emailadres") = txtEmailadres.Text
                .Fields("Projectnaam") = txtProjectnaam.Text
                .Fields("Projectinfo") = txtProjectInfo.Text
                .Update 'schrijf de gegevens naar database
                MsgBox "Je hebt het record toegevoegd aan de database", vbOKOnly, "Toegevoegd"
              End If
              txtbedrijf.Text = ""
              txtadres.Text = ""
              txtpostcode.Text = ""
              txtWoonplaats.Text = ""
              txtcontactpersoon.Text = ""
              txtid.Text = ""
              txttelefoonnnummer = ""
              If Not .EOF Then
                 .MoveLast
                 tnummer = .Fields("projectid")
                 tnummer = tnummer + 1
                 txtid.Text = tnummer
              End If
       End If
          chkidhandmatig.Value = False
       End If
       End With

Same mistake here
If the recordset is empty nothing can be added.

ohw sorry my mistake

Shame on me

Ha there you are.

And does it work now ???

Quote:

Originally posted by Swatty
Isn't that what I marked in red

Sorry, I overlooked your modifications, I thought it was just a quote.

yaah it just works fine