• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

database

Status
Niet open voor verdere reacties.

belcitas

Gebruiker
Lid geworden
14 jan 2012
Berichten
126
Wie zou ons kunnen helpen
wij zijn een clubje ouderen die elke week wat partijtjes biljart onder elkaar spelen
wij hebben hiervoor een programma dat we zelf wat aangepast hebben (zover onze kennis reikte)
nu zouden wij graag de uitslagen per partij overboeken naar de database
helaas reikt onze kennis niet verder dan de bovenste rij in de database(zie bijlage) wij hebben geen idee hoe we dit in de database moeten krijgen
zou iemand ons kunnen helpen met een oplossing of een opzetje geven hoe dit in de database moet (wij zouden het evt wel in het in ons originele programma moeten kunnen inpassen)
 

Bijlagen

Over wat voor database hebben we het dan? Er zijn diverse soorten.
Maar ik neem voor het gemak aan dat je MS Access bedoelt?
 
Hartelijk dank voor uw reactie
is het ook mogelijk om de dbase zo aan te passen dat de resultaten van beide spelers op een apparte rij gezet worden dus niet alles achter elkaar (speler a op 1e rij en speler b op de 2e rij)
Anders wordt het zo breed
 
Verander de code in

Code:
Sub test()
With Sheets("Database")
    LR = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    .Cells(LR, 1).Resize(, 11).Value = Array([Y4], [Y6], [w13], [Y8], [W15], [W17], [W19], [W20], [W21], [W22], [W23])
    .Cells(LR + 1, 1).Resize(, 11).Value = Array([Y6], [Y4], [w13], [Y8], [X15], [X17], [X19], [X20], [X21], [X22], [X23])
End With
End Sub
 
Als je een tabel gebruikt dan kan je ook beter de eigenschappen van zo'n tabel gebruiken. In 1 keer wegschrijven gaat meestal wat sneller.

Code:
Sub VenA()
  Set d = CreateObject("Scripting.Dictionary")
  d(1) = Array([Y4], [Y6], [w13], [Y8], [W15], [W17], [W19], [W20], [W21], [W22], [W23])
  d(2) = Array([Y6], [Y4], [w13], [Y8], [X15], [X17], [X19], [X20], [X21], [X22], [X23])
  Sheets("Database").ListObjects(1).ListRows.Add.Range.Resize(2, 11) = Application.Index(d.items, 0, 0)
End Sub
 
Code:
Sub j()
With Sheets(3).ListObjects(1)
   .ListRows.Add.Range.Resize(, 11).Value = Array([Y4], [Y6], [w13], [Y8], [W15], [W17], [W19], [W20], [W21], [W22], [W23])
   .ListRows.Add.Range.Resize(, 11).Value = Array([Y6], [Y4], [w13], [Y8], [X15], [X17], [X19], [X20], [X21], [X22], [X23])
End With
End Sub

@Vena, ik was toevallig bezig met hetgeen wat je zei(behandelen als tabel). Geeft hetzelfde resultaat:thumb:
 
@JVeer, goed bezig. Wel onmeetbaar trager maar dat mag de pret niet drukken:d
 
Of
Code:
Sub hsv()
Dim d(1)
  d(0) = Array([Y4], [Y6], [w13], [Y8], [W15], [W17], [W19], [W20], [W21], [W22], [W23])
  d(1) = Array([Y6], [Y4], [w13], [Y8], [X15], [X17], [X19], [X20], [X21], [X22], [X23])
  Sheets("Database").ListObjects(1).ListRows.Add.Range.Resize(2) = Application.Index(d, 0)
End Sub
 
Heren
allemaal hartelijk dank voor jullie reactie
we gaan er mee aan de slag
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan