Hoe kijken of al bestaat of niet en dan toevoegen?

Status
Niet open voor verdere reacties.
D

Dummy1912

Gebruiker
Lid geworden
26 mrt 2010
Berichten
362
Hallo,

hoe kan ik kijken of de datum al bestaat voordat wij een nieuwe laten toevoegen?


Code: 
Set ws = ThisWorkbook.Sheets("Sheet5")
ws.Activate


Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long


Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.ACCDB" & ";Jet OLEDB:Database Password='12345';Mode=Share Exclusive"


Set rs = New ADODB.Recordset
rs.Open "TBL_ImportList", cn, adOpenKeyset, adLockOptimistic, adCmdTable


r = 9 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
.Fields("m_datetime") = Range("F" & r).value
.Update ' stores the new record
End With


r = r + 1 ' next row
Loop
 
Misschien even de db met iig de tabel 'TBL_ImportList' en het Excelbestand plaatsen?

Verder begrijp ik niet zoveel van de gebruikte code en het doel. Dus een beetje meer uitleg is ook niet verkeerd.
 
Goedemorgen Vena,

hier het gevraagde bestandje

de knop inladen haalt de data uit een andere table
en met de stuur naar zal deze naar de importlist voeren
maar we zouden willen zien als de datum + huidige naam al bestaat in de table
zodat we deze niet 2x of meer zouden toevoegen
maar mag eventueel updaten inplaats van te negeren


bedankt.
 

Bijlagen

  • Database (2).zip
    69,6 KB · Weergaven: 25
Laatst bewerkt:
Waarom heb je Excel hiervoor nodig? Kan je toch ook via een Userform in Access invoeren? Waarom is rij 9 statisch? Als je de primairy key op de juiste velden zet dan kan je sowieso geen dubbele gegevens toevoegen. Dus meer vragen dan een antwoord.
 
Als het je bedoeling mocht zijn om een reeks nieuwe records in access klaar te zetten voor gebruik: maak een unieke index aan op het datumveld, zo krijg je een foutmelding als je een reeds bestaande datum probeert toe te voegen. Je kan dan via je error handling ervoor zorgen dat deze datum wordt overgeslagen en met de volgende datum wordt verder gegaan.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan