Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: records toevoegen  (gelezen 3031 keer)

0 leden en 1 gast bekijken dit topic.

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
records toevoegen
« Gepost op: 20 september 2016, 07:20:16 »
Beste oplossers,

In bijlage database afspraken.

Probleemomschrijving:

Als in tblAppointments geen records zijn en ik klik op knop in formulier, dan kunnen geen records toegevoegd worden.

Vanaf dat er 1 record is lukt het wel om code uit te voeren die achter de knop zit.

In het formulier zijn standaardwaarden ingesteld om niet elke keer opnieuw in te vullen bij het testen.

Heb voorbeeld gemaakt zie bijlage.

Gelieve de database terug als .mdb op te slaan.

Code achter de knop:

Private Sub Knop1_Click()

Dim rst As Recordset

Dim vDatum As Date
Dim vStart As Date
Dim vEinde As Date

vStart = CDate(txtStartdatum)
vEinde = CDate(txtEinddatum)


     '- Herhaal afspraak over bepaalde periode - Bijgevoegd Diezel op 20/09/2016

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblAppointments ORDER BY ApptID") 
     
Do Until rst.EOF
         
       
        For vDatum = vStart To vEinde
       
        If Weekday(CDate(vDatum)) = 4 And txtWoensdag = True Then
       
         rst.Edit
         rst.AddNew
         rst!ApptSubject = txtOnderwerp
         rst!ApptLocation = txtLocatie
         rst!ApptStart = vDatum & " " & txtUurStart
         rst!ApptEnd = vDatum & " " & txtUurEinde
         rst!ApptNotes = txtNota
         rst.Update
       
        End If
       
     
       
        Next
       
        rst.MoveNext
       
        Exit Sub
     
    Loop
   
   
     rst.Close
     Set rst = Nothing
     
 
   
End Sub

Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: records toevoegen
« Reactie #1 Gepost op: 01 oktober 2016, 18:11:51 »
Je doet een loop van een rst
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblAppointments ORDER BY ApptID")  'fetch all records from tblAppointments

Daar zitten geen records in bij een lege tabel.

Wat wil je precies bereiken?


Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: records toevoegen
« Reactie #2 Gepost op: 01 oktober 2016, 19:07:11 »
om het eerste record klaar te zetten om gegevens te kunnen invoeren als de tabel leeg is en daarna te kunnen wegschrijven naar de tabel.

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: records toevoegen
« Reactie #3 Gepost op: 01 oktober 2016, 19:33:15 »
dan doe je een
dcount en als die niet nul is, doe je wat in je functie staat?

Als die 0 is, doe je een insert into....?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: records toevoegen
« Reactie #4 Gepost op: 01 oktober 2016, 21:53:21 »
bedoel je dit: Voorbeeld Insert

Dim conn As ADODB.Connection

    ' db_file is the Access database's file name.
    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open

    ' Compose the INSERT statement.
    statement = "INSERT INTO Addresses " & _
        "(Name, Street, City, State, Zip) " & _
        " VALUES (" & _
        "'" & txtName.Text & "', " & _
        "'" & txtStreet.Text & "', " & _
        "'" & txtCity.Text & "', " & _
        "'" & txtState.Text & "', " & _
        "'" & txtZip.Text & "'" & _
        ")"

    ' Execute the statement.
    conn.Execute statement, , adCmdText

    ' Close the connection.
    conn.Close
 



Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

 


www.combell.com