Sabtu, 30 November 2013

RE: [MS_AccessPros] RE: Run-Time Error '429': ActiveX component cannot create object

 

Beatricz-

 

Is Skype4COMLib the name of the library or the name of the object?  That looks like a library name.

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@hotmail.com
Sent: Saturday, November 30, 2013 11:50 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] RE: Run-Time Error '429': ActiveX component cannot create object

 




Hi John,

yes I have load up skype object from the start- - when i look into the object browser, as you suggested, "Skype4COMLib" shows up but "Skype4COM" doesn't-- i am not sure if they are one or the same- but the one that shows up on the object browser (|Skype4COMLib) still gives me the run-time '429' error. So,I'm stuck either way.

thanks in advance.

Beatricz



---In ms_access_professionals@yahoogroups.com, <JohnV@...> wrote:

Beatricz-

 

Did you load the Skype library in Tools / References?  If yes, then when you use the Object Browser on that library, does it show a Skype object?  If not, then that's your problem.

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Saturday, November 30, 2013 7:21 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: RE: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 



Hi John.

I did have an object reference in vba through tool menu.As you suggested,  I've checked on regedit and the library is there with a key.

The problem is two-fold: First of all, I cannot declare and compile successfully with 'Skype4COM.Skype;- it tells me that 'user-defined type not define' message even though Skype4COM is properly referenced and registered. Second of all, when I declare with 'Skype4COMLib.Skype', it compiles just fine and the objects show in the vba intellisense, however, i get the run-time error 429. 

 

the following code-declare, compile successfully and objects are visible in intellisense but it  gives me the run-time error '429'

 

  Dim oSkype As SKYPE4COMLib.Skype

    Dim oCall As SKYPE4COMLib.Call

    Dim oCon As SKYPE4COMLib.Conference

 

Set oSkype = New SKYPE4COMLib.Skype 

 

If Not oSkype.Client.IsRunning Then

oSkype.Client.Start

End If

 

this code does't declare and compile successfully and gives me the message 'user-defined type not defined':

    Dim objSkype As Skype4Com.Skype

     

    Set objSkype = New Skype4Com.Skype

 

it tells me that 'user-defined type not defined'

 

What else, in your opinion, could be done to overcome this hurdle?

Thanks,

Beatricz


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote:

Beatrice-

 

For VBA to be able to "see" an object like "Skype4COM.Skype", the dll must be registered in Windows.  Try using Regsvr32.

 

http://stackoverflow.com/questions/4897685/how-do-i-register-a-dll-on-windows-7-64-bit

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Friday, November 29, 2013 5:45 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 

 

Hi, I am trying to use Skype4COM api to handle my callings in access database. and i have done all the proper .dll registrations and object referencing. However, each time the compiler gets to the line: 'Set oskype = CreateObject("Skype4COM.Skype")', it gives me  the '429' run time error- no matter whatever way - declare the object. I am using MS Access 2013, both 64-bits.  here below is  a sample of my code. I ran out of possible troubleshooting ideas on what may cause this run-time error. thank you in advance, Beatricz
Private Sub Call_Click()


Set oskype = CreateObject("Skype4COM.Skype")


If Not oskype.Client.IsRunning Then
oskype.Client.Start
End If


Set oUser = oskype.User("User1")

Set oCall = oskype.PlaceCall(me.Number)



End Sub






__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (8)
Recent Activity:
.

__,_._,___

[belajar-access] Tanya : Validasi Data Kedalaman lubang bor agar tidak overlap

 

Selamat siang,

Salam kenal (baru join hari ini)

Para master Access,

Mau tanya nih, bagaimana melakukan validasi dengan VBA untuk kasus berikut,

Saya mempunyai tabel data pengeboran sbb :

Contoh pengisian data yang benar untuk kedalaman bor (depth_from & depth_to) :

Hole_id    |    Depth_from    |    Depth_to
AD001                    0                        1
AD001                    1                        2
AD001                    2                        3
AD001                    3                        4
AD001                    4                        5


