ตัวอย่างการเข้าถึง

ปรับปรุงระบบการขาย

เสาร์ 16 ตุลาคม, 2010 |

หลังจากที่เวลาโดยไม่มีการปรับปรุงบล็อกของบางอย่างผมก็มีเวลาบางส่วนเพื่อปรับปรุงระบบการขาย ผู้อ่านหลายคนไม่สามารถเข้าได้เนื่องจากรหัสผ่านเข้าสู่ระบบการถาม ดังนั้นฉันออกระบบเข้าสู่ระบบใช้งานง่าย
นอกเหนือจากการเปลี่ยนแปลงนี้ทำให้การเปลี่ยนแปลงต่อไปนี้:

V 0.5.0 (2010-08-19)
- ลบเ​​ข้าสู่ระบบและผู้ใช้
- ฟิลด์ที่เพิ่มเข้ามา (IVA ครอบครัวและความสามัคคี) ในตารางผลิตภัณฑ์
- ฉันสร้างตารางไม่รวมภาษีมูลค่าเพิ่ม
- แก้ไขรูปแบบสินค้า (เขตข้อมูลใหม่ให้ดู, วิธีใหม่ในการค้นหาระเบียน)
- ฉันสร้างครอบครัวตาราง (ของผลิตภัณฑ์)
- เปลี่ยนแปลงรูปแบบของการช้อปปิ้งจะถูกแทรกเพียงหนึ่งผลิตภัณฑ์ในเวลาที่ ฉันใส่ในรูปแบบของการจัดซื้อฟอร์มย่อยที่คุณสามารถป้อนผลิตภัณฑ์หลายที่ซื้อในผู้จัดจำหน่ายที่ได้รับ

ดาวน์โหลด: 2010 ยอดขาย

ความเห็นทั้งหมดในการปรับปรุงใหม่ในการแก้ไขปัญหาหรือเพิ่มคุณสมบัติ

ในอนาคตฉันคิดเกี่ยวกับการเปลี่ยนสถานที่จากที่มีการดาวน์โหลดของไฟล์เนื่องจากหากมีกิจกรรมในแฟ้มบางครั้งไฟล์จะถูกลบออก ดังนั้นผมจะแสวงหาทางเลือกเพื่อง่ายต่อหุ้นสำหรับการนี​​้จะไม่เกิดขึ้น

ในการโพสต์ต่อไปฉันจะใส่รุ่นของวิธีการคำนวณผลประโยชน์ที่คล้ายกับสิ่งที่มีอยู่แล้วที่นี่ในนี้ โพสต์ แต่แทนที่จะต้องชำระเงินรายเดือนสามารถเลือกจำนวนวันที่ elapsing ระหว่างแต่ละงวด ตัวอย่างนี้ยังจะให้บริการเพื่อตอบคำถามจากผู้อ่าน ( Marcelo )

โพสต์ใน ตัวอย่าง , รูปแบบ , ระบบที่สมบูรณ์ | 14 Comments »

วิธีการป้องกันแบบฟอร์มที่เปิดอยู่ถ้ามีระเบียนที่ไม่มีการแสดง?

เสาร์ 2 พฤษภาคม, 2009 |

บางครั้งก็เป็นสิ่งที่จำเป็นเพื่อป้องกันไม่ให้แบบฟอร์มที่เปิดอยู่ถ้ามีระเบียนที่ต้องการแสดงตัวอย่างเช่นเมื่อทำแบบสอบถามและการลงทะเบียนไม่ถูกไม่จำเป็นที่เราไม่จำเป็นต้องเป็นรูปแบบที่เปิดมาตั้งแต่เรามีข้อมูลที่จะแสดง ดังนั้นสิ่งที่เราต้องตรวจสอบว่ามีระเบียนที่จะแสดงและหากไม่มีการแสดงข้อความและขัดขวางการเปิดฟอร์ม ได้อย่างไร

มันง่ายที่จะเพียงแค่ใส่โค้ดด้านล่างในคุณสมบัติของฟอร์มในเหตุการณ์ 'เปิด':

= 0 แล้วถ้า Form.RecordsetClone.RecordCount
MsgBox "ระเบียนไม่พบ.", VbExclamation, "ผิดพ​​ลาด!"
DoCmd.Close acForm "ค้นหาข้อมูล"
Exit Sub
End If

เมื่อต้องการดูตัวอย่างดาวน์โหลด: แบบฟอร์มการป้องกันไม่ให้เปิด

โพสต์ใน ตัวอย่าง , รูปแบบ , Modules | 2 Comments »

วิธีการกำหนดให้การดำเนินการที่คีย์?

พฤหัสบดี 11 ธันวาคม, 2008 |

1 - การสร้างแบบฟอร์มสั่งซื้อในโครงสร้างและเหตุการณ์ 'คลิก' ต่อคุณสมบัติของฟอร์มใส่ต่อไปนี้: me.keypreview = true
นี้หรือจะทำกิจกรรมแป้นพิมพ์ที่ได้รับในรูปแบบแรก

2 - ในคุณสมบัติของฟอร์ม, 'ปุ่มด้านล่างเพื่อ' เหตุการณ์วางรหัสต่อไปนี้:

Form_KeyDown ตำบลเอกชน (keyCode As Integer, Shift As Integer)
เลือก keyCode กรณี
vbKeyF2 กรณี
DoCmd.OpenForm "Form1"
vbKeyF3 กรณี
DoCmd.OpenForm "Form2"
vbKeyF4 กรณี
DoCmd.OpenForm "formulario3"
vbKeyF5 กรณี
เป็นเครื่องคิดเลขมซำที่มีเตียงคู่
เครื่องคิดเลข = เชลล์ ("calc.exe", vbNormalFocus)
vbKeyF6 กรณี
DoCmd.Close
กรณีที่คนอื่น
END เลือก
ย่อยสิ้นสุด

สิ่งนี้จะเป็นดังต่อไปนี้:
- โดยการกดปุ่ม F2 เปิด Form1
- โดยการกดปุ่ม F3 เปิด Form2
- โดยการกดปุ่ม F4 เปิดformulário3
- โดยการกดปุ่ม F5 เปิดเครื่องคิดเลขของ Windows
- โดยการกดปุ่ม F6 ปิดฟอร์ม

นอกจาก F1 คีย์ฟังก์ชั่น F2 ... ฯลฯ เรายังสามารถใช้ใด ๆ ของปุ่มอื่น ๆ ให้ทำหน้าที่ แต่การรักษาในใจว่าถ้าหากเราจะป้อนข้อมูลในแบบฟอร์มไม่เหมาะที่จะใช้กุญแจที่ใช้ในการเขียนข้อมูลในเขตข้อมูล
สิ่งหนึ่งคือว่ามันจะทำงานเฉพาะในแบบฟอร์มที่คุณใส่โค้ดข้างต้น

ดาวน์โหลด: คีย์

โพสต์ใน ตัวอย่าง , รูปแบบ , Modules | 1 Comment »

เมนูที่กำหนดเอง

เสาร์ 20 กันยายน, 2008 |

นี่คือประเภทของเมนูที่ช่วยให้เราประหยัดเวลาสายรหัสและการจัดเรียงที่ดีกว่าในแง่ของรูปแบบที่เปิดมาตั้งแต่มีเมนูนี้ก็ต้องใช้แบบฟอร์มที่เปิดอยู่ นอกเหนือจากการลดจำนวนของรูปแบบที่เปิดยังลดจำนวนของปุ่มในเมนูเพื่อเปิดฟอร์มแต่ละ
ชนิดของเมนูนี้อย่างแน่นอนที่มีอยู่บางครั้งและมีอยู่แล้วมาใช้โดยผู้ใช้จำนวนมากการใช้งาน
ดังนั้นที่เมนูนี้คืออะไร?
Let 's สร้างเมนูโดยใช้กล่องคำสั่งผสมที่ประกอบด้วยรูปแบบทั้งหมดที่เราวางแผนที่จะเปิดผ่านมัน เมื่อคุณเลือกตัวเลือกจากกล่องคำสั่งผสมแบบฟอร์มใบสมัครจะปรากฏขึ้นภายในฟอร์มย่อย จากนั้นเราจะเริ่มต้นที่จะทำให้ขั้นตอนเมนูตามขั้นตอน

