Jumat, 01 Mei 2015

[MS_AccessPros] Re: Happy Friday!

 

So Phucon and I are chopped liver?


Just kidding. Happy Friday to you, too, Liz.
-Bill


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

I noticed it is empty discussion today so am hoping everyone is off having  a beautiful weekend!

 

Respectfully,

Liz Ravenwood

Programmer / Analyst

B/E Aerospace | Super First Class Environments

 

1851 S Pantano Road | Tucson, Arizona 85710

Office +1.520.239.4808 |

beaerospace.com

Passion to Innovate. Power to Deliver

 



This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

__._,_.___
Posted by: wrmosca@comcast.net
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (2)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Happy Friday!

 

I noticed it is empty discussion today so am hoping everyone is off having  a beautiful weekend!

 

Respectfully,

Liz Ravenwood

Programmer / Analyst

B/E Aerospace | Super First Class Environments

 

1851 S Pantano Road | Tucson, Arizona 85710

Office +1.520.239.4808 |

beaerospace.com

Passion to Innovate. Power to Deliver

 



This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

__._,_.___
Posted by: Liz Ravenwood <Liz_Ravenwood@beaerospace.com>
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (1)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Re: Export Data to Excel

 

Phucon


Take a look at this thread:

Regards,
Bill Mosca, Founder - MS_Access_Professionals
http://www.thatlldoit.com
Microsoft Office Access MVP
http://mvp.microsoft.com/en-us/mvp/Bill%20Mosca-35852
My nothing-to-do-with-Access blog
http://wrmosca.wordpress.com

 




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

 I have a function (I copied it from a book) which I have been using for exporting data to Excel. It's been working perfectly fine until recently the error "-2147319779 Automation error Library not registered." popped up each time when the Export Button was clicked. It happens on every Access application that uses this function.

 

The IT people had done something to the Microsoft Office Suite, I was wondering if that's the cause? Is this an easy fix and How?


Phucon

 

Function SendRecordset()
On Error GoTo ErrorHandler

Set xl = New Excel.Application
Set xlwkbk = xl.Workbooks.Add
Set db = CurrentDb()
Set f = Forms!frmRunQuery

xl.Visible = True

xl.Application.DisplayAlerts = False    'suppress Excel's alerts

Select Case f!lstAsset
    Case "E or G than 1B"
        Call EorG1B
        xl.ActiveWorkbook.SaveAs FileName:= _
        CstrFilePathEorG1B, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Case "Less than 1B"
        Call Less1B
         xl.ActiveWorkbook.SaveAs FileName:= _
         CstrFilePathLess1B, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    Case ">=1Bil and <1Bil"
        Call Both
         xl.ActiveWorkbook.SaveAs FileName:= _
         CstrFilePathBoth, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    Case Else
        MsgBox Err.Number & vbCrLf & Err.Description
End Select

xl.Application.DisplayAlerts = True 'turn the warning back on

With xl
    .Sheets("Sheet1").Delete
    .Sheets("Sheet2").Delete
    .Sheets("Sheet3").Delete
End With
                      
ExitFunction:
'clean up
    Set rs = Nothing
    Set xl = Nothing
    Set xlwkbk = Nothing
    Set xlsheet = Nothing

    Exit Function

ErrorHandler:
    MsgBox Err.Number & vbCrLf & Err.Description
    Resume ExitFunction
    Resume
End Function


 

__._,_.___
Posted by: wrmosca@comcast.net
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (2)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Export Data to Excel

 

 I have a function (I copied it from a book) which I have been using for exporting data to Excel. It's been working perfectly fine until recently the error "-2147319779 Automation error Library not registered." popped up each time when the Export Button was clicked. It happens on every Access application that uses this function.

 

The IT people had done something to the Microsoft Office Suite, I was wondering if that's the cause? Is this an easy fix and How?


Phucon

 

Function SendRecordset()
On Error GoTo ErrorHandler

