plx

Kan je het bestand hier eens zetten? Mss krijgen wij het wel openen en kunnen het dan als een wordbestand terugsturen.

Nu is het een RTF bestand.

Onderaan dit bericht kan je klikken op 'Meer Opties' ... zo kan je je printscreen selecteren en toevoegen.

Maar om je probleem op te lossen probeer even het volgende:

• Klik rechts op het bestand en kies 'Eigenschappen'
  
• Klik het middelste tabblad 'Beveiliging'
  
• Klik Bewerken
  
• Klik Toevoegen
  
• Bij Objectnamen vul je 'iedereen' in en klik OK
  

Nu staat iedereen in het venstertje 'Namen van gebruikers en groepen'

Selecteer 'iedereen' en vink onder 'Toestaan' alles aan.

Klik op OK

Open nu het bestand opnieuw

Omgekeerde kan natuurlijk ook maar is het de moeite om het te programmeren?

Er is een exportfunctie naar csv -> Daarvan kan je makkelijk importeren.

Een routine om de contact in de mappen af te lopen zou er ongeveer zo uit zien:

Public Sub GetAllContacts()
   Dim olApp As Outlook.Application
   Dim olNS As Outlook.NameSpace
   Dim olContact As Outlook.MAPIFolder
   Dim FolderToCheck As Outlook.MAPIFolder
   Dim ciContact As ContactItem

   For Each FolderToCheck In olContact.Folders
      For Each ciContact In FolderToCheck.Items
           'Maak hier een record in je tabel
           MsgBox ciContact.NickName
      Next ciContact
   Next

ExitProc:
   Set FolderToCheck = Nothing
   Set olInbox = Nothing
   Set olNS = Nothing
   Set olApp = Nothing

End Sub

Kijk je eens of deze het bij jou doet? Bij mij alvast wel. txtContact verwijderd ->KlantEmailGroep1

appOutlook as new outlook.application => deze fout krijg je als je geen referentie naar de outlook bbibliotheek hebt.

In het code venster ->Extra ->Vewijzingen -> Microsoft outlook ...jouw versie aanvinken.

PEB 20151111plx.zip

Wat je kaartje zichtbaar maakt is

ciContact.Display

In bijlage jouw database aangepast: Er is een vak (rood gemakeerd) waar je een groep kan invullen (eventueel te halen uit een keuzelijst [Klant1])

Als de groep niet bestaat, wordt in de map contactpersonen een nieuwe groep aangemaakt.

PEB 2015plx.zip

Dit werkt bij mij

Private Sub btnNaarOutlook_Click()
   Dim appOutlook As New Outlook.Application
   Dim nsOutlook As NameSpace
   Dim mfContacts As MAPIFolder
   Dim ciContact As ContactItem


   Set nsOutlook = appOutlook.GetNamespace("MAPI")
   Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)

   'zoek de contactpersoon met de naam van het veld KlantNaam1
   'Set ciContact = mfContacts.Items.Count
   'MsgBox mfContacts.Items.Count

   'zoek de contactpersoon met de naam van het veld KlantNaam1
   Dim strFullName As String
   strFullName = Me.Naam & " " & Me.Voornaam
   Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)


   'nieuwe contactpersoon maken als contactpersoon niet gevonden is
   If ciContact Is Nothing Then
       Set ciContact = mfContacts.Items.Add

       'Set ciContact = mfContacts.Items.Add
       ciContact.FullName = strFullName
       ciContact.Email1Address = Me.email
       ciContact.Save
   End If

   'Opkuisen
   Set ciContact = Nothing
   Set mfContacts = Nothing
   Set nsOutlook = Nothing
   appOutlook.Quit


End Sub

MsAccessNaarOutlook.zip

In bijlage mijn oplossing:

=ALS(EN(B2="pro";K2>=40);"Ja";ALS(EN(B2="n";K2>=60);"Ja";ALS(EN(B2="k";K2>=75);"Ja";ALS(EN(B2="tl";K2>=90);"Ja";"neen"))))

voorbeeld_plx.xlsx

Er bestaat niet echt een viewer om de gegevens via formulieren te bekijken maar er zijn wel meerdere programma's (Heidi SQL) waarmee je queries kan maken.

Ik weet niet hoe ingewikkeld je database is maar het lijkt me eenvoudiger om je gegevens over te zetten naar een slq database die via internet toegankelijk is?

Waarom zou je VBA willen als 'dit' werkt?

Wist je dat als je dubbelklikt op de vulgreep (het blokje onderaan rechts in een cel waarmee je al slepende kopieert) je meteen de hele kolom doet?

ach srry...goed gedaan!

Als je een autonummering veld gebruikt, zou je bij het laden van de pagina:

- Het hoogste nummer kunnen ophalen DMax()

- De waarde bij het het hoogste aantal Dlookup()

Vaak is het makkelijk als je zelf een vbtje online zet.

arnoderuig.zip

owzo srry het was helemaal niet neerbuigend bedoeld.

Ik heb de vergelijking van de parabool zowat geschat aan de hand van de gegevens van de grafiek.