1 - Let 's สร้างตารางที่เราจะเก็บชื่อที่คุณต้องการให้แต่ละฟอร์มและชื่อของฟอร์มที่จะเปิด ในตัวอย่างผมสร้าง 'tblmenu' ตารางที่มีฟิลด์ต่อไปนี้:
ฟิลด์ชนิด
ข้อความ Nomedomenu - (กล่องคำสั่งผสม) ชื่อ> ที่จะเห็นในเมนู
ในรูปแบบข้อความ - ชื่อ> ของฟอร์มที่จะเปิด

หลังจากที่ข้อมูลที่นำมาใช้ในตัวอย่างคือ:

แบบฟอร์ม NomedoMenu

บัญชี Form1
เงินฝาก Form2
เคลื่อนไหว formulario3
บัญชี-Box formulario4
บัญชีบัญชี-formulario5
สารสกัดจาก formulario6

2 - จากนั้นเราสร้างแบบสอบถามจากตารางก่อนหน้านี้:
Tblmenu เลือกตารางแล้วเลือกสองช่องที่เราเลือกสำหรับ nomedomenu จากน้อยไปมากเรียงลำดับที่จะง่ายต่อการค้นหาเมนูที่ค่อนข้างไม่กี่ครั้งเมื่อเราต้องการเปิดฟอร์ม ในแบบสอบถามนี้ผมเรียกว่า 'CsMenu'

3 - Let 's สร้าง' เมนู 'รูปแบบคือเลือกรูปแบบใหม่ในมุมมองออกแบบ จากนั้นเราจะสร้างกล่องคำสั่งผสมและการเปลี่ยนแปลงคุณสมบัติดังต่อไปนี้:
จำนวนคอลัมน์ -: 2
- ความกว้างของคอลัมน์: 1cm, 0cm;
แหล่งกำเนิดของเส้น -: csmenu (ซึ่งเป็นชื่อของแบบสอบถามที่สร้างขึ้นในย่อหน้าก่อนหน้า)

4 - ในรูปแบบเดียวกันเราจะสร้างฟอร์มย่อยไม่ได้ผูกไว้รูปแบบหลักของ (ในตัวอย่างที่ผมเรียกว่า menuquadro) มันเป็นฟอร์มที่จะเปิดรับในแต่ละรูปแบบให้เลือกเมนู (กล่องคำสั่งผสม) นี้

5 - ตอนนี้สร้างโมดูลที่จะช่วยให้เราสามารถเปิดเมนูที่เลือกไว้ในกล่องคำสั่งผสมในฟอร์มย่อย
เราได้สร้างโมดูล (ซึ่งผมเรียกว่า 'abrirmenu') และวางรหัสต่อไปนี้:

AtivarMenu ฟังก์ชั่น (มหาชน Combmenu ComboBox, subabrir ฟอร์มย่อย)
Abrirform As String Dim
= abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
ฟังก์ชั่นเอนด์

หลังจากที่ไปถึงคุณสมบัติของกล่องคำสั่งผสมบนเมนูรูปแบบและหลังจากเหตุการณ์วันที่ปรับปรุงข้อมูลใส่ฟังก์ชั่นที่สร้าง: ativarmenu = ([เมนู], [menuquadro]) ที่ 'เมนู' คือชื่อของกล่องคำสั่งผสมและ 'menuquadro' ชื่อของฟอร์มย่อย

และสุดท้ายเมนูพร้อมใช้งาน เพียงแค่พยายามและใช้ ฉันหวังว่าคุณจะสนุกกับทิปนี้
ดาวน์โหลด: ที่เมนู

ข้างล่างเป็นรูปของเมนู

โพสต์ใน ตัวอย่าง , รูปแบบ , Modules | 12 Comments »

วัดช่วงเวลาใช้เวลาดำเนินการที่จะแทรกระเบียน

พฤหัสบดี 19 มิถุนายน, 2008 |

นี้ได้อย่างแน่นอนผู้เล่น Elton Rueb และเขายังมีการจัดการเพื่อแก้ปัญหาก่อนที่ผมจะช่วยคุณ สิ่งที่ผู้อ่านได้ตั้งใจที่จะวัดเวลาที่ใช้ในผู้ที่จะแทรกระเบียนและจะมีสามช่องหนึ่งสำหรับเวลาเริ่มต้นเมื่อมันเปิดฟอร์มเป็นครั้งแรกไปยังจุดสิ้นสุดที่ถูกแทรกเมื่อคุณคลิกที่ ปุ่มบันทึกและเขตข้อมูลในการคำนวณความแตกต่าง นี้เป็นตัวอย่างที่เรียบง่าย แต่อาจจะขาดไปยังผู้ที่ต้องการคำนวณความแตกต่างระหว่างสองเวลา ดังนั้น Elton Rueb (ริโอเดอจาเนโร - RJ - บราซิล) ให้ตัวอย่างที่จะช่วยให้คนอื่น

ดาวน์โหลด: เวลาในการทดสอบ

โพสต์ใน วันที่ , ตัวอย่าง , ตัวอย่างการโอน , นิพจน์ , แบบฟอร์ม , เวลา | 2 Comments »

ตอบคำถาม: วันที่จัดรูปแบบ

พฤหัสบดี 12 มิถุนายน, 2008 |

ผู้อ่าน Jacinto ใส่คำถาม ที่นี่ เกี่ยวกับวิธีการเปลี่ยนรูปแบบของวันที่ 12/06/2008 สำหรับ 2 0 0 8 0 6 1 2, การตอบสนองตามที่ได้อธิบายในความคิดเห็นเป็นง่ายๆเป็นกล่องข้อความด้วย ต่อไปนี้การแสดงออก:

รูปแบบ = ([ชื่อเขตข้อมูลวันที่], "เดือนวันปี")

และคุณสมบัติของเขตข้อมูลที่จะนำคำต่อไปนี้ในรูปแบบการป้อนข้อมูล: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0

สวยเรียบง่ายและใช้งานง่าย ทำตามตัวอย่างที่ให้ดาวน์โหลด: วันที่จัดรูปแบบ

โพสต์ใน วันที่ , ตัวอย่าง , นิพจน์ , Forms | 1 Comment »

ตัวอย่างของการจัดการผลประโยชน์

อังคารพฤษภาคม 6, 2008 |

ตัวอย่างนี้แสดงวิธีระบบการจัดการสำหรับการให้การชำระเงิน

ตัวอย่างแสดงให้เห็นว่านี้ไม่เป็นสร้างและโดยอัตโนมัติด้วยการคลิกปุ่มประโยชน์ของสัญญาซื้อขายผ่านข้อมูลที่ป้อน นั่นคือเราแนะนำชื่อของลูกค้าให้เป็นวันที่เริ่มต้นการทำสัญญาและจำนวนเงินทั้งหมดที่จ่าย จากนั้นเพียงคลิกที่ "ชำระเงินในการคำนวณ" ว่าสร้างโดยอัตโนมัติจากจำนวนงวดและแบ่งค่าที่ระบุโดยแต่ละของพวกเขาและคำนวณวันที่ของแต่ละงวด (หนึ่งต่อเดือน) นี้ยังเป็นตัวอย่างที่แสดงให้เห็นถึงวิธีการเพิ่มระเบียนหลายรายการพร้อมกันเพราะเมื่อคุณคลิกที่ปุ่มจะเพิ่มบันทึกเพื่อประโยชน์ในแต่ละ

ดาวน์โหลด: แทรกหลายระเบียน

โพสต์ใน วันที่ , ตัวอย่าง , แบบฟอร์ม , Modules , ประวัติ | 17 Comments »

เปลี่ยนสีพื้นหลังของช่องข้อความที่มีโฟกัส

อาทิตย์เมษายน 6, 2008 |

สำหรับผู้ที่ต้องการที่จะให้ผลแตกต่างกันในรูปแบบมากขึ้นโดยเฉพาะเมื่อเรากำลังเข้าสู่ข้อมูลเราสามารถเปลี่ยนสีของเขตข้อมูลที่เคอร์เซอร์ นั่นคือข้อมูลทั้งหมดที่ฟิลด์รายการที่อยู่ในสีขาวกว่าเขตที่เรากำลังเขียนที่เป็นสีอื่น

การทำเช่นนี้มันเป็นเรื่องง่ายมากเพียงเลือกเขตข้อมูลและเลือกสีพื้นหลังที่คุณต้องการให้ปรากฏเมื่อเคอร์เซอร์อยู่ในเขตนั้นเปลี่ยนสีเพื่อความโปร่งใส

ดาวน์โหลด: เปลี่ยนสีเขตข้อมูล

โพสต์ใน สี , ตัวอย่าง , แบบฟอร์ม | 10 Comments »

จุด

อังคาร 18 มีนาคม, 2008 |

ตามคำขอของผู้เล่น Joao Cabrita พัฒนารูปแบบของจุดควบคุมที่ใช้กับสถานีดับเพลิงมากขึ้นโดยเฉพาะเพื่อตอบสนองความต้องการของผู้อ่าน

มันเป็นตัวอย่างที่พื้นฐาน แต่มีรายละเอียดที่สูงขึ้นบางอย่างกับสิ่งที่มันมีจุดมุ่งหมายเพื่อให้การควบคุมของทางเข้าและทางออกของพนักงานตรวจสอบว่าทำงานกะ 12 ชั่วโมงและเพิ่มชั่วโมงการทำงานและชั่วโมงการทำงานเพื่อ น้อยลง

ทั้งหมดนี้สำหรับรายงานรายเดือนจากการเข้าร่วมของพนักงานแต่ละคน

ดาวน์โหลด: พอยต์

เขียน ให้คำปรึกษา , วันที่ , ตัวอย่าง , สำนวน , รูปแบบ , นาฬิกา , รายงาน | 9 Comments »

การป้อนข้อมูลระเบียนผ่านอิสระ

พุธกุมภาพันธ์ 20, 2008 |

มีหลายวิธีที่จะเข้าสู่การบันทึกเป็นและที่พบมากที่สุดคือการได้รับผ่านทางแบบฟอร์มผูกไว้กับตาราง วิธีการทำเช่นนี้ก็คือผ่านทางเขตข้อมูลที่ไม่เกี่ยวข้องเช่นการใช้แบบฟอร์มที่มีเขตข้อมูลที่เป็นอิสระไม่เกี่ยวข้องกับตาราง ไปยัง
ป้อนข้อมูลที่เราใช้ 'ระเบียน' คือรหัสซึ่งในกรณีของตัวอย่างนี้จะเป็นดังนี้:

DB มซำเป็นฐานข้อมูล
มซำ RS เป็น Recordset

ถ้า MsgBox ("คุณต้องการที่จะเขียน?" VbYesNoCancel, "ตัวเลือก") = vbYes แล้ว
"โดยการกดที่ถามว่าจะบันทึกระเบียนหรือไม่ถ้าดังนั้นรหัสต่อไปจนกว่าจะสิ้นสุด
ชุด db = CurrentDb ()
ชุด rs = db.OpenRecordset ("ข้อมูล", dbOpenTable)
'เปิดตารางเพื่อแทรกข้อมูลลงทะเบียน

rs.AddNew
RS ("ชื่อ") = Me! INome
RS ("ที่อยู่") = Me! Imorada
RS ("อายุ") = Me! Iidade
rs.Update 'ส่งข้อมูลไปยังตาราง
rs.Close 'ล้างข้อมูลและปิดระเบียน
ตั้งอาร์เอสไม่มีอะไร =
ตั้งฐานข้อมูลไม่มีอะไร =

Me.INome = Null 'ล้างเขตข้อมูลในรูปแบบ
Me.Imorada = Null
Me.Iidade = Null
MsgBox "บันทึกบันทึก", vbInformation, "เสร็จ" ข้อความยืนยัน 'จอแสดงผล
Me.INome.SetFocus 'เลื่อนเคอร์เซอร์ไปยังเขตข้อมูลแรก
Else: Sub Exit
End If

ดาวน์โหลด: Place อิสระ

โพสต์ใน ตัวอย่าง , รูปแบบ , Modules , ระเบียน , ตาราง | No Comments »