Set xl = New Excel.Application
Set xlwkbk = xl.Workbooks.Add
Set db = CurrentDb()
Set f = Forms!frmRunQuery

xl.Visible = True

xl.Application.DisplayAlerts = False    'suppress Excel's alerts

Select Case f!lstAsset
    Case "E or G than 1B"
        Call EorG1B
        xl.ActiveWorkbook.SaveAs FileName:= _
        CstrFilePathEorG1B, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Case "Less than 1B"
        Call Less1B
         xl.ActiveWorkbook.SaveAs FileName:= _
         CstrFilePathLess1B, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    Case ">=1Bil and <1Bil"
        Call Both
         xl.ActiveWorkbook.SaveAs FileName:= _
         CstrFilePathBoth, FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    Case Else
        MsgBox Err.Number & vbCrLf & Err.Description
End Select

xl.Application.DisplayAlerts = True 'turn the warning back on

With xl
    .Sheets("Sheet1").Delete
    .Sheets("Sheet2").Delete
    .Sheets("Sheet3").Delete
End With
                      
ExitFunction:
'clean up
    Set rs = Nothing
    Set xl = Nothing
    Set xlwkbk = Nothing
    Set xlsheet = Nothing

    Exit Function

ErrorHandler:
    MsgBox Err.Number & vbCrLf & Err.Description
    Resume ExitFunction
    Resume
End Function

__._,_.___
Posted by: saigonf7q5@yahoo.com
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (1)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Re: A little table strategy

 

A separate table would make more work for you. When you need to include both sets you would have to use a UNION query. It might be best to add a bit (Yes/No) field to the existing table to indicate a RegVoter and use a made-up key.


Or what about this? use an AutoNumber as the primary key and keep the Reg ID. That way you can use the Reg ID as an indicator of a registered voter. Make the index on the Reg ID unique and ignore nulls.

Regards,
Bill Mosca, Founder - MS_Access_Professionals
http://www.thatlldoit.com
Microsoft Office Access MVP
http://mvp.microsoft.com/en-us/mvp/Bill%20Mosca-35852
My nothing-to-do-with-Access blog
http://wrmosca.wordpress.com

 

__._,_.___
Posted by: wrmosca@comcast.net
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (2)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[belajar-access] File - Tata Tertib dan Aturan.txt

 


Tata tertib dan peraturan
Mailing List: belajar-access@yahoogroups.com

1. Mailing list ini membahas mengenai pemrograman Microsoft Access.
2. Tidak diperkenankan mem-posting topik yang tidak ada kaitannya sama sekali dengan pemrograman MS Access, peluang kerja atau tawaran kerja sama dengan keahlian di bidang MS Access, atau pengajaran/kursus MS Acces. Pelanggaran terhadap aturan ini akan di-ban dari keanggotaan milis ini.
3. Mohon berdiskusi dengan baik, dengan semangat membangun, demi kemajuan kita bersama. Hindarilah perbantahan (flame) yang bisa menjadi pertengkaran yang tidak perlu.
4 Hindari reply permintaan one-liner seperti 'saya minta juga dong', 'saya setuju', dan lain-lain yang tidak perlu.
5. Sedapat mungkin memberikan data-data yang lengkap dalam mengajukan suatu masalah untuk memudahkan rekan-rekan sesama member mengidentifikasi dan mencarikan solusi, termasuk memberikan subject yang sesuai dengan isi email, tidak dengan kata-kata seperti "tologing dong", "pusing...", "ada yang bisa bantu..", dll.

Moderator

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

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[AccessDevelopers] File - Monthly_Notices.txt

 


Monthly notices:

Hi Kids!:

Don't forget to check out our "Links" section at the website for helpful sites. Also take a peek at books that others have found worthwhile in our books database under the 'Database' link of the main AccessDevelopers page. Feel free to add any books or links that you have found useful.

__._,_.___
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (130)

Please zip all files prior to uploading to Files section.

.

__,_._,___
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)