rogersacceslibrary pictureload2k question

  • Thread starter Thread starter reservedbcreater
  • Start date Start date
R

reservedbcreater

i got pictureload2k from rogersaccess library. Now - the openfile module
thingy. do i create one for my db and copy and paste code exactly(cause
thats where the error debug takes me to is it highlgihts String(256)
somewhere in the module's code)? and then for the
form - do i just copy and paste exactly???
what would i have to change???????
the pictures locations will be my documents/my pictures

thank u all the help has been superb so far. just i am a nweb sorry.
 
id like to add that i can put

C:\Documents and Settings\adamd\My Documents\My Pictures\34.jpg

a pic from my pc into the text bar and then i change to record 2 and then
back to 1 where i type in the path of my pic and the pic is viewable on
form like i asked so that works...but the choose a file just gives me
error. even when i change all refrences like roger described in a
previous post?
 
also on picture2kload i can make my pciture appear
but on my db when i try to paste path into textbox
it gives me error: text too long to edit
??????????
 
heheh, now i got more to add.......now i made it so the pitures are in a
shorter path name.....the result....when i open the form it says image
importing or something with a little bar that fills up but it disapears so
fast and no picture loads in the image thing
 
now i cant get the picture to show up anymore but
it says its importing - it just never appears
 
lol ok.........check it out........everything worknig fine now except:

open file dialog - choose a picture

i get error cant find project

also - i cant seem to get 2 pics on a form to load up - only 1???????

ie i went(this didnt work nothing laoded up not even 1st picture but i do
see the importing bar flash by and disapear:

Option Compare Database
Option Explicit
Dim Filename As String, pathname As String

Private Sub Form_Activate()
pathname = "C:\"
End Sub

Private Sub Form_Current()
On Error GoTo Err_cmdClose_Click

'set the picture path
Me.ImgStock.Picture = Me.txtStockGraph
Me.ImgStock.Picture1 = Me.txtStockGraph1

Exit_cmdClose_Click:
Exit Sub

Err_cmdClose_Click:
If Err.Number = 2220 Then 'can't find the file
Resume Next
ElseIf Err.Number = 94 Then 'invalid use of null
Me.ImgStock.Picture = ""
Me.ImgStock1.Picture = ""
Resume Next
Else
MsgBox Err.Description
Resume Exit_cmdClose_Click
End If
End Sub
 
I'm sorry, but I don't know what I can do to help. Just saying "it doesn't
work" gives me nothing to go on.

The whole reason for my samples is to give people working copies of a
process so they can dissect them and figure out how they work. I suggest
you go back to the sample and try to figure out what each and every part
does. Set a break point in code and use F8 to step through the code. Keep
at it until you know how the sample works, then generalize it to your own
code.

I know you're new, but every one of us "old-timers" went through the same
process. It takes time but if you keep at it, you'll get there.

--
--Roger Carlson
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L
 
Back
Top