[belajar-access] Re: Contoh Access Versi Web

Ternyata tampilan versi Web , jika dijalankan di AccessHostng lebih cantik dibandingkan dijalankan dengan Access 2010.

Pada Access Hosting
1. Tampilan lebih rapih
2. Fungsi Scroll berjalan sesuai dengan Main Form
3. macro kadang tak berjalan pada Access Hostig , padahal di Loca ( Access 2010 ) berjalan .

Jadi lebih baik coba di publish di AccessHosting untuk menguji apakah berjalan sesuai harapan atau tidak

Mudah2 an ke depan :
1. ada sinkronisasi dan kompatibilitas yang akurat antara Lokal dan Access Hosting
2. Di tambah komponen dinamis :
2.1. Menampilkan Foto berupa tabel ( kolom dan baris, dan scroll
vertikal )
2.2. Menampilkan ringkasan Berita yang dapat bergulung secara
perlahan .
2.3. Menyisipkan SubForm yang bersifat dinamis, tinggi dapat
diatur . misal jika tak ada data , maka tingginya dapat diatur
nol ( 0 ) , sehingga tak tampil. jika ada data , baris tempat
meletakkan Sub Form dapat diatur sesuai tingi sub form

semua point diatas dapat dengan mudah berkat JQuery ( bagi pengguna PHP dan Javascript )

Saya mengharapkan Microsoft menyediakan sample aplikasi News yang dibuat dengan Access versi Web.

Selamat pagi !!

Salam sejaht

'
''

'=========

--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
>
> Ada satu kelemahan Form pada Web, adalah :
> tidak adanya scroll di kedua sisi , bila kita tidak memilih multi
> item. Jadi bila tak cukup di tampilkan ya bagian yang tak terlihat
> tidak dapat di jangkau
>
> Apa ada yang berhasil mengubah :
> WebBerita_1.accdb
> untuk kasus di atas ?
>
> silakan berusaha mencari triknya !!!!
>
> '====
>
> --- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@> wrote:
> >
> > Ini hasil coba2 saya membuat aplikasi web dengan Access 2010 . Semoga saja memberikan semangat untuk migrasi ke Web Access.
> >
> > Silakan download di [Files] [jkssbma] [Web Form]
> > jika berhasil modifikasi silakan di upload lagi dengan nama yang berbeda .
> >
> > WebBerita_1.rar memerlukan gambar di sub folder [gambar]
> > '===
> >
> > misal WebMasterDetail_1.rar di modifikasi menjadi WebMasterDetail_2.rar ,dst
> >
> > Saya kurang kreatif membuat tampilan jadi bagus , silakan deh di rias seindah mungkin
> >
> > Semangat Web semangat Access !!!
> >
> >
> > '========
> >
>

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

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

[belajar-access] Butuh Promgram Aplikasi Sederhana Untuk Bisnis Travel

Yth Rekan2 Milis
Ada yang Bisa Buatkan Program Aplikasi Sederhana Untuk Bisnis Travel ? jika berminat di Jafri aja ya + Biaya Pembuatan
Terima kasih
Saya yg baru belajar

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: [belajar-access] MS Acess dengan Database Mysql ???

Wah, nganten anyar msih sempat online,
mngkin stelah pelatihan kembali Access lagi, web yg berkaitan kaitan
KP aku tampilkan seperti slide sekilas info, jd yg aku tampilkan nip,
nama, unker & tmt serta dibawahny total proses kp, tp blum tak lihatke
sama pak toni

On 11/28/10, Ahmad Qomaruddin <ud13en@gmail.com> wrote:
> memang benar pak Aksan, sebenarnya saya sudah puas dengan link BE
> Acces, karena cukup pake form ganti database, sudah beres.
> Namun melihat pengalaman teman2 milis ini kalo datanya sudah banyak,
> kinerjanya jadi lambat makanya saya mencoba beralih menggunakan BE
> Mysql, skalian biar ilmunya tambah berkembang, mumpung ada teman2 yg
> siap membantu kalo ada masalah.
>
>
> On 11/27/10, Aksan Kurdin <aksan.kurdin@gmail.com> wrote:
>> Basic-nya, access mensupport link table. Anda bisa gunakan sesuai
>> kebutuhan. Jika sudah puas, boleh berhenti sampai disitu.
>> Tetapi performa bisa di percepat dengan bantuan vba, karena library ADO
>> memungkinkan server yang kerja filter dan hitung data, client tinggal
>> terima result-nya. But .. no pain no gain. Hasil yang baik selalu
>> didahului oleh kerja keras. Script ADO mutlak harus di kuasai.
>>
>>
>> Aksan Kurdin
>>
>> On 27/11/2010 13:49, Ahmad Qomaruddin wrote:
>>>
>>> Betul Pak Hari, menurut saya pake model link kayak gini emang lebih
>>> lambat, bahkan lebih cepat pake BE Acces
>>> CMIIAW
>>> Makanya saya mau nyoba pake script tapi masih belum lancar, masih
>>> bingung cara manggil data dari mysql (untuk dibuat tabel baru atau
>>> gimana, karena aplikasi saya buat tabel dan filed2-nya banyak) dan
>>> juga update data ke mysql (kirim ke mysql)
>>>
>>> On 11/25/10, hari yanto <har_i20002000@yahoo.com
>>> <mailto:har_i20002000%40yahoo.com>> wrote:
>>> > Menurut saya kalau sudah link tidak perlu membuat script yang panjang.
>>> >
>>> > Cuma sepengalaman saya, model link agak lambat. Karena harus membaca
>>> semua
>>> > data. Tidak seperti unbond yang hanya membaca data ketika dibutuhkan.
>>> >
>>> >
>>> > Hariyanto (Surabaya)
>>> >
>>>
>>>
>>
>>
>
>
> --
> Ahmad Qomaruddin
> Sulang Rembang Jawa Tengah Indonesia
> email : ud13en@gmail.com
> blog : ud13en.blogspot.com
>

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

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Re: [belajar-access] MS Acess dengan Database Mysql ???

