Малко помощ за MS Access, SQL и VBA

[Humppa]

Колеги, опитвам се да създам една база данни на MS Access 2003. Трябва ми малко помощ.1. Таблиците, релациите, формите са направени, почти на 95% са готови. Остава само в едната форма да напъхам код на VBA за Browse бутон, с който да качвам малки jpg файлове в една от таблиците. За този код може ли някой да помогне?2. Въпроси: Може ли да се генерира отчет от форма, в която се задават някакви критерии, с които да се извлече нужната информация от таблиците? Трябва ли предварително да се прави конкретна заявка, която да извлече данни от таблица за този отчет? Това е така, защото различните потребители ще имат нужда от различна информация.3. SQL заявката трябва да бъде нещо от сортаSELECT *FROM tblTable1WHERE tblTable1.Field1 = ComboBox1OR tblTable1.Field2 = ComboBox2OR tblTable1.Field3 = ComboBox3OR tblTable1.Field4 = ComboBox4....Освен ComboBox има и CheckBox-чета във формата за генериране на отчета.Потребителят отваря формата за генериране на отчети, задава си неговите критерии в комбобоксчетата и чекбоксчетата, след това щраква на бутон, който да генерира отчета. Всички генерирани отчети трябва да имат еднакъв изглед, полетата с данни(текст), тяхната големина и позиция ще е еднаква, само данните ще са различни, в зависимост от нуждите на потребителя.Може ли в кодът, генериращ отчета да се опишат текстовитр полета за данните с тяхната позиция, форма, разположение на листа хартия, както и ориентацията на листа, границите на печат...Благодаря на всеки, който отдели малко време за тези (може би) малко объркани и неясни въпроси със сложни отговори

[Humppa]

Попаднах на това дали ще свърши работа:

Lets assume the Images are held C:DatabasesImages. On your query for your form that you want to see the image for need: ImageFile: [StID] & ".jpg" Put this on the Form doesn’t need to be visible. On your Form then create an Image Control called ImageControl Two Functions i.e ModulesCode:Function GetImageDir() As String GetImageDir = "C:DatabasesImages"End FunctionNow get the Picture:Code:Function GetPicture()Dim FullPath As String With CodeContextObject FullPath = GetImageDir & .[ImageFile] If Dir([FullPath]) <> Empty Then .[ImageControl].Visible = True .[ImageControl].Picture = FullPath .[ImageFlag] = -1 ’ see below Else .[ImageControl].Visible = False .[Image Flag] = 0 End If End WithEnd FunctionIf you really want to sexy on your table create ImageFlag and then add this to the GetPicture function that way users know if there is an Image or not. This method looks after itself.

[jenshen73]

Не пъхай файловете в базата данни, ако имаш начин да го направиш. По-скоро ги записвай в папка и в базата данни само записвай къде е файла. По-елегантно и леко е.

[Airfan]

И едното и другото си има предимство и недостатъци.

[Humppa]

Снимките мисля да смаля до около 100 килобайта, но все пак не знам колко на брой ще са... Може да станат доста.Ще се опитам, по постнатия по-горе код, да съхранявам път до изображението, а в репорт и форма то да се показва.