VBA overføre oplysninger fra database

Skulle ikke være umuligt - vil prøve at finde et eksempel.

Hvilken office-version?

Hej supertekst

Offies office-version er 2007.

Hej parker

Do. version her. Nævnte Tekstboks - er det i en Userform eller ??

Hej supertekst

Tekstboks er i en UserForm som  liger i Word skabelonen

Initialer, der indtastes: er det primærnøglen eller anden nøgle i den relevante tabel. Hvis sidstnævnte - hvilket navn?

Hej supertekst

Den primærnøgl i min Access database er ID som Access selv har lavet.

Koloen hvor Initialerne så hedder "Initialer"

Altså ikke noget indeks på Initialer - det er heller kke et problem

Jeg er ikke helt med på hvad indeks er???

Men følgende kolonder er der i database (i rækkefølge)

Id - "Access selv har lavet"
MA nr - "Medarbejdernummer"
Initialer - "Medarbejderes Initialer"
Navn - "Medarbejderes navn"
Stilling - "Medarbejderes stilling"
Mail - "Medarbejderes mailadresse"
Tel - "Medarbejderes telefon nr"

Hver medarbejder har et "MA nr" som er unik for hver person, kan dette bruges??

Så kan man direkte søge på det felt - men det er ikke noget problem.

Jeg søger på initialer og returnerer nummer og navn i userformen - de øvrige felter kan du selv tilføje.

Hvor mange medarbejdere er der tale om?

Okay super.

Jeg vil tro der er ca 10 medarbejdere men gider det problemer hvis der kommer flere?????

Intet problem er her koden:

Rem Reference til Microsoft Office 12.0 Access database engine object er sat
Rem VBA-vindue (Alt+F11) / Tools (værktøjslinje) / References
Rem =======================================================================
Const dataBaseNavn = "Medarbejder.accDB"
Rem database & tabeller
Dim db, medarbejder
Dim sti As String
Private Sub Tb_initialer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.Tb_initialer <> "" Then
        hentMedarbejderdata Me.Tb_initialer
        db.Close
    End If
End Sub
Private Sub hentMedarbejderdata(initialer)
    Set db = OpenDatabase(sti & dataBaseNavn)
   
    Set medarbejder = db.OpenRecordset("medarbejder")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(initialer) = LCase(.Fields(2)) Then
                Me.Tb_navn = .Fields(3)
                Me.Tb_nummer = CStr(.Fields(1))
                medarbejder.Close
                Exit Sub
            End If
            .MoveNext
        Next r
    End With
   
    medarbejder.Close
End Sub
Private Sub userform_activate()
    sti = ActiveDocument.Path
    If Right(sti, 1) <> "\" Then
        sti = sti & "\"
    End If
End Sub

Hvis du er interesseret kan du få hele min model,
Send en mail - @-adresse under min profil.

Hej

Er det rigtig forstået at Databasen skal lige samme sted som Word skabelonen - Jeg kan kun få det til at virke sådan.

Er det mulig at lave det sådan at Databasen og skabelonen ikke behøves at ligge i samme mappe?

Jeg er hæller ikke med på hvordan f.eks Navn bliver overført til et bogmærker i word?

Men jeg kan gå for den til at skrive det i din teksbox :o)

Du skal blot ændre stien til databasen - altså skrive den rigtig mellem "'erne: Set db = OpenDatabase("databasesti" & dataBaseNavn)

Eks på sub, der kan kaldes til indsættelse af en værdi:

Private Sub indsætBogmærke(bogMærkeNavn, tekst)
    ActiveDocument.Bookmarks(bogMærkeNavn).Select
    Selection.TypeText Text:=tekst
End Sub

Jeg tro jeg har fundet ud af det, med stien til databasen


Det ikke se sådan ud, ikke?:

Private Sub userform_activate()
    sti = ActiveDocument.Path
    If Right(sti, 1) <> "\" Then
        sti = "C:\Users\Parker-1\Documents\Dokumentskabeloner" & "\"
    End If
End Sub

Det med bogmærker tro jeg vi har misforstået hinanden.
Det jeg gerne vil kunne er at oplysninger fra databasen for personen dirikte overføres til bogmærker i word når man har trykket på en CommandButton. og ikke som nu hvor de bliver overført til TextBox.


Håber det forklare det bedre

Nej - det forstod jeg godt.

Vist dig også et eksempel:

    ActiveDocument.Bookmarks(bogMærkeNavn).Select
    Selection.TypeText Text:=tekst

Det kan du jo "fyre af" direkte fra userformen.

okay så er det nok mig der ikke forstår det :o)

Du skriver at jeg kan bruge den kode

Private Sub indsætBogmærke(bogMærkeNavn, tekst)
    ActiveDocument.Bookmarks(bogMærkeNavn).Select
    Selection.TypeText Text:=tekst
