Hallo,
Ik heb een querytool voor het zoeken naar opgeslagen docs(tiffs) gebouwd,in db diverse tabellen,daarin gegevens omtrent de opgeslagen documenten,zoals DOCID,aantal blz,enz
Op basis van het DOCID wordt er een berekening gemaakt,waar het opgeslagen doc zich bevind,na het klikken op een button,wordt het bijbehorende doc in een viewer getoond.
Ik heb het volgende probleem,als ik een zoekactie plaats,en meerdere records in het subform krijg,ik alleen de documenten achter het eerste record krijg,ondanks dat ik een ander record heb geselecteerd met de record selecter.
Code achter button:
Option Compare Database
Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DWDOCID] = " & Str(Nz(Me![Combo2], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Public Sub Command4_Click()
' Calculate subfolders,display path and filename and extension
Dim intSubmap1 As Integer
Dim intSubmap2 As Integer
Dim intExt As Integer
Dim A As Long
Dim myVar As Byte
intExt = 1
DWCOUNTER = DWDOCID
intSubmap1 = Int(DWCOUNTER / (CLng(256) * 256))
intSubmap2 = Int(DWCOUNTER / 256) And 255 And 255
map1 = Format(intSubmap1, "000")
map2 = Format(intSubmap2, "000")
Do While intExt <= DWPAGECOUNT
A = Shell("C:\Program Files\Common Files\microsoft shared\MODI\11.0\MSPVIEW.EXE D:/" & "GIRONR" & "." & Format(DWDISKNO, "000") & "/" & map1 & "/" & map2 & "/" & Format(DWCOUNTER, "00000000") & "." & Format(intExt, "000"))
' MsgBox "Uw dossier bestaat uit " & DWPAGECOUNT & " blz " & "D:/" & map1 & "/" & map2 & "/" & Format(DWCOUNTER, "00000000") & "." & Format(intExt, "000")
intExt = intExt + 1
DWCOUNTER = DWCOUNTER + 1
myVar = MsgBox("Wilt u de volgende pagina bekijken?", vbYesNo + vbQuestion)
If myVar = 7 Then Exit Sub
Loop
End Sub
Er zal waarschijnlijk nog code tussen moeten,die de velden van het geselecteerde record uitleest,kan iemand mij helpen ????? Hoe ?
Ik heb een querytool voor het zoeken naar opgeslagen docs(tiffs) gebouwd,in db diverse tabellen,daarin gegevens omtrent de opgeslagen documenten,zoals DOCID,aantal blz,enz
Op basis van het DOCID wordt er een berekening gemaakt,waar het opgeslagen doc zich bevind,na het klikken op een button,wordt het bijbehorende doc in een viewer getoond.
Ik heb het volgende probleem,als ik een zoekactie plaats,en meerdere records in het subform krijg,ik alleen de documenten achter het eerste record krijg,ondanks dat ik een ander record heb geselecteerd met de record selecter.
Code achter button:
Option Compare Database
Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DWDOCID] = " & Str(Nz(Me![Combo2], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Public Sub Command4_Click()
' Calculate subfolders,display path and filename and extension
Dim intSubmap1 As Integer
Dim intSubmap2 As Integer
Dim intExt As Integer
Dim A As Long
Dim myVar As Byte
intExt = 1
DWCOUNTER = DWDOCID
intSubmap1 = Int(DWCOUNTER / (CLng(256) * 256))
intSubmap2 = Int(DWCOUNTER / 256) And 255 And 255
map1 = Format(intSubmap1, "000")
map2 = Format(intSubmap2, "000")
Do While intExt <= DWPAGECOUNT
A = Shell("C:\Program Files\Common Files\microsoft shared\MODI\11.0\MSPVIEW.EXE D:/" & "GIRONR" & "." & Format(DWDISKNO, "000") & "/" & map1 & "/" & map2 & "/" & Format(DWCOUNTER, "00000000") & "." & Format(intExt, "000"))
' MsgBox "Uw dossier bestaat uit " & DWPAGECOUNT & " blz " & "D:/" & map1 & "/" & map2 & "/" & Format(DWCOUNTER, "00000000") & "." & Format(intExt, "000")
intExt = intExt + 1
DWCOUNTER = DWCOUNTER + 1
myVar = MsgBox("Wilt u de volgende pagina bekijken?", vbYesNo + vbQuestion)
If myVar = 7 Then Exit Sub
Loop
End Sub
Er zal waarschijnlijk nog code tussen moeten,die de velden van het geselecteerde record uitleest,kan iemand mij helpen ????? Hoe ?