From: Warren Dowling Date: 2006-06-07T11:27:56+09:00 Subject: Automating Access ------=_NextPart_000_003E_01C68A2D.CD73FD50 Content-Type: multipart/alternative; boundary="----=_NextPart_001_003F_01C68A2D.CD73FD50" ------=_NextPart_001_003F_01C68A2D.CD73FD50 Content-Type: text/plain; charset="windows-1250" Content-Transfer-Encoding: 7bit Hi, I'm currently working with the WIN32OLE object in an attempt to create a test framework for the automation testing (mostly regression) of an access database that we have written. I am having great difficulty in identifying how to get hold of the event sink for either access or the forms that are being displayed. Would anyone know if there is one and if so what it's called/how to get it. I've tried a variety of things but the .._EVENT.new(@TMWin) fails, with an 'interface not found' or 'No Such Interface supported' error message The code I've got so far looks like this: @TMWin = WIN32OLE.new("ACCESS.Application") @TMWin.visible = true @TMWin.OpenCurrentDatabase "c:\\TM-Testing\\2000-TMInterface5.1.3.mdb" ev=WIN32OLE_EVENT.new(@TMWin) ev.on_event {|*args| puts'here'} # ev.on_event("quit") {thow:done} catch(:done) do loop do WIN32OLE_EVENT.message_loop end#loop end#catch end#def Thanks for your help Warren _____ Warren Dowling Test Engineer T: +61 (07) 38396346 M: +61 (0)405 227 661 F: +61 (07) 5522 5232 HYPERLINK "mailto:warrend@kjross.com.au"warrend@kjross.com.au Level 6, 131 Leichhardt St Spring Hill Qld 4000 _____ HYPERLINK "http://www.kjross.com.au/"K.J.Ross & Associates _____ This document (including attachments) is only intended for its addressee/s and may contain privileged or confidential information. Unauthorised use or distribution of this document or any part of its contents, is prohibited. If you have received this email in error please notify the sender and delete the email immediately. -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.8.2/357 - Release Date: 6/06/2006 ------=_NextPart_001_003F_01C68A2D.CD73FD50 Content-Type: text/html; charset="windows-1250" Content-Transfer-Encoding: quoted-printable
Hi,
 
I'm = currently=20 working with the WIN32OLE object in an attempt to create a test = framework for=20 the automation testing (mostly regression) of an access database that we = have=20 written. I am having great difficulty in identifying how to get hold of = the=20 event sink for either access or the forms that are being displayed. = Would anyone=20 know if there is one and if so what it's called/how to get=20 it.
 
I've = tried a variety=20 of things but the .._EVENT.new(@TMWin) fails, with an 'interface not = found' or=20 'No Such Interface supported' error message
 
The = code I've got so=20 far looks like this:
 
   =20 @TMWin =3D WIN32OLE.new("ACCESS.Application")
    = @TMWin.visible=20 =3D true
    @TMWin.OpenCurrentDatabase=20 "c:\\TM-Testing\\2000-TMInterface5.1.3.mdb"
   =20 ev=3DWIN32OLE_EVENT.new(@TMWin)
    ev.on_event = {|*args|=20 puts'here'}
#    ev.on_event("quit")=20 {thow:done}
   
    catch(:done)=20 do
      loop=20 do
       =20 WIN32OLE_EVENT.message_loop
     =20 end#loop
    end#catch
  = end#def
 
 
Thanks = for your=20 help
 
Warren
 
Warren Dowling

Test Engineer

T:   +61 (07)=20 38396346
M:   +61 (0)405 227=20 661
F:   +61 (07) 5522 5232		 warrend@kjross.com.au=20

Level 6, 131 Leichhardt = St=20
Spring Hill
Qld 4000
3D"K.J.Ross
 
This=20 document (including attachments) is only intended for its = addressee/s and=20 may contain privileged or confidential information. Unauthorised = use or=20 distribution of this document or any part of its contents, is = prohibited.=20 If you have received this email in error please notify the sender = and=20 delete the email = immediately.

 

