Fråga : Installera meddelandet för ram 3.0 på Nero multimediafölje 10, även om redan installerat

Pröva förmiddag I att installera försök för Nero multimediafölje 10 på min dator och I-uppehället som får meddelandet, som ram 3.0 behöver att installeras, och därefter installationen av Nero missar.  Ram 3.0 ar redan installerad.  Någon hjälp erbjöd skulle uppskattas väldeliga.   " klar "

Svar : Installera meddelandet för ram 3.0 på Nero multimediafölje 10, även om redan installerat

Förmiddag I görar klar inte helt på vad du önskar att göra, men är här någon kodifierar det skapar en filtrerad rapport för varje rekord i en recordset:
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:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

Privata underPrintCustomReports ()
'Skapat av Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

På felet GoTo ErrorHandler

   Dunkel strQuery som stränger
   Dunkel strContactName som stränger
   Dunkel strFileName som stränger
   Dunkel strReport som stränger
   Dunkel strCurrentPath som stränger
   Dunkel strFileNameAndPath som stränger
   Dunkel lngID som Long
   Dunkel rpt som Access.Report
   Dunkla rstContacts som DAO.Recordset
   Dunkel strRecordSource som stränger
   Dunkel strSQL som stränger
   
   strRecordSource = ”tblContacts”,
   Fastställda dbs = CurrentDb
   Fastställda rstContacts = dbs.OpenRecordset (”tblContacts”)
   strCurrentPath = Application.CurrentProject.Path & ”\”,
   
   'Denna rapport har qrySingleContact som dess rekord- källa
   strReport = ”rptContact”,
   strQuery = ”qrySingleContact”,
   
   Med rstContacts
      Gör stunder inte .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ””&! [LastName]
         Debug.Print ”som bearbetar kontaktLEGITIMATION” & lngID
         strFileName = ”rapport för” & strContactName & ”.pdf”,
         strFileNameAndPath = strCurrentPath & strFileName
         Debug.Print ”sparar - namnge och banan: ” & strFileNameAndPath
         
         'Skapa den filtrerade queryen
         strSQL = ”VÄLJER * FRÅN” & strRecordSource & ”VAR” _,
            & ”[ContactID] =” & lngID & ”; ”,
         Debug.Print ”SQL för” & strQuery & ”: ” & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print ”No. av objekt grundar: ” & lngCount
         Om lngCount = 0 därefter
            GoTo NextContact
         Avsluta om
   
         'Skriv ut den beställnings- rapporten
         DoCmd.OpenReport ReportName: =strReport beskådar: =acViewDesign
         Uppsättningen rpt = anmäler (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport beskådar: =acViewNormal
         
NextContact:
      Kretsa
   Avsluta med
   
ErrorHandlerExit:
   Gå ut suben

ErrorHandler:
   MsgBox ”felnr.: ” & Err.Number & ”; Beskrivning: ” & Err.Description
   Meritförteckning ErrorHandlerExit

Avsluta suben
Andra lösningar  
 
programming4us programming4us