Jumat, 28 Februari 2014

Re: [belajar-access] Aplikasi untuk gudang proyek-proyek konstruksi .

 

Assalamualaikum.

Mohon maaf sebelumnya. Saya sama sekali baru belajar MS Access. Boleh tau alasan para senior disini menggunakan MS Access sbg front end - dan Database lain sbg database nya. Krn MS Access jg kan database ? Apakah alasan kapasitas atau apa ya ?

Wassalam.

Powered by paid monthly bills®

From: ivan <ivan_deathlover@mindless.com>
Sender: belajar-access@yahoogroups.com
Date: Sat, 01 Mar 2014 15:13:07 +0900
To: <belajar-access@yahoogroups.com>
ReplyTo: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Aplikasi untuk gudang proyek-proyek konstruksi . [1 Attachment]

 

Mas Hariyanto , 

Terima kasih atas perhatian dan sarannya ... baik, saya akan coba mulai seperti saran mas Hariyanto, muda2han diberi kekuatan dalam mencari jalan keluar, dan mungkin akan meramaikan milis dengan pertanyaan2 sepele, mohon maaf sebelumnya . :-) 

saya attach kemarin tapi entah kenapa tidak bisa, saya lampirkan lagi diatas, mungkin karena jaringan dsini parah, maklum di kirim dari tengah hutan.

Salam_Hangat
Ivan.   

On 27/02/2014 8:53, hari yanto wrote:
 

Mas Ivan...,

Lampirannya ketinggalan ya....?

Lebih baik Ms Acces diletakkan sebagai FE (interface), sedangkan database bisa memakai MsQl, MySql, atau database lainnya.

Hariyanto (Surabaya)

--------------------------------------------
On Thu, 27/2/14, ivan_deathlover@mindless.com <ivan_deathlover@mindless.com> wrote:

Subject: [belajar-access] Aplikasi untuk gudang proyek-proyek konstruksi .
To: belajar-access@yahoogroups.com
Date: Thursday, 27 February, 2014, 1:29 AM
Dear Suhu - suhu Access , Perkenalkan
nama saya ivan , orang yang baru kemarin sore kenal access (
dan suka bermimpi :D ) .apabila saya ingin
membuat aplikasi untuk kami di kantor dengan kebutuhan
: *kurang lebih 10000 item
barang.*20 orang online pada saat bersamaan ( LAN
).apakah harus dipenuhi dengan FE access dan BE
SQL server ?atau bisa dengan Access saja? 
saya lampirkan yang telah saya buat ( mohon untuk
tidak di ketawain ....hehe... :-))saya ingin
belajar dan membuat ulang dari awal tapi minta sarannya dari
suhu-suhu, bagusnya saya belajar buat dari awal langsung
Access-SqlServer atau harus belajar dasar-dasar Access
lainnya .  . 
Terima kasih sebelumnya . dan
mohon maaf karena saya tak tahu diri ( berkemampuan cetek
tapi suka bermimpi besar ) :-) . 
salam hangat.ivan



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

__,_._,___

Re: [belajar-access] Aplikasi untuk gudang proyek-proyek konstruksi . [1 Attachment]

 
[Attachment(s) from ivan included below]

Mas Hariyanto , 

Terima kasih atas perhatian dan sarannya ... baik, saya akan coba mulai seperti saran mas Hariyanto, muda2han diberi kekuatan dalam mencari jalan keluar, dan mungkin akan meramaikan milis dengan pertanyaan2 sepele, mohon maaf sebelumnya . :-) 

saya attach kemarin tapi entah kenapa tidak bisa, saya lampirkan lagi diatas, mungkin karena jaringan dsini parah, maklum di kirim dari tengah hutan.

Salam_Hangat
Ivan.   

On 27/02/2014 8:53, hari yanto wrote:
 

Mas Ivan...,

Lampirannya ketinggalan ya....?

Lebih baik Ms Acces diletakkan sebagai FE (interface), sedangkan database bisa memakai MsQl, MySql, atau database lainnya.

Hariyanto (Surabaya)

--------------------------------------------
On Thu, 27/2/14, ivan_deathlover@mindless.com <ivan_deathlover@mindless.com> wrote:

Subject: [belajar-access] Aplikasi untuk gudang proyek-proyek konstruksi .
To: belajar-access@yahoogroups.com
Date: Thursday, 27 February, 2014, 1:29 AM
Dear Suhu - suhu Access , Perkenalkan
nama saya ivan , orang yang baru kemarin sore kenal access (
dan suka bermimpi :D ) .apabila saya ingin
membuat aplikasi untuk kami di kantor dengan kebutuhan
: *kurang lebih 10000 item
barang.*20 orang online pada saat bersamaan ( LAN
).apakah harus dipenuhi dengan FE access dan BE
SQL server ?atau bisa dengan Access saja? 
saya lampirkan yang telah saya buat ( mohon untuk
tidak di ketawain ....hehe... :-))saya ingin
belajar dan membuat ulang dari awal tapi minta sarannya dari
suhu-suhu, bagusnya saya belajar buat dari awal langsung
Access-SqlServer atau harus belajar dasar-dasar Access
lainnya .  . 
Terima kasih sebelumnya . dan
mohon maaf karena saya tak tahu diri ( berkemampuan cetek
tapi suka bermimpi besar ) :-) . 
salam hangat.ivan



__._,_.___

Attachment(s) from ivan | View attachments on the web

1 of 1 File(s)

Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (4)
SPAM IS PROHIBITED
.

__,_._,___

Re: [MS_AccessPros] RE: Query not updateable

 

Thanks Bill,

Your plan did not work but this did:

SELECT tClubPostHolders.MemberID, tClubPostHolders.ClubPostID, tClubPostHolders.YearID, tClubPostHolders.ClubID, tClubPostHolders.LastUpdated, tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID = tClubPostHolders.YearID
WHERE (((tRotaryYear.YearStart)>"29/06/" & Year(DateAdd("m",-6,Date())) And (tRotaryYear.YearStart)<"29/06/" & Year(DateAdd("m",+6,Date()))))
ORDER BY tClubPostHolders.ClubPostID;

Just luck on my part. I'd like to know why'

Cheers,

Robin

At 1/03/2014 09:58 AM, you wrote:


Robin
I'm not sure but it might be because of the tRotaryYear.YearStart in the SELECT clause. Try taking it out to see if that makes the query updateable.

Bill


---In MS_Access_Professionals@yahoogroups.com, <robinski@mymail.net.au> wrote:

I am using Access 2013 on a Win7 system. Our database is on a remote server.

In the past group members have helped my with my club membership
database. We have a fiscal year which starts on 1st July.

The result has been two queries to show "Post Holders" next fiscal
year and this fiscal year.

This to give "Next Fiscal Year"

SELECT tClubPostHolders.MemberID, tClubPostHolders.ClubPostID,
tClubPostHolders.YearID, tClubPostHolders.ClubID,
tClubPostHolders.LastUpdated, tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE (((tRotaryYear.YearStart)>"29/06/" & Year(DateAdd("m",+6,Date()))))
ORDER BY tClubPostHolders.ClubPostID;

This to give "This Fiscal Year"

SELECT DISTINCT tClubPostHolders.ClubPostID,
tClubPostHolders.MemberID, tClubPostHolders.YearID,
tClubPostHolders.ClubID, tRotaryYear.YearStart,
tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE
(((tRotaryYear.YearStart)=IIf(Month(Date())>=7,DateSerial(Year(Date()),7,1),DateSerial(Year(Date())-1,7,1))));

These worked as planned. We have now progressed to giving club
secretaries access to add and edit records. I find that the "Next
Year" query can take adds and edits but the "This Year" is not updateable.

Can I fix that?

Many thanks,

Robin Chapple


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

__,_._,___

[MS_AccessPros] Query Not updateable

 

I am using Access 2013 on a Win7 system. Our database is on a remote server.

In the past group members have helped my with my club membership
database. We have a fiscal year which starts on 1st July.

The result has been two queries to show "Post Holders" next fiscal
year and this fiscal year.

This to give "Next Fiscal Year"

SELECT tClubPostHolders.MemberID, tClubPostHolders.ClubPostID,
tClubPostHolders.YearID, tClubPostHolders.ClubID,
tClubPostHolders.LastUpdated, tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE (((tRotaryYear.YearStart)>"29/06/" & Year(DateAdd("m",+6,Date()))))
ORDER BY tClubPostHolders.ClubPostID;

This to give "This Fiscal Year"

SELECT DISTINCT tClubPostHolders.ClubPostID,
tClubPostHolders.MemberID, tClubPostHolders.YearID,
tClubPostHolders.ClubID, tRotaryYear.YearStart,
tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE
(((tRotaryYear.YearStart)=IIf(Month(Date())>=7,DateSerial(Year(Date()),7,1),DateSerial(Year(Date())-1,7,1))));

These worked as planned. We have now progressed to giving club
secretaries access to add and edit records. I find that the "Next
Year" query can take adds and edits but the "This Year" is not updateable.

Can I fix that?

Many thanks,

Robin Chapple

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

__,_._,___

[MS_AccessPros] printing to a text file over VPN - split database

 

    Open "C:/ListIPAllocation.txt" For Output As #1
this is failing with error: Bad file name or number.
can i specify that i want to print this file on the front end computer not the back end computer?

 
."The only real mistake is the one from which we learn nothing."     
       John Powell (1834-1902)
"Patience is the companion of wisdom." 
        Saint Augustine (354 AD - 430 AD)
"Success is the ability to go from one failure
               to another with no loss of enthusiasm."

       Sir Winston Churchill (1874 - 1965)

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

__,_._,___

RE: [MS_AccessPros] Last Receipt with Vendor

 

Hi Doyce

 

Not away – just enjoying a leisurely Saturday morning swim at the beach with the dog, followed by a late breakfast with the cryptic crossword puzzle :-)

 

From your table and field descriptions, your substitutions should be as follows:

 

[PO Receipts PK] == RECNUM_55

Parts == [PART MASTER]

PRTNUM == PRTNUM_01

 

Don't worry about PRTNAME – I was just demonstrating that you can include other fields from [PART MASTER] (e.g. the part name or price) in the query.

 

Given these substitutions, your query should look like this:

 

  SELECT
    p.PRTNUM_01,
    (SELECT TOP 1 v.VENID_55
     FROM [PO Receipts] AS v
     WHERE v.PRTNUM_55=p.PRTNUM
     ORDER BY v.TNXDTE_55 DESC, v.RECNUM_55)
    AS LastVendor
  FROM [PART MASTER] AS p
  ORDER BY p.PRTNUM_01;

 

I assume that you have a one-to-many relationship between PRTNUM_01 and PRTNUM_55, and that both fields are indexed.  You should also have indexes on VENID_55 and TNXDTE_55, otherwise performance will suffer badly.

 

Best wishes,

Graham

 

PS: To include the preceding messages in your reply in a web post, I think you click on "Show message history"

 

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of winberry.doyce@roadsysinc.com
Sent: Saturday, 1 March 2014 10:52
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Last Receipt with Vendor

 

 

Graham must be away. Perhaps someone else can jump in.

I've come up with this query but It's been running for 2 hours and still says "running query" at the bottom and I've gotten no results. That won't work.

SELECT [PO Receipts].TNXDTE_55, [PO Receipts].RECNUM_55, [PO Receipts].PRTNUM_55, [PO Receipts].VENID_55, [Vendor Master].COMNAM_08
FROM [PO Receipts] INNER JOIN [Vendor Master] ON [PO Receipts].VENID_55 = [Vendor Master].VENID_08
WHERE ((([PO Receipts].PRTNUM_55)=(SELECT TOP 1 Dupe.VENID_55
FROM [PO Receipts] AS Dupe
WHERE (((Dupe.PRTNUM_55)=[PO Receipts].PrtNum_55))
ORDER BY Dupe.TNXDTE_55 DESC , Dupe.RECNUM_55)))
ORDER BY [PO Receipts].TNXDTE_55 DESC, [PO Receipts].RECNUM_55;
Perhaps someone can help.

And why are my messages not showing the whole thread? I'm replying via web post.

Doyce



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

Graham,

Thanks for the reply. First of all, the tables come from my ERP software. I do believe they are normalized. For their naming convention, every table has its own unique suffix but the first part is the same, for example PRTNUM_01 is the part number in the Part Master table. It is the same as PRTNUM_55 except that the _55 suffix refers to the PO Receipts table. That being said, I'm learning something new here. I've never used a subquery before. I've got the first query to run but I'm having trouble with the second query. The PK for the PO Receipts table is RECNUM_55. First question, Does "Parts" mean my [Part Master] table? What does PRTNAME refer to?  The suffixes for the Part Master table is _01 so should the query be:

(SELECT p.PRTNUM_01, p.PRTNAME_01
    (SELECT TOP 1 v.VENID_55
     FROM [PO Receipts] AS v
     WHERE v.PRTNUM_55=p.PRTNUM_01
     ORDER BY v.TNXDTE_55 DESC, v.[RECNUM_55])
    AS LastVendor
  FROM [PART MASTER] AS p
  ORDER BY p.PRTNUM_01)

 

Doyce

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

__,_._,___

[belajar-access] Set focus di macro access

 

Dear all,
Mau nanya..apakah fungsi set fokus field ad dimacro access?sebenarnya saya bsa memakai coding vba nya ttapi saya lebih suka mnggunakan macro krena praktis,apakah ad yg bsa mmbntu saya?
Thnks

Dikirim dari Yahoo Mail pada Android

__._,_.___
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: How do I display a label caption only when the text box has a value (not null).

 

Hello Bill

I tried it, however it doesn't changed. I put a breakpoint at the group footer's Format event, why does it never break. It only happened (break) 1 time, and I forget how I triggered it.

Private Sub GroupFooter3_Format(Cancel As Integer, FormatCount As Integer)

Me.lblTotal.Visible = Not IsNull(Me.txtTotal)

End Sub

I found this if statement sytax "If Me.txtTotal & "" = "" Then" in an VBA book (Programmer's Referene), it is for Checking for Nulls, and it says it's this technique uses the concatenation behavior of the & operator and is the same as " If IsNull(Me.txtTotal) or Me.txtTotal = "" Then"

Phucon


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

__,_._,___

[MS_AccessPros] RE:

 

Robin

I'm not sure but it might be because of the tRotaryYear.YearStart in the SELECT clause. Try taking it out to see if that makes the query updateable.

Bill


---In MS_Access_Professionals@yahoogroups.com, <robinski@mymail.net.au> wrote:

I am using Access 2013 on a Win7 system. Our database is on a remote server.

In the past group members have helped my with my club membership
database. We have a fiscal year which starts on 1st July.

The result has been two queries to show "Post Holders" next fiscal
year and this fiscal year.

This to give "Next Fiscal Year"

SELECT tClubPostHolders.MemberID, tClubPostHolders.ClubPostID,
tClubPostHolders.YearID, tClubPostHolders.ClubID,
tClubPostHolders.LastUpdated, tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE (((tRotaryYear.YearStart)>"29/06/" & Year(DateAdd("m",+6,Date()))))
ORDER BY tClubPostHolders.ClubPostID;

This to give "This Fiscal Year"

SELECT DISTINCT tClubPostHolders.ClubPostID,
tClubPostHolders.MemberID, tClubPostHolders.YearID,
tClubPostHolders.ClubID, tRotaryYear.YearStart,
tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE
(((tRotaryYear.YearStart)=IIf(Month(Date())>=7,DateSerial(Year(Date()),7,1),DateSerial(Year(Date())-1,7,1))));

These worked as planned. We have now progressed to giving club
secretaries access to add and edit records. I find that the "Next
Year" query can take adds and edits but the "This Year" is not updateable.

Can I fix that?

Many thanks,

Robin Chapple

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

__,_._,___

[MS_AccessPros] RE: How do I display a label caption only when the text box has a value (not null).

 

Phucon

Try it this way:
Me.lblTotal.Visible = Not IsNull(Me.txtTotal)
And it should be in the group footer's Format section, not the Detail section.
I'm not sure why you were testing with an equal sign.
Bill Mosca


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

My report's  group footer has a label named "Total:" and a text box "txtTotal", which for displaying the sums of the [Amount] field in the detail line. The label "Total:" is visible on every group' footer even there's nothing (is null) to display. How do I display the label  "Total:" only when the text box has a value to show?

I tried this lines of code (F8, step through it), some how it executed at 1 time and it seems to work, then it's never run again. What is the correct way to do it?

Thank you

Phucon

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Me.txtTotal & "" = "" Then

     Me.lblTotal.Visible = False

Else

     Me.lblTotal.Visible = True

End If

End Sub

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

__,_._,___

[MS_AccessPros]

 

I am using Access 2013 on a Win7 system. Our database is on a remote server.

In the past group members have helped my with my club membership
database. We have a fiscal year which starts on 1st July.

The result has been two queries to show "Post Holders" next fiscal
year and this fiscal year.

This to give "Next Fiscal Year"

SELECT tClubPostHolders.MemberID, tClubPostHolders.ClubPostID,
tClubPostHolders.YearID, tClubPostHolders.ClubID,
tClubPostHolders.LastUpdated, tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE (((tRotaryYear.YearStart)>"29/06/" & Year(DateAdd("m",+6,Date()))))
ORDER BY tClubPostHolders.ClubPostID;

This to give "This Fiscal Year"

SELECT DISTINCT tClubPostHolders.ClubPostID,
tClubPostHolders.MemberID, tClubPostHolders.YearID,
tClubPostHolders.ClubID, tRotaryYear.YearStart,
tClubPostHolders.tblClubPostHoldersID
FROM tRotaryYear RIGHT JOIN tClubPostHolders ON tRotaryYear.YearID =
tClubPostHolders.YearID
WHERE
(((tRotaryYear.YearStart)=IIf(Month(Date())>=7,DateSerial(Year(Date()),7,1),DateSerial(Year(Date())-1,7,1))));

These worked as planned. We have now progressed to giving club
secretaries access to add and edit records. I find that the "Next
Year" query can take adds and edits but the "This Year" is not updateable.

Can I fix that?

Many thanks,

Robin Chapple

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

__,_._,___

RE: [MS_AccessPros] Last Receipt with Vendor

 

Graham must be away. Perhaps someone else can jump in.

I've come up with this query but It's been running for 2 hours and still says "running query" at the bottom and I've gotten no results. That won't work.

SELECT [PO Receipts].TNXDTE_55, [PO Receipts].RECNUM_55, [PO Receipts].PRTNUM_55, [PO Receipts].VENID_55, [Vendor Master].COMNAM_08
FROM [PO Receipts] INNER JOIN [Vendor Master] ON [PO Receipts].VENID_55 = [Vendor Master].VENID_08
WHERE ((([PO Receipts].PRTNUM_55)=(SELECT TOP 1 Dupe.VENID_55
FROM [PO Receipts] AS Dupe
WHERE (((Dupe.PRTNUM_55)=[PO Receipts].PrtNum_55))
ORDER BY Dupe.TNXDTE_55 DESC , Dupe.RECNUM_55)))
ORDER BY [PO Receipts].TNXDTE_55 DESC, [PO Receipts].RECNUM_55;
Perhaps someone can help.

And why are my messages not showing the whole thread? I'm replying via web post.

Doyce



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

Graham,

Thanks for the reply. First of all, the tables come from my ERP software. I do believe they are normalized. For their naming convention, every table has its own unique suffix but the first part is the same, for example PRTNUM_01 is the part number in the Part Master table. It is the same as PRTNUM_55 except that the _55 suffix refers to the PO Receipts table. That being said, I'm learning something new here. I've never used a subquery before. I've got the first query to run but I'm having trouble with the second query. The PK for the PO Receipts table is RECNUM_55. First question, Does "Parts" mean my [Part Master] table? What does PRTNAME refer to?  The suffixes for the Part Master table is _01 so should the query be:

(SELECT p.PRTNUM_01, p.PRTNAME_01
    (SELECT TOP 1 v.VENID_55
     FROM [PO Receipts] AS v
     WHERE v.PRTNUM_55=p.PRTNUM_01
     ORDER BY v.TNXDTE_55 DESC, v.[RECNUM_55])
    AS LastVendor
  FROM [PART MASTER] AS p
  ORDER BY p.PRTNUM_01)

 

Doyce

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

__,_._,___

[MS_AccessPros] How do I display a label caption only when the text box has a value (not null).

 

My report's  group footer has a label named "Total:" and a text box "txtTotal", which for displaying the sums of the [Amount] field in the detail line. The label "Total:" is visible on every group' footer even there's nothing (is null) to display. How do I display the label  "Total:" only when the text box has a value to show?

I tried this lines of code (F8, step through it), some how it executed at 1 time and it seems to work, then it's never run again. What is the correct way to do it?

Thank you

Phucon

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Me.txtTotal & "" = "" Then

     Me.lblTotal.Visible = False

Else

     Me.lblTotal.Visible = True

End If

End Sub

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

__,_._,___