End Sub

Men jeg ikke med på hvordan du fortæller at ex Navn fra database bliver overfør til bogmærker (txtnavn)

Du må lige bære over med mig, jeg har ikke prøve VBA så mig - men øvelse gør mester , håber jeg på :o)

Nu med bogmærker:

Rem Reference til Microsoft Office 12.0 Access database engine object er sat
Rem VBA-vindue (Alt+F11) / Tools (værktøjslinje) / References
Rem =======================================================================
Const dataBaseNavn = "Medarbejder.accDB"
Rem database & tabeller
Dim db, medarbejder
Dim sti As String
Private Sub Tb_initialer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.Tb_initialer <> "" Then
        hentMedarbejderdata Me.Tb_initialer
        db.Close
    End If
End Sub
Private Sub hentMedarbejderdata(initialer)
    Set db = OpenDatabase(sti & dataBaseNavn)
   
    Set medarbejder = db.OpenRecordset("medarbejder")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(initialer) = LCase(.Fields(2)) Then
                Me.Tb_navn = .Fields(3)
                Me.Tb_nummer = CStr(.Fields(1))
                medarbejder.Close
               
Rem Indsæt bogmærker
                indsætBogmærke "nr", Me.Tb_nummer
                indsætBogmærke "navn", Me.Tb_navn
                Exit Sub
            End If
            .MoveNext
        Next r
    End With
   
    medarbejder.Close
End Sub
Private Sub userform_activate()
    sti = ActiveDocument.Path
    If Right(sti, 1) <> "\" Then
        sti = sti & "\"
    End If
End Sub
Private Sub indsætBogmærke(bm, tekst)
    With ActiveDocument
        .Bookmarks(bm).Select
        Selection.TypeText Text:=CStr(tekst)
    End With
End Sub

Hej supertekst

1000 Tak men der sker fejl i føjgene

Private Sub indsætBogmærke(bm, tekst)
    With ActiveDocument
        .Bookmarks(bm).Select
        Selection.TypeText Text:=CStr(tekst)
    End With
End Sub

Er det rigtig forstået at der også blive sat bogmærker ind i word?

Du skal selv oprette bogmærkerne....

I mit eksempel er der oprettet bogmærkerne nr og navn:

Rem Indsæt i bogmærkerne
                indsætBogmærke "nr", Me.Tb_nummer
                indsætBogmærke "navn", Me.Tb_navn

Okay nu fik jeg det til at virke.

men kan jeg så bare slette textboxne: Tb_navn og Tb_nummer da jeg ikke vil have den i min UserForm, eller skal de være dig???

Nej - så overføre du blot direkte fra tabelfeltet til bogmærket.

okay men jeghar ikke bruge for de textbox i min userform og jeg vil også først overfør den til bogmærkerne når jeg trykker på en CommandButton

Du skal nok få ekstra point hvis bare du gider at hjælp mig i mål, så jeg kan forstå det, håber på at du vil hjælpe mig

Vender tilbage søndag..

Skulle vi ikke få afsluttet?

Løsning fra supertekst:

Const dataBaseNavn = "Medarbejderliste.accDB"
Rem database & tabeller
Dim db, medarbejder
Dim sti As String
Private Sub CommandButton1_Click()
    If Me.Tb_initialer <> "" Then
        hentMedarbejderdata Me.Tb_initialer
    End If
End Sub
Private Sub userform_activate()
    sti = ActiveDocument.Path
    If Right(sti, 1) <> "\" Then
        sti = sti & "\"
    End If
End Sub
Private Sub indsætBogmærke(bm, tekst)
    With ActiveDocument
        .Bookmarks(bm).Select
        Selection.TypeText Text:=CStr(tekst)
    End With
End Sub
Private Sub hentMedarbejderdata(initialer)
    Set db = OpenDatabase(sti & dataBaseNavn)
   
    Set medarbejder = db.OpenRecordset("MA_liste")
   
    With medarbejder
        For r = 1 To medarbejder.RecordCount
            If LCase(initialer) = LCase(.Fields(2)) Then
                indsætBogmærke "nr", CStr(.Fields(1))
                indsætBogmærke "navn", .Fields(3)
                Rem... o.s.v.
                Rem...
               
                medarbejder.Close
                Exit Sub
            End If
            .MoveNext
        Next r
    End With
   
    medarbejder.Close
    db.Close
End Sub

Hej Supertekst

Du bliver nøde til at lave et svar til så jeg kan give dig 200 point da man åben baret ikke kan give mere en 100 point af gangen :o(

Det er ok med 100 point!

Jeg kan ikke lægge flere svar, da du har afsluttet med accepter. I givet fald skulle du så oprette et helt nyt spørgsmål stilet til mig med henvisning til det oprindelige - hvis du skulle få brug for det en anden gang.