De laatste 40 regels van een 450 regels lange functie waar ik wat in aan heb moeten passen. De rest van de code past ook goed in dit topic maar ik denk dat dit wel genoeg is
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| ...code.. End If pSQL = "" Call DB.Execute(pSQL) End If Else ' Niets gevonden. Dat kan niet?!? End If Set rs4 = Nothing End If Case Else Debug.Print ("") End Select ' Select Case (CLng(rs3!ba1.Type)) End If ' If (Not IsNull(rs3!ba1.Type)) Then End If ' If (Not (rs3.BOF And rs3.EOF)) Then Call rs3.Close Set rs3 = Nothing DoEvents End If ' If (Not (rs3 Is Nothing)) Then rs2.MoveNext DoEvents Loop Until rs2.EOF ' Do rs2.Close Set rs2 = Nothing Else ' ' End If ' If (Not (rs2.BOF And rs2.EOF)) Then End If ' If (Not (rs2 Is Nothing)) Then rs.MoveNext DoEvents Loop Until rs.EOF ' Do End If ' If (Not (rs.BOF And rs.EOF)) Then rs.Close Set rs = Nothing End If ' If (Not (rs Is Nothing)) Then |