Hjælp til SPM om udprintning!!!!

Jeg tror at du har en fejl her.

Else
If recPartprint("Parttype") = "GIF" Then
Dim strFil As String
Dim pic As Picture
Set Part = GetObject(recPartprint("Partsti") & "\" & recPartprint("Parttegninger") & (".GIF ")) ’ny

strFil = (recPartprint ("Partsti") & "\" & recPartprint ("Parttegninger") & (".GIF"))’ rettet der stod kun recPart

Set pic = LoadPicture(strFil)

Jaaa.... men den stopper her:
recPartprint.MoveFirst

Og siger " Der er ingen aktuel post"
Men jeg VED at der en i databasen en sti der peger herhen!!!

Hvis den siger "Der er ingen aktuel post" er det fordi det recordset du kalder er tomt. Så er det klart at .MoveFirst fejler. Du kan måske umiddelbart før sige:
If .RecordCount = 0 Then
  MsgBox "Der er ingen poster"
  Exit Sub
End If

Hvis du ved der skal være en post, ved du også at fejlen ligger i sql-strengen. Prøv evt. at lade Access danne sql-strengen (hvis du har mulighed for det) det er ofte lettere at få det hele med på denne måde.

Hmmm.... ikke nogen hjælp jeg kan bruge...

Sagen Lukket!