Contoh pengisian data kedalaman yang salah (tanda *)

Hole_id    |    Depth_from    |    Depth_to
AD001                    0                        1
AD001                    1                        1*
AD001                    2                        3
AD001                    2 *                     4
AD001                    4                        5


Terima Kasih,


Dody

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

[MS_AccessPros] RE: Run-Time Error '429': ActiveX component cannot create object

 

Hi John,

yes I have load up skype object from the start- - when i look into the object browser, as you suggested, "Skype4COMLib" shows up but "Skype4COM" doesn't-- i am not sure if they are one or the same- but the one that shows up on the object browser (|Skype4COMLib) still gives me the run-time '429' error. So,I'm stuck either way.

thanks in advance.

Beatricz



---In ms_access_professionals@yahoogroups.com, <JohnV@...> wrote:

Beatricz-

 

Did you load the Skype library in Tools / References?  If yes, then when you use the Object Browser on that library, does it show a Skype object?  If not, then that's your problem.

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Saturday, November 30, 2013 7:21 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: RE: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 




Hi John.

I did have an object reference in vba through tool menu.As you suggested,  I've checked on regedit and the library is there with a key.

The problem is two-fold: First of all, I cannot declare and compile successfully with 'Skype4COM.Skype;- it tells me that 'user-defined type not define' message even though Skype4COM is properly referenced and registered. Second of all, when I declare with 'Skype4COMLib.Skype', it compiles just fine and the objects show in the vba intellisense, however, i get the run-time error 429. 

 

the following code-declare, compile successfully and objects are visible in intellisense but it  gives me the run-time error '429'

 

  Dim oSkype As SKYPE4COMLib.Skype

    Dim oCall As SKYPE4COMLib.Call

    Dim oCon As SKYPE4COMLib.Conference

 

Set oSkype = New SKYPE4COMLib.Skype 

 

If Not oSkype.Client.IsRunning Then

oSkype.Client.Start

End If

 

this code does't declare and compile successfully and gives me the message 'user-defined type not defined':

    Dim objSkype As Skype4Com.Skype

     

    Set objSkype = New Skype4Com.Skype

 

it tells me that 'user-defined type not defined'

 

What else, in your opinion, could be done to overcome this hurdle?

Thanks,

Beatricz


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote:

Beatrice-

 

For VBA to be able to "see" an object like "Skype4COM.Skype", the dll must be registered in Windows.  Try using Regsvr32.

 

http://stackoverflow.com/questions/4897685/how-do-i-register-a-dll-on-windows-7-64-bit

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Friday, November 29, 2013 5:45 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 



Hi, I am trying to use Skype4COM api to handle my callings in access database. and i have done all the proper .dll registrations and object referencing. However, each time the compiler gets to the line: 'Set oskype = CreateObject("Skype4COM.Skype")', it gives me  the '429' run time error- no matter whatever way - declare the object. I am using MS Access 2013, both 64-bits.  here below is  a sample of my code. I ran out of possible troubleshooting ideas on what may cause this run-time error. thank you in advance, Beatricz
Private Sub Call_Click()


Set oskype = CreateObject("Skype4COM.Skype")


If Not oskype.Client.IsRunning Then
oskype.Client.Start
End If


Set oUser = oskype.User("User1")

Set oCall = oskype.PlaceCall(me.Number)



End Sub





__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)
Recent Activity:
.

__,_._,___

RE: RE: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 

Beatricz-

 

Did you load the Skype library in Tools / References?  If yes, then when you use the Object Browser on that library, does it show a Skype object?  If not, then that's your problem.

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@hotmail.com
Sent: Saturday, November 30, 2013 7:21 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: RE: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 




Hi John.

I did have an object reference in vba through tool menu.As you suggested,  I've checked on regedit and the library is there with a key.