memang benar pak Aksan, sebenarnya saya sudah puas dengan link BE
Acces, karena cukup pake form ganti database, sudah beres.
Namun melihat pengalaman teman2 milis ini kalo datanya sudah banyak,
kinerjanya jadi lambat makanya saya mencoba beralih menggunakan BE
Mysql, skalian biar ilmunya tambah berkembang, mumpung ada teman2 yg
siap membantu kalo ada masalah.

On 11/27/10, Aksan Kurdin <aksan.kurdin@gmail.com> wrote:
> Basic-nya, access mensupport link table. Anda bisa gunakan sesuai
> kebutuhan. Jika sudah puas, boleh berhenti sampai disitu.
> Tetapi performa bisa di percepat dengan bantuan vba, karena library ADO
> memungkinkan server yang kerja filter dan hitung data, client tinggal
> terima result-nya. But .. no pain no gain. Hasil yang baik selalu
> didahului oleh kerja keras. Script ADO mutlak harus di kuasai.
>
>
> Aksan Kurdin
>
> On 27/11/2010 13:49, Ahmad Qomaruddin wrote:
>>
>> Betul Pak Hari, menurut saya pake model link kayak gini emang lebih
>> lambat, bahkan lebih cepat pake BE Acces
>> CMIIAW
>> Makanya saya mau nyoba pake script tapi masih belum lancar, masih
>> bingung cara manggil data dari mysql (untuk dibuat tabel baru atau
>> gimana, karena aplikasi saya buat tabel dan filed2-nya banyak) dan
>> juga update data ke mysql (kirim ke mysql)
>>
>> On 11/25/10, hari yanto <har_i20002000@yahoo.com
>> <mailto:har_i20002000%40yahoo.com>> wrote:
>> > Menurut saya kalau sudah link tidak perlu membuat script yang panjang.
>> >
>> > Cuma sepengalaman saya, model link agak lambat. Karena harus membaca
>> semua
>> > data. Tidak seperti unbond yang hanya membaca data ketika dibutuhkan.
>> >
>> >
>> > Hariyanto (Surabaya)
>> >
>>
>>
>
>

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
blog : ud13en.blogspot.com

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

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

RE: [belajar-access] Re: fungsi terbilang

Dear pak Salman Hasan ,

1.       Buat modulTerbilang copy paste dari module tersebut: ­­­­­­­­­

Public Function terbilang(ByVal MyNumber, ByVal vmatauang)..dst

2.       Buat textbox :

a.       txtMataUang

b.      txtAngka

c.       txtTerbilang

3.       untuk memudahkan skenarionya diatas saya buat jenis mata uang model combo box, dgn mata uang IDR, USD, JPY, SGD, GBP, EUR.

4.       Buat event after update pada txtAngka:

 

Private Sub txtAngka_AfterUpdate()

    txtTerbilang = terbilang([txtAngka], [txtMataUang])

End Sub

 

Ini memang sering ditanyakan, semoga tidak bosan. Lebih baik bpk buat sendiri dari awal, sehingga mengerti alurnya, dari pada instant. Semoga bermanfaat

 

Best Regards,

AccessWizards

 

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Hasan Salman
Sent: 27 Nopember 2010 15:56
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Re: fungsi terbilang

 

 