--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.8.2/357 - Release Date: = 6/06/2006

------=_NextPart_001_003F_01C68A2D.CD73FD50-- ------=_NextPart_000_003E_01C68A2D.CD73FD50 Content-Type: image/gif; name="kjralogo.gif" Content-Transfer-Encoding: base64 Content-ID: <211511802@07062006-1D71> R0lGODlhQAEoALMPABdQX/Pz9j5eh4SUsZ+pwGh+oNPU5MXO2La+0TyFZefp7pS4sdvf5gAzZv// /////yH5BAEAAA8ALAAAAABAASgAAAT/8MlJq7046827/2AojmRpnmhaOWygHEuRzMNyKKwSsGrv /8CgcEjstRiLBGC5TMSUiZojYHAUr9isdssF5pLM8GLnUCBmiQPL2m273/C4inUOM6E7BYN1mI15 coGCg4Raaw4LdgBKTGMvOC6IMzhsFQgDBQUDBxIsmJqZnCWfmgEfBp+pmQMIVYUPCgQDAgKZCKYg CqoErxcHqwMjDgwHuD9rColhjMsBxSwMew59CXsXBA3ZDbwPDgXa2QWVIwDaAgofCODr2QAI43Le 7A0Dxh0H7Oi9FNjtIgwEaNmb02LAohnL0MwgYICMmik6Zuyw0C8bLwcVw8ETUS7buQ8H/zrOa6dP UEUBs7S56hDg27p3+yYQKLckRMhwA1OUQdRE4QwE0gASGMpAT448UQDJBMdLHbgBGzmaK8kBgUgB Q1NqgzpIgDZOCrzSi3ohgEhzOQspMMDWQIgB2gqkPTGFAbMmmw5NqxKLVYsqfJwofZDxgIGzAsiG uEp1w81wnfBtreRMFis1FahYHsBwXOUBoDt3cNngltMGmDucBMdghYFLoW9VMGOZAFALL0Bf3qg5 tjUJZhAgECUhAILNtnGZIS1AeEkHwkMXs8DguPTnPO0UgKRAx1oy07bnWBMgCQ5+T8WGa1yCcTqR BYqfHivhgPq4rYuTfqp8vzYCik0gWf84HcnlgQPqBbSVMRid5dFv9rEjAHGI3NcAANtREOE67uBS EQATIGChR2psCI4Abj3AwIhYsQGdgw0IkN8wzEBRzA5UHPBMAGRcolddgqE3UgML9OCeB4/FeFwB 96WY5DofBXDSfQAGAJdH98GkQUsSspcBA9oAkAxaIXaE4VVWhGWOegC0htGQBj5w2JDcfFgcYicG wACMALilZjtZ1memAFeZwtNdt6zFwA5sAQRUQw74lUM0ySRgT0ZdqnBkB1YNmU09sFy1QEZy/Smm lLXUoGdH51iJkhQZTIGAf+J0MxcFb3rkAjjEkQagAbVkYsVp9TAADCdgmnPJU1OwaZv/ejISFmY3 2CzRnDMi3cBkmJrowJwBsYSJDmmmAdOaWQc1gQwDBhSFEUrdVcHAAN3p4a5dxEnrKVcobMrBk1DK pm+MKZ7UnXqatHKeiuqB1gqPG0Q60gHzsuLlBH9u80AACLNxZYyjAmXMaSjZBqkEH3/0AHPYtoOA BMZqQoApdsK8FgJ6dGqRFR9nyLBKPHL83wMpswJUJSH15I5e0ZThlYzG7bCAI+A54ISQ4DiY3weH pObvBjrH+DHBE5BW68a8QscOALW4iemF8GrwoVYeafNyBnNaFA1pbUoALIe0uCI0lFiZkiAbCoAj JZndNFZzfbMSug6ARMeFy4Ax0nJf/3wKOMh2ATAp04SMTOPgFIYyVHHAOz8mgXU784ITJ5JMllMl tBf7IhJU86lMGr8OZEut5FAaGhCMiWEw+DZl+BfjrRJ7WpoV09Cydn4tEc/UA+ppGYDiJ1FWQc0Z wy0S5T3jMt9I8Q1jPTtuGRSGjAcMsIeeO8xKwE0AFCPcj5J4HYpgMbnibCZFFphPfPLWALlISTcI TCB8unEfUKUMF8nKBgJf84v9pGgaq9uWNrZWgT2NME1ja6Bigie9503AGZcowASBMxwCiDBGxooL G04DAOOECRct4QzOBgYieXhkAYs6XOVw4rfzCccw7WLXBKpTPxlu5QGMyOILllAAAv9Qgl0s8Eqx 9gfAPryOG0bUldOGdoHEya6Ca7RIBpLUPsz1bT70MgDLUJEJ8XApG63oowP/iBoMsPBBOkhE1kB1 gfXRhEPdsSGTWHcaucyKSTNb1YPm40UTyeVv4YjGx/pHxG6crxuYQ5853JUxAJVhODfg0ScmJKu4 YFERDfkG25rDgnYB6xxTgMHUhjKqJ5wRY5NrFhstEL15iAkWCcpA2OKzsf3Uaj/aK42KZAcaM1FB drJg1a1SOCJtFMkChHTHcIYzNi8yhzOHG1sXzUbBE2XNLc2Em+xoNi0EmUMWyRwY3PaAOU1Aqwps Ag25sOgTXmLDesAMGrjWcAYZKiL/AcfshH8aEs0LTMF5F4JJK6U5w22ypnnOpNzinPmOla5NS2UB 6afEMjsKMLCmnTPHMGCkEWiOJFruYykQZaqyjFBrbQ1L01n61I0UhkkUoGSHgZwQNGeMwVhLyMZD 9CIivNxlERQQkebu1jjN0WJmTKIFWctyPM3Riw3ZUyvezBqMTsxCcyq14S5RkhpUpnWXA0AgdP5K i8BywDgyNKsXp4CJuYiVFn1FmVnvN4tdYkhgGwsIoTS3AKpIKbGF/U1x9LjX5pTksdQ0zmZRQgW3 Ug9YbGMb9oxFi10SgITzqi2hQIcLwSCDM8nYHRlyMzivLmMLRdEBFxalXAx4R0/O/+0OdEHA3MZA DAj1IuEK6nWr5G7AOwvrgHc4UK+ydGcKyitDdyqQBPIYYCgvCtOSxLKkBcgPDXeIiX73y19B9IEM QVsAUPaTVbSwQHQJkMESztnfBjv4wULAl14MsIBcAQolAGkAJUR3ECXka2OvucUKn2gF0QZBT4ui HqUituJpCGfFIaCEHm512NU1BDfRACKMcUUpFNtjxoqZCKUCtKXqtCIIw/jNRHwMAqtB5RBm0AOb WKe2epTHDmigyopidKGZeVSXBeAjjVGgplrhAwDciJUMgzETsTUwF6DZGKHSHAIulYORZdJm5fo2 G0INJ3AU+Aaex1eA1giayBjYcv87KOcDs0zPWLywz4SaHBJKTCHERuwIYEIyoeAuQgzj+EZzRH0u YkhjTvaDyznK6wLukIFdkILIWtAxDIoNBC4A4Fk2TAFrWme3Onl5mo5sAxxTw5UY4KpmA3dAFJix xdc4YFdOEtccr2hXaO3zCufagg41tWIo3c6lCsvQKD5o1TjEhkWjiiPdieLKKwDQiih63Tjv3Fjd bEnTeV2wA0BueWZCSa4Okt0NdnHXVkmZlHG2eKGdQaMhCrDoMmC6sk8R5aOx9aJYUMKqmbAZQ3pi rcQnlL01tyS2NZUMQlU4k81WYRYyNChnthKQBW423hi3Vv2mMskXWWsPTKpsTeX/TA/6VADXevL3 zQXAo3K0ghYHi+2yZxJb+4mlf7P4FaHY9rKakxppDu9Wg7joLZTs1gW1jXcsanHyYADSJfH+pRmC xTY1tDyt+JzG0pIMnVtoj+nkzjoUQD2OqAJgDKLuB0Bj1GYM7ekcYtn5s7Ci7cE156EiogcFhHbb bETDIqKOuEdsSI9+oPkb20lAAw2CIklnHnQ0KbTTTUh6FMEb3h/OYQN1AI9kre55mm0zQ7zSigvF DiuhLCyuf+ERPdJjy6Axfj8kd7YHOKUx6kCzttXEtmzoostY+b5ctP0Ai0x/fxd6b922kSxMaHUC kUpAtHeABJd63ohYkSFCFkGG/wqsTittBnT0kFOcABfbwSVURw/fkD+ZUA7jt2zYpiACgCvY0EUx 8n3553mixgKCxj30wCWB5X0Q4QKyYEUTiHpEdwAVqEkRElhOt3lPEyOY5BmCJmguEDl3tmXF1yeH hnrDgAnwVhTG54GscCE4IEYPJTHVd31+syiHln3/9j0NwC4eUQBjsIIdCEic9wBJo36JIWhntipM 1QkBMAk8cmCGcRb1gAmulEUzsCgTUTZo5gwzNYXyUA8viHr503ApgSHTwHh66BUAoiYosQoVMCe2 IzHx1kc51D4oKEZ3aABGOAwNYRWFGCOVwznlgAoqZEJ/M3yFtBQyUhEfpjZMEP8/SiJGf7ODzhcM BqgmM9cnYPJMYpR9R1h6OOSDU5QNY5A0s6J5kuFtObUokXMhKniB5KeFgsiFBPNQCCiJbSKJDSBY UzAJa1B/KWRpL1AjakAJgRYOQZh4TpdTL4NrL5NTGnYltyBqnSIXKGglSmILmQF3rXFmsiAAnfWO j7hsr/g0BrENifc0FUdyXkExdyZqn2hC+eIUnFEgvSdO/tRFOeh0Z4aB/1gAkvGLKJIs+fh82oZr GSYjuqhRF2JFbZJ9KbEdxOdGy4GR5XCMDQQZythABnBmXgiChAhvEdQ4M/AQUvIOvwhIw3AcNSIN g+FTJPJRDTeIBcmFNLEDBuj/lMB0E7VwgR2obA7IHu1IPQlISx0Ij8EgRvDIOfD2gZ1SlUxHlTpo fRvnhOwHWZtXLWJDC/CgiLwgJeVQlYXmZ3JHiDYIb7VTDPC2LFCxIZNWgZzIL42TMpzwJlnJJThj bVt2Z2tUlcHgdI4ZZrRQHfyoQnqkCS/JTArgB3uACjhTHsJmGwhmYsxEMecVGWtBPWtQcGDUDTxw CDDTND9ChjkSFbjZCWtxb7Npm7J5CIYyDbFpK0VRNVRglHDVLkBknHUJLg/RXCswnMh5huTRAsph FBPRHWpwhrAgbcOpB9Nhm1UjmtJGAXqwEtIZGe5iBfk2m/Q5n9opnSsCOtWyeZO2WSlOMC/7YxiS dDSHQVWIBmEImqAK+kL74WW4cgioMABKcAumJmPgkhcHuqAauqH8ZRw6cp7XqZ0vYIVU0Ao68kTV kaEcuqIsiqAAhAgU0xZsIRxkpKIteqM4GhNK4QDvRQBTI2CrcwNHmaNEWqRGeqRImqRbEAEAOw== ------=_NextPart_000_003E_01C68A2D.CD73FD50--