The problem is two-fold: First of all, I cannot declare and compile successfully with 'Skype4COM.Skype;- it tells me that 'user-defined type not define' message even though Skype4COM is properly referenced and registered. Second of all, when I declare with 'Skype4COMLib.Skype', it compiles just fine and the objects show in the vba intellisense, however, i get the run-time error 429. 

 

the following code-declare, compile successfully and objects are visible in intellisense but it  gives me the run-time error '429'

 

  Dim oSkype As SKYPE4COMLib.Skype

    Dim oCall As SKYPE4COMLib.Call

    Dim oCon As SKYPE4COMLib.Conference

 

Set oSkype = New SKYPE4COMLib.Skype 

 

If Not oSkype.Client.IsRunning Then

oSkype.Client.Start

End If

 

this code does't declare and compile successfully and gives me the message 'user-defined type not defined':

    Dim objSkype As Skype4Com.Skype

     

    Set objSkype = New Skype4Com.Skype

 

it tells me that 'user-defined type not defined'

 

What else, in your opinion, could be done to overcome this hurdle?

Thanks,

Beatricz


---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote:

Beatrice-

 

For VBA to be able to "see" an object like "Skype4COM.Skype", the dll must be registered in Windows.  Try using Regsvr32.

 

http://stackoverflow.com/questions/4897685/how-do-i-register-a-dll-on-windows-7-64-bit

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Friday, November 29, 2013 5:45 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 



Hi, I am trying to use Skype4COM api to handle my callings in access database. and i have done all the proper .dll registrations and object referencing. However, each time the compiler gets to the line: 'Set oskype = CreateObject("Skype4COM.Skype")', it gives me  the '429' run time error- no matter whatever way - declare the object. I am using MS Access 2013, both 64-bits.  here below is  a sample of my code. I ran out of possible troubleshooting ideas on what may cause this run-time error. thank you in advance, Beatricz
Private Sub Call_Click()


Set oskype = CreateObject("Skype4COM.Skype")


If Not oskype.Client.IsRunning Then
oskype.Client.Start
End If


Set oUser = oskype.User("User1")

Set oCall = oskype.PlaceCall(me.Number)



End Sub





__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)
Recent Activity:
.

__,_._,___

RE: RE: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 

Hi John.

I did have an object reference in vba through tool menu.As you suggested,  I've checked on regedit and the library is there with a key.

The problem is two-fold: First of all, I cannot declare and compile successfully with 'Skype4COM.Skype;- it tells me that 'user-defined type not define' message even though Skype4COM is properly referenced and registered. Second of all, when I declare with 'Skype4COMLib.Skype', it compiles just fine and the objects show in the vba intellisense, however, i get the run-time error 429. 


the following code-declare, compile successfully and objects are visible in intellisense but it  gives me the run-time error '429'


  Dim oSkype As SKYPE4COMLib.Skype

    Dim oCall As SKYPE4COMLib.Call

    Dim oCon As SKYPE4COMLib.Conference

 

Set oSkype = New SKYPE4COMLib.Skype 


If Not oSkype.Client.IsRunning Then

oSkype.Client.Start

End If


this code does't declare and compile successfully and gives me the message 'user-defined type not defined':
    Dim objSkype As Skype4Com.Skype
     
    Set objSkype = New Skype4Com.Skype

it tells me that 'user-defined type not defined'

What else, in your opinion, could be done to overcome this hurdle?
Thanks,
Beatricz

---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote:

Beatrice-

 

For VBA to be able to "see" an object like "Skype4COM.Skype", the dll must be registered in Windows.  Try using Regsvr32.

 

http://stackoverflow.com/questions/4897685/how-do-i-register-a-dll-on-windows-7-64-bit

 

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

 

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Friday, November 29, 2013 5:45 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object

 




Hi, I am trying to use Skype4COM api to handle my callings in access database. and i have done all the proper .dll registrations and object referencing. However, each time the compiler gets to the line: 'Set oskype = CreateObject("Skype4COM.Skype")', it gives me  the '429' run time error- no matter whatever way - declare the object. I am using MS Access 2013, both 64-bits.  here below is  a sample of my code. I ran out of possible troubleshooting ideas on what may cause this run-time error. thank you in advance, Beatricz
Private Sub Call_Click()