Bisa tolong diattach sample nya Pak? Thanks Salman Hasan. --- Pada Sel, 13/7/10, end_chuzt@yahoo.co.id <end_chuzt@yahoo.co.id> menulis: Dari: end_chuzt@yahoo.co.id <end_chuzt@yahoo.co.id> Judul: Re: [belajar-access] Re: fungsi terbilang Kepada: belajar-access@yahoogroups.com Tanggal: Selasa, 13 Juli, 2010, 10:12 PM   Cukup simple aja pengoperasiannya, rekan bapak maulana sdh berhasil menggunakan modul ini.. Copy paste saja modul itu dalam 1 modul dan akan membentuk 3 function yakni : say3Digit sayDigit sayIDR Kemudian simpan dengan nama file terbilang atau apalah terserah bapak Eksekusi dengan sayIDR Contoh : SayIDR([text32] ) Text32 adalah sumber data yg akan di convert Powered by Telkomsel BlackBerry® From: "epilambret" <epilambret@yahoo. com> Sender: belajar-access@ yahoogroups. com Date: Wed, 14 Jul 2010 04:21:12 -0000 To: <belajar-access@ yahoogroups. com> ReplyTo: belajar-access@ yahoogroups. com Subject: [belajar-access] Re: fungsi terbilang     ini module nya : Public Function terbilang(ByVal MyNumber, ByVal vmatauang) Dim MataUang As String, cMataUang As String Dim Rupiah, sen, Temp Dim DecimalPlace, Count ReDim Place(9) As String Dim a As Long cMataUang = vmatauang If cMataUang = "IDR" Then MataUang = " rupiah" ElseIf cMataUang = "USD" Then MataUang = " dolar" ElseIf cMataUang = "JPY" Then MataUang = " yen" ElseIf cMataUang = "SGD" Then MataUang = " dolar singapura" ElseIf cMataUang = "GBP" Then MataUang = " poundsterling" ElseIf cMataUang = "EUR" Then MataUang = " euro" Else MataUang = " " End If Place(2) = " ribu" Place(3) = " juta" Place(4) = " milyar" Place(5) = " trilyun" ' String representation of amount. MyNumber = Trim(Str(MyNumber) ) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert sen and set MyNumber to dollar amount. If DecimalPlace > 0 Then sen = GetTens(left( Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds( right(MyNumber, 3)) If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah If left(Trim(Rupiah) , 9) = "Satu Ribu" Then Rupiah = " Seribu" & Mid(Rupiah, 11) End If If Len(MyNumber) > 3 Then MyNumber = left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupiah Case "" Rupiah = "nol" Case Else Rupiah = Rupiah End Select Select Case sen Case "" sen = "" ' dan nol sen" Case Else sen = " koma" & sen End Select terbilang = Trim(Rupiah & sen & MataUang) End Function ' Converts a number from 100-999 into text Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then If Mid(MyNumber, 1, 1) = "1" Then Result = " seratus" Else Result = GetDigit(Mid( MyNumber, 1, 1)) & " ratus" End If End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid( MyNumber, 2)) Else Result = Result & GetDigit(Mid( MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = " sepuluh" Case 11: Result = " sebelas" Case 12: Result = " dua belas" Case 13: Result = " tiga belas" Case 14: Result = " empat belas" Case 15: Result = " lima belas" Case 16: Result = " enam belas" Case 17: Result = " tujuh belas" Case 18: Result = " delapan belas" Case 19: Result = " sembilan belas" Case Else End Select Else ' If value between 20-99... Select Case Val(left(TensText, 1)) Case 2: Result = " dua puluh" Case 3: Result = " tiga puluh" Case 4: Result = " empat puluh" Case 5: Result = " lima puluh" Case 6: Result = " enam puluh" Case 7: Result = " tujuh puluh" Case 8: Result = " delapan puluh" Case 9: Result = " sembilan puluh" Case Else End Select Result = Result & GetDigit(right( TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(digit) Select Case Val(digit) Case 1: GetDigit = " satu" Case 2: GetDigit = " dua" Case 3: GetDigit = " tiga" Case 4: GetDigit = " empat" Case 5: GetDigit = " lima" Case 6: GetDigit = " enam" Case 7: GetDigit = " tujuh" Case 8: GetDigit = " delapan" Case 9: GetDigit = " sembilan" Case Else: GetDigit = "" End Select End Function error disini :compile error: expected variable or procedure, not module Private Sub cbterbilang_ Click() Me.Text84.Value = Terbilang(Me. indexAwal. Value, Me.MataUang. Value) End Sub sy coba buat db baru lalu copy modul dan buat text box lain, bisa tuh. aman2 saja. to Mas End_Chuzt: saya sudah coba modul mas tapi blom jalan, ada beberapa spt say3Digit = say3Digit sayDigit(Left$ (Right$(numStr, 2), 1)) "Puluh " apa salah ketik ya? sy coba2 blom bisa. --apa mungkin error ini juga yg menyebabkan code autonumber (dlast)di db saya mengalami stack beberapa waktu lalu? posting minggu lalu(sayang tidak ada yg menjawab). --terima kasih byk.

 

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___