Null melding

Status
Niet open voor verdere reacties.

sarges

Gebruiker
Lid geworden
11 okt 2008
Berichten
57
Beste kenners,

Als ik de 4 in For j = 2 To 4 wil veranderen naar 7 (dat moet het worden)
krijg ik de melding
Fout 94 tijdens uitvoering.
Ongeldig gebruik van Null
(met de verwijzing naar het volgende regel)
ActiveDocument.Tables(1).Cell(rownum, j).Range = rs("temp" & j).Value
In mijn excel staat Naam en temp1 t/m 7
Tot 4 gaat prima maar 5 , 6, 7 gaat fout, kom er niet uit.
Graag jullie hulp

Serge
Code:
Private Sub UserForm_Initialize()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\beheer.xls;"
rs.Open "SELECT * FROM [Sheet1$]", conn

Do While Not rs.EOF
    ComboBox1.AddItem rs("Naam")
    rs.MoveNext
Loop

rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub
Code:
Private Sub Invoegen_Click()
Dim rownum As Integer, j As Integer
rownum = ActiveDocument.Tables(1).Rows.Count

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\beheer.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & "'", conn

For j = 2 To 7
 ActiveDocument.Tables(1).Cell(rownum, j).Range = rs("temp" & j).Value
Next
ActiveDocument.Tables(1).Rows.Add ' Nieuwe regel in tabel 1
End Sub

'//////////
'ActiveDocument.Tables(1).Cell(rownum, 5).Range = "1x per jaar" 'frequente controle
'ActiveDocument.Tables(1).Cell(rownum, 6).Range = "Schoon" 'Norm
'ActiveDocument.Tables(1).Cell(rownum, 7).Range = "Zie paraaf 7.5" 'Vastleggen
 

Bijlagen

Dat kan simpeler:

Code:
Sub Macro12()
  ActiveDocument.Content.InsertFile activedocument.path & "\beheer.xls", "Blad1!A1:K10", False, True
End Sub
 
Zoals je weet ben ik bezig met steeds verbeteren, dat zal nog wel even duren :)
Krijg nu de melding Sub of Function is niet gedefineerd
Code:
ActiveDocument.Tables(1).Cell(rownum, j).Range =[COLOR="Red"]rs[/COLOR] ("temp" & j).Value

Hoe zet ik deze goed dan?
 
Ben er achter waarom, in de excel Sheet staat (als test) bla1 en die 1
(of welk cijfer dan ook) geeft de fout melding.
Zou je mij daar een oplossing voor kunnen geven aub?

Serge
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan