Delphi 2005 pour manipuler des formulaires MS-Access ??

Version imprimable

18/10/2005, 05h30
Mustard007

Delphi 2005 pour manipuler des formulaires MS-Access ??

Bonjour !!

J'aimerais savoir si il est possible de manipuler les formulaires d'une BD MS-Access a partir de Delphi ??

En fait, J'aimerais ajouter une Étiquette(ou autre controle comme un bouton) dans un de mes formulaire Access sans ouvrir Access.

Donc si oui, merci de me donner un exemple ou me diriger vers un site qui nous le démontre !

Merci bcp !!! :D

Danny.

Un exemple ?
en voici un rapidement (et imparfaitement ) fait. :wink:

Code:

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
unit UTCA2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UTCA, OleServer, AccessXP, StdCtrls;
 
type
  TForm1 = class(TForm)
    AccessApplication1: TAccessApplication;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    var
    Madatabase:olevariant;
    MonForm:olevariant;
    MonControle:OleVariant;
    MaSection:OleVariant;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    AccessApplication1.CloseCurrentDatabase;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    AccessApplication1:=TAccessApplication.Create(self);
    Madatabase:='H:\DATA\Test_Controle_Access.mdb';
    AccessApplication1.OpenCurrentDatabase( Madatabase,false,'');
    AccessApplication1.Visible:=true;
    MonForm:='Form1';
    AccessApplication1.CreateForm(Madatabase,MonForm);
    MonControle:=acTextBox;
    MaSection:=acDetail;
    AccessApplication1.CreateControl(MonForm,MonControle,MaSection);
end;
 
end.

Par contre, faudra m'expliquer pourquoi tu veux utiliser Delphi pour créer des contrôles sur un formulaire Access.. :?

18/10/2005, 18h39
Mustard007

Bonjour !!!

Merci !!!;o)

Oui je crois que se sont les Composant Serveur (AccessApplication, AccessForm, etc...)

Il n'y a pas de fichier d'aide pour ces composant..bizarre !
Si tu as un site ou il donne plus d'exemple et d'explication des control SERVEUR de Delphi, ca serait bien ! Sinon, je pense que si quelqu'un qui connait bien ses controles, pourrais un petit Howto pour Devellopez.com ;)

Merci pour ton code, ca me donne un bon coup de main pour débuter ;)

En fait, pkoi je veut faire ca...
C'est qu'on a des client lesquels on leur avait fait une application Acces et que je veux maintenant pouvoir lui appliquer des fixs sans avoir à toujours renvoyer le fichier MDB au complet. Donc, avec une petite application Delphi, je pourrai mettre-à-jour des controles ou autres sur les formulairse. Pendant que nous y sommes, est-il également possible de modifier le code VBA des objet du formulaire ?

Merci bcp encore une fois :D

Danny.
18/10/2005, 18h46
Frank

Pour info, j'ai découvert les objets serveurs pour répondre à ta question.

Il n'y a en effet pas d'accès à l'aide pour ces composants, donc il faut essayer, tester, etc...

Pour ce qui est de l'écriture dans un module, cela est semble t'il possible, suffit de regarder les propriétés pour en être sur.

Pour ce qui est d'écrire un petit HoWTo pour dvp, pourquoi pas ? :wink:

Dès que tu as fini ton article, n'hésites pas à nous contacter. :P
18/10/2005, 21h39
Mustard007
lollll Va falloir que je mis mettre tout suite alors ;o)
Du testing en masse en vues ;)

Bien merci !!

Ah oui , p-e malgré que tu viens de découvrir ces composant tu aurais une idée, je réussis a changer le NOM de mon formulaire , je quitte avec acQuitSaveAll mais quand je reviens dans mon appli Access, il a pas sauvegarder....
Code:

1 2 3 4 AccessForm1.ConnectTo(AccessApplication1.Forms[0]) ; AccessForm1.Caption := 'Dossier JLI1.01'; AccessApplication1.CloseCurrentDatabase ; AccessApplication1.Quit(acQuitSaveAll);
Merci..:)

:tagcode: :merci:

FRANK