Record uit database halen

[goof2808]

Hi,

Ik heb een bestand bijgevoegd.
Hierin worden de gegevens die op het blad "Entry1" worden ingevoerd via een macro naar de database("data") geschreven.

De records in de database moeten soms aangepast worden.

Hoe kan ik:
-De betreffende record moet via het "Leningnummer" gevonden worden in de database.
-De record moet teruggeplaatst worden op "Entry1" en gewist worden in de database

Daarna kunnen gegevens aangepast/toegevoegd worden en via de macro weer naar de database worden geplaatst

Thanks alvast!

govi

 

[goof2808]

Ik heb een aangepast bestand bijgevoegd..

 

[snb]

Kijk eens hier voor een uitgebreid voorbeeld (registreren om bijlage binnen te halen)

 

[goof2808]

Hi snb,

Een erg mooie datebase, maar iets te complex voor mijn snelle klus.

Ik heb uiteindelijk deze code gefabriceerd:

Sub Search()
Application.ScreenUpdating = False
'Zoeken
Dim Search As String
On Error GoTo ErrorCatch
Search = Range("Search").Value

Sheets("data").Select
Columns("M:M").Select
Selection.Find(What:=Search, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

'Kopieer gegevens naar blad Entry1
ActiveCell.Offset(0, -12).Range("A1:AY1").Select
    Selection.Copy
    Sheets("Entry").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
'Oude gegevens wissen
Sheets("data").Select
Selection.ClearContents
Sheets("Entry").Select
 Range("B3").Select

Exit Sub
ErrorCatch:
Sheets("Entry").Select
MsgBox "Zaak staat niet in de database"


End Sub