Access - Ngarkimi i fotografive automatikisht

[pyetesi]

Duhet te kesh problem me instalimin ne kompjuterin tend.

Perderisa nuk je ne gjendje te hapesh as shembullin qe te kam derguar dhe as tendin kjo do te thote se te ka ndodhur avari ne kompjuter.

Shembullin tend une e hapa me MSAccess2000, ndersa Access97 nuk e njihte si format.

Shembulli qe te kam derguar eshte ne Access97 i cili mund te hapet ne cdo version mbi 97.

Mundohu t'a hapesh dhe shikoje zbatimin.

Me pak fjale.



tek fusha "foto" e aplikacionit tend beje text dhe aty regjistro
"rrugen e plote per tek skedari"

psh: "c:\pics\1.jpg" etj.

Mandej tek forma e cila do qe te afishohet fotografia
perdor nje nenforme.

Tek kjo nenforme do te afishohet fotoja.

Shto te pakten nje buton i cili do te kryeje kalimin per tek regjistrimi tjeter.

ky buton do te kete kete procedure:

Private Sub go_next_Click()
On Error GoTo Err_go_next_Click
DoCmd.GoToRecord , , acNext
Call getPicture
Exit_go_next_Click:
Exit Sub

Err_go_next_Click:
MsgBox Err.Description
Resume Exit_go_next_Click

End Sub


Ndersa getPicture eshte nje procedure e cila afishon foton tek nenforma

Ajo eshte

Private Sub getPicture()
Dim fs As Variant
Set fs = Application.FileSearch
With fs
.LookIn = "C:\pics\"
If Not (Me.foto = "") Then
.Filename = Me.foto
Else
.Filename = ""
End If
If .Execute() > 0 Then
Me.pic.Form.picture = Me.foto
' pic eshte emri i nenformes
Else
End If
End With
End Sub

[pyetesi]

Mundohu te marresh ndonje program per te qene per zberthimin e skedareve te kompresuar.

[Ardi_Pg_ID]

ajo cka te ka thene pyetesi i zgjidh unet e tua!
po une do te thoja nese nuk ke shume njohuri per Accessin me mire shko online bej nje search per ate database fotosh edhe e ke ne regull sa per MsOffice 97 ka nje template te gatshme mundohu te besh dicka me te edhe na thuaj per ndonje pyetje se puna e forumit eshte te te japim zgjidhjet jo te ta ndertojme ne programin sepse nuk eshte puna jote edhe nuk te ndohmon per te ardhmen provoje te besh dicka me keto qe te ka dhen pyetesi ose per sa i perket shembullit qe ti dergove je pothuajse aty vetem duhet ta besh foto linked jo siq e ke ti tani
have fun per pyetje posto perseri

[Delil]

KAM MARRE KETE SHKRIM DHE I KAM KALUAR FOTOT POR PROBLEMI ESHTE SE FOTOT I KAM TE NATYRES JPEG... NDERSA KY I KALON VETEM ATO ME BMP, UNE NUK DUA TI KTHEJ NE BMP, DHE DICKA TJETER ATO JANE TE EMERUARA ME NUMRA, KESHTU QE CDO NUMER DUHET TI KORESPONDOJE NUMRIT TE ID OSE EMRIT.... JU FALEMINDERIT....

Create the following new table in Design view. Save it as tblLoadOLE: Table: tblLoadOLE
------------------------
Field Name: OLEID
Data Type: AutoNumber
Field Name: OLEPath
Data Type: Text
Field Size: 255
Field Name: OLEFile
Data Type: OLE Object

Table Properties: tblLoadOLE
----------------------------
PrimaryKey: OLEID

Using the AutoForm: Columnar Wizard, create a new form based on the tblLoadOLE table. Save it as frmLoadOLE.
Open the frmLoadOLE form in Design view.
Create three unbound text box controls in the form header section of the form: Form: frmLoadOLE
------------------------
Text Box:
Name: SearchFolder
Text Box:
Name: SearchExtension
Text Box:
Name: OLEClass

Create a command button on the form: Command Button
--------------
Name: cmdLoadOLE
Caption: Load Files

Type the following event procedure in the OnClick property of the cmdLoadOLE button:Private Sub cmdLoadOLE_Click()

Dim MyFolder As String
Dim MyExt As String
Dim MyPath As String
Dim MyFile As String
Dim strCriteria As String

MyFolder = Me!SearchFolder
' Get the search path.
MyPath = MyFolder & "\" & "*." & [SearchExtension]
' Get the first file in the path containing the file extension.
MyFile = Dir(MyPath, vbNormal)
Do While Len(MyFile) <> 0
[OLEPath] = MyFolder & "\" & MyFile
[OLEFile].Class = [OLEClass]
[OLEFile].OLETypeAllowed = acOLEEmbedded
[OLEFile].SourceDoc = [OLEPath]
[OLEFile].Action = acOLECreateEmbed
' Check for next OLE file in the folder.
MyFile = Dir
' Go to new record on form.
' For Access 95 only, use the following Line of code:
DoCmd.DoMenuItem acFormBar, acEditMenu, 12, 4, acMenuVer70

' For Access 97 only, use the following line of code:
'DoCmd.RunCommand acCmdRecordsGoToNew
Loop

End Sub

Save the frmLoadOLE form and open it in Form view.
Type the full path name of the folder you want to search in the SearchFolder text box.
Type the file extension you want to load in the SearchExtension text box, such as bmp, jpg, doc, xls, tif, or gif. Do not type a period as part of the extension.
Type the Class name for the type of file you are loading, such as Paint.Picture for .bmp files.

NOTE: To determine the Class name of an OLE object, see the documentation for the application supplying the object.
Click the Load Files button. Note that All files that match the SearchFolder and SearchExtension you entered are added to the tblLoadOLE table.

[fitims]

U mundova qe ta bashkangjes nje DB ne access e cila tregon se si behet futja e jpg fotove ne Access, por nuk pata sukses sepse fajli (i zipuar) ishte me i madh se 100k (eshte rreth 650k). Keshtu qe nese te nevoitet ende shkruaje emailin e ta dergoj me email.

Te pershendes

FitimS

[Delil]

Te fm per mundimin
E-maili im pa ta dergoj ne privat.

[Zzanushjaa]

KAM MARRE KETE SHKRIM DHE I KAM KALUAR FOTOT POR PROBLEMI ESHTE SE FOTOT I KAM TE NATYRES JPEG... NDERSA KY I KALON VETEM ATO ME BMP, UNE NUK DUA TI KTHEJ NE BMP, DHE DICKA TJETER ATO JANE TE EMERUARA ME NUMRA, KESHTU QE CDO NUMER DUHET TI KORESPONDOJE NUMRIT TE ID OSE EMRIT.... JU FALEMINDERIT....

Sa per JPG problemin zgjidhja eshte e leht.Ju duhet qe ta riinstaloni (update) MS access pasi qe kur ju e keni instaluar ate e keni zgjedhur typical install, e me kete rast nuk do te instalohen te gjithe ekstensionet e mundeshme te fotoveKeshtu pra shko te Control Panel ->Add/remove programs->Ms Office->Change->Add remove features .. dhe aty i zgjdh te gjitha per MS Access.Keshtu do te heqesh ate problemin me formate te fotove.