Als je dan de 'a' en de 'b' waarde vermenigvuldigd met een zelfde factor, krijg je een steeds stijlere grafiek. (a = -1/20 B en c=0)

Van 3D grafieken ken ik maar weinig maar mss heb je hier wat aan?

Kan je deze vraag als opgelost markeren?

parabolen.xlsx

Als dat van Stegisoft geen soelaas brengt, probeer het volgende:

Allicht heb je die OCX control niet op je pc staan of is er geen referentie naar.

Je kan deze bibliotheek gratis downloaden.

Eens je dat gedaan hebt ga je naar het VB-venster ->Klik in het men 'Extra' -> 'Verwijzingen' -> In het volgende venster kies je 'Bladeren' ->Selecteer het OCX bestand. Dan zou zou de foutmelding moeten verdwijnen.

Als kind leer je dat een cirkel 360 graden geeft. Met een gradenboog zet je ook die hoeken uit met een gradenboog.

360 graden wordt gelijk gesteld aan 2*PI. PI ken je dan weer dan weer van een omtrek (2*PI*straal) van een cirkel of (Pi*R*R) voor de oppervlakte van deze cirkel.

Als je de hoeken omzet naar radialen kan je makkelijk een functie gebruiken die sinus heet. In een rechte hoek is de (Overstaande zijde)/(Schuine zijde) = sinus (Hoek).

In bijlage een oplossing van je vraag...als dat niet volledig duidelijk is, vraag je t maar hé.

Sinus.xlsx

Sja dit zou ik niet in Excel doen maar in Access (of een andere database).

Probleem zal zich voordoen als je datums niet chronologisch invoert.

Mocht je 'Vandaag()' als functie D9 stoppen en er nooit of te nimmer iemand daar wat anders over tikt. Dan kan je dit wel gebruiken.

Ik houd dus de laatste factuurdatum bij telkens er een record is. (Als er geen is, zet ik de laatstefactuurdatum op 01/01/2000)

Bij een lege cel kijk ik of de maand van deze factuur datum verschilt van de laatstefactuurdatum. In dat geval verhoog ik teller met 1

test_plx.xlsm

en zo niet moet je die van mij eens onder de loep nemen.

Antwoord staat op Blad2 (ik heb er een knop op gezet die de macro uitvoert) Code bekijken doe je met ALT+F11

Je lijst mag onbeperkt zijn.

De kolom waar de data in komt wordt bepaald door het laatste cijfer van de factuurnummer (kan je aanpassen als je dat wenst)

template_plx.xlsm

Om je vraag te beantwoorden heb ik een afbeelding gezet met wat je in welke tabel in welk veld moet aanpassen.

Als je een tabel hebt waarin je facturen opslaat, noem deze dan tblFacturen of Facturen maar geen lijst?

Ik vind ook nergens een tabel Klanten (tblKlanten) terug.

Hoe alles (zeker in t begin zo simpel mogelijk) Die lijst met 62000 records aan postcodes en gemeenten, hou die voor op t laatste. Ze belast onnodig je database.

Als ik jou was, zou ik van nul herbeginnen.

dat doe je met de Year() functie

Dim jaar as Integer
jaar = Year(datumveld)

of

Dim jaar as String

zie bijlage

Ik geloof dat er sinds 2010 een veldtype bijgekomen is: Berekend veld.

In bijlage vind je een bv. Om je helemaal te begrijpen is het vaak handig dat je zelf een voorbeeldje in elkaar knutselt. Dat spaart ons wat moeite en misverstanden uit.

Ik heb enkel office 2013.

hrider_BTW.zip

Zo'n fout in de code zoeken is niet vanzelfsprekend als je niet weet 'wat' je precies op je werkblad hebt staan.

Dus als je de code wilt laten nakijken, zend dan het hele document aub.

Ik snap het nog steeds niet helemaal maar ik deed een poging om het zonder je code te doen.

Die kringverwijzing (dat is in mijn ervaring nergens goed voor) heb ik weggewerkt.

De cellen waar je nog gegevens mag invoeren geselecteerd en via eigenschappen/Bescherming gedeblokkeerd

en vervolgens het werkblad beveiligd via het tabblad controleren. Het wachtwoord om het terug te deblokkeren staat op het werkblad zelf.

Hopelijk helpt dit je wat vooruit.

opvolgnummers excel vastzetten.xlsx

Ik vind het fantastisch dat Bucky een antwoord wist te verzinnen. Ik snap absoluut niet wat je wilt doen en waarom je dat wilt.

Ik hoop dat je wat geduld met me hebt?

Over wat gaat dit? Welke velden worden door de gebruiker ingevuld en wat moet het resultaat er van zijn?

Ach ik dacht dat je bij het wijzigen van je CSV zelf een error kreeg.

Aangepaste versie :

Overzicht.xlsm

markeer je deze dan als opgelost?

met Javascript kan je dat.

Ken je 'iets' van HTML of ben je bereid daar snel wat over te leren?

In dat geval leg ik je uit hoe je een eenvoudige tabel maakt en opsmukt met wat CSS.

Eens je tabel klaar, geef ik je een javascript functie en toon ik je hoe je die gebruikt. Je moet dus niets zelf programmeren, alleen toepassen.