Set oskype = CreateObject("Skype4COM.Skype")


If Not oskype.Client.IsRunning Then
oskype.Client.Start
End If


Set oUser = oskype.User("User1")

Set oCall = oskype.PlaceCall(me.Number)



End Sub



__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)
Recent Activity:
.

__,_._,___

RE: [MS_AccessPros] Formating question

 

Bryan-

Ah, yes. If you reference the value in a control in a footer or header, the
values will be those in the first row displayed on the page.

Good to know you figured it out!

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bryan
Sent: Saturday, November 30, 2013 4:01 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Formating question

Ok - I found the issue......The controls were on the report, but in the
report footer (sized 0.002" wide, 0.002" high), not the details. So what
appears was happening is that the values were set by the first row that was
loaded.

As soon as I moved the controls up to the detail section, the formatting
started to work as expected.

Thanks for your time in looking at my issue.

B

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Duane Hookom
Sent: Friday, November 29, 2013 3:45 PM
To: Access Professionals Yahoo Group
Subject: RE: [MS_AccessPros] Formating question

I think you need to move this line:
   Me.[_Site Visit].FontUnderline = False to just after the first Else.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim
Flag As Integer Dim k As Date

'Set Occured or Past Status
g = Code   'project code for test tracking Flag = Site_Visit_Occured If
Me.Site_Visit_Occured Then
    Me.[_Site Visit].FontUnderline = True Else
    Me.[_Site Visit].FontUnderline = False
    If Me.[_Site Visit] <> "N/A" Then
        k = Me.[_Site Visit]
        If k < Date Then
            Me.[_Site Visit].FontBold = True
        Else
            Me.[_Site Visit].FontBold = False
        End If
    End If
End If

End Sub

Duane Hookom MVP
MS Access

________________________________
> To: MS_Access_Professionals@yahoogroups.com
> From: JohnV@msn.com
> Date: Fri, 29 Nov 2013 21:30:46 +0100
> Subject: RE: [MS_AccessPros] Formating question
>
>
>
>
> Bryan-
>
>
>
> You should be able to single step through the code (open the Debug
> toolbar to help) to see if it is processing each record individually.
> When you're halted in the code, you can go to the Debug window
> (CTRL+G) to query the key values of the row.
>
>
>
> ?Me.ID
>
>
>
> .. for example.
>
>
>
> John Viescas, Author
>
> Microsoft Access 2010 Inside Out
>
> Microsoft Access 2007 Inside Out
>
> Microsoft Access 2003 Inside Out
>
> Building Microsoft Access Applications
>
> SQL Queries for Mere Mortals
>
> http://www.viescas.com/
>
> (Paris, France)
>
>
>
>
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bryan
> Sent: Friday, November 29, 2013 9:02 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: RE: [MS_AccessPros] Formating question
>
>
>
>
>
>
> John,
>
> I removed the conditional formatting to make sure it was not interfering.
>
>
>
> I wanted to move it to the code for 2 reasons, 1) learning process, 2)
> keep all the formatting codes in one place – there are other changes
> done (mainly background color) to the row based upon specific
> conditions.
>
>
>
> The only thing that I can think of is the row that seems to control
> the underlining has a lower ID – unless the original designer hid
> something on the form itself…
>
>
>
> Thanks,
>
> B
>
>
>
> From:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John
> Viescas
> Sent: Friday, November 29, 2013 1:41 PM
> To:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> Subject: RE: [MS_AccessPros] Formating question
>
>
>
>
>
> Bryan-
>
>
>
> If you still have Conditional Formatting active, that could be
> interfering. If it was working in Conditional Formatting, why do you
> want to try to do it in code?
>
>
>
> John Viescas, Author
>
> Microsoft Access 2010 Inside Out
>
> Microsoft Access 2007 Inside Out
>
> Microsoft Access 2003 Inside Out
>
> Building Microsoft Access Applications
>
> SQL Queries for Mere Mortals
>
> http://www.viescas.com/
>
> (Paris, France)
>
>
>
>
>
>
>
> From:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bryan
> Sent: Friday, November 29, 2013 6:13 PM
> To:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> Subject: RE: [MS_AccessPros] Formating question
>
>
>
>
>
>
>
> John,
>
> I have a break in the code on the "If Me.Site_Visit_Occured Then" line
>
>
>
> I can see that the Flag follows the first record, not the individual
records.
>
>
>
> It's bugging me cause I cannot find where the field gets "locked" at.
>
>
>
> Could there be something on the design page that is controlling it?
>
>
>
> Thanks,
>
> B
>
>
>
> From:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John
> Viescas
> Sent: Friday, November 29, 2013 11:47 AM
> To:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> Subject: RE: [MS_AccessPros] Formating question
>
>
>
>
>
> Bryan-
>
>
>
> The Format event should fire for each record in the Detail section, so
> each record should be handled individually. You could try putting a
> halt in your code at the beginning, then switch to Print Preview and
> single step through the code to see what it is actually doing.
>
>
>
> By the way, I prefer using variable names that make it clear the
> declared data type. I would have used:
>
>
>
> Dim intFlag As Integer, datK As Date
>
>
>
> This isn't too important for a short bit of code, but it sure helps
> when you've written a long procedure and encounter on the 50th line or
> so something like:
>
>
>
> k = Me.[_Site Visit]
>
>
>
> It's much clearer that you're dealing with a date value if it reads:
>
>
>
> datK = Me.[_Site Visit]
>
>
>
> John Viescas, Author
>
> Microsoft Access 2010 Inside Out
>
> Microsoft Access 2007 Inside Out
>
> Microsoft Access 2003 Inside Out
>
> Building Microsoft Access Applications
>
> SQL Queries for Mere Mortals
>
> http://www.viescas.com/
>
> (Paris, France)
>
>
>
>
>
>
>
> From:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bryan
> Sent: Friday, November 29, 2013 5:27 PM
> To:
>
MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoo
groups.com>
> Subject: [MS_AccessPros] Formating question
>
>
>
>
>
>
>
>
> Hello again…..
>
> I'm now trying to "teach" myself some formatting on a report.
>
> The previous creator of the report used a mix of vba and conditional
> formatting in the report.
>
> Short version:
>
> From the database, we have a project code, a site visit date and a
> site visit occured checkbox
>
> Using conditional formatting:
>
> 1) If the checkbox is checked, then the date is underlined.
>
> 2) If the date is yet to occur, no formatting.
>
> 3) If the date is past the current date, then the date is bold.
>
> In vba I have the bold part working, but the underline is not working.
> The current search query returns 2 records.
>
> What is happening is:
>
> 1) When record #1 is checked, both cells are underlined
>
> 2) When only record #2 is checked, no underlining at all
>
> 3) When both records are checked, both cells are underlined
>
> Trying to figure out why record #2 won't underline when it is the only
> one checked?
>
> This is what I have so far –
>
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
>
> Dim Flag As Integer
>
> Dim k As Date
>
>
>
> 'Set Occured or Past Status
>
> g = Code 'project code for test tracking
>
> Flag = Site_Visit_Occured
>
> If Me.Site_Visit_Occured Then
>
> Me.[_Site Visit].FontUnderline = True
>
> Else
>
> If Me.[_Site Visit] <> "N/A" Then
>
> k = Me.[_Site Visit]
>
> If k < Date Then
>
> Me.[_Site Visit].FontBold = True
>
> Else
>
> Me.[_Site Visit].FontUnderline = False
>
> Me.[_Site Visit].FontBold = False
>
> End If
>
> End If
>
> End If
>
>
>
> End Sub
>
> Thanks
>
> B
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

------------------------------------

Yahoo Groups Links

------------------------------------

Yahoo Groups Links

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (9)
Recent Activity:
.

__,_._,___