[belajar-excel] Digest Number 1372

Milis Belajar Microsoft Excel

Messages In This Digest (8 Messages)

1a.

Error message : Too Few Parameter From: Ujang

1b.

Re: Error message : Too Few Parameter From: Kid Mr.

1c.

Re: Error message : Too Few Parameter From: selvri_k

2.

Re: membedakan format "mm" untuk MINUTE dan untuk MONTH From: Udin Haeruddin

3a.

FUNGSI LEFT From: harry budiman

3b.

Re: FUNGSI LEFT From: Kid Mr.

3c.

Bls: [belajar-excel] FUNGSI LEFT From: ghozi alkatiri

3d.

Bls: [belajar-excel] FUNGSI LEFT From: ghozi alkatiri

View All Topics | Create New Topic

Messages

1a.

Error message : Too Few Parameter

Posted by: "Ujang" mangujang_k@yahoo.co.id   mangujang_k

Sat Oct 22, 2011 6:32 pm (PDT)

Assalammu alaikum

Mamang ada kesulitan dalam hal membuat query update.
Dalam kasus ini, mamang membuat looping yang menampilkan semua records di suatu listbox. lalu, ketika user memilih beberapa list dlm listbox tersebut dan klik update. maka macro akan meng update record-record yang terpilih oleh user.

Berikut codingan mamang sementara ini dan terima kasih atas bantuan yang diberikan. Salam sejahtera selalu

Private Sub CmdUpdate_Click()
Dim iloop As Long

Call Connect '<= manggil connection string

For iloop = 1 To Listbox1.ListCount
If MyList.Selected(iloop - 1) = True Then

cn.Execute "Update tblSaya set DateRcvd= Trim(TextBox1.Text) where FieldNomor='" & Trim(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)) & "'", , adCmdText

Me.ListBox1.ListIndex = Me.ListBox.ListIndex + 1
ListBox.Selected(iloop - 1) = False
End If
Next
cn.Close
Set cn = Nothing
End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

1b.

Re: Error message : Too Few Parameter

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Sat Oct 22, 2011 11:54 pm (PDT)

Wa alaikumusalam Wr. Wb.

Dari script berikut :
Private Sub CmdUpdate_Click()
Dim iloop As Long

Call Connect '<= manggil connection string

For iloop = 1 To Listbox1.ListCount
If MyList.Selected(iloop - 1) = True Then

cn.Execute "Update tblSaya set DateRcvd= Trim(TextBox1.Text) where
FieldNomor='" & Trim(Me.ListBox1.List(Me.

ListBox1.ListIndex, 0)) & "'", , adCmdText

Me.ListBox1.ListIndex = Me.ListBox.ListIndex + 1
ListBox.Selected(iloop - 1) = False
End If
Next
cn.Close
Set cn = Nothing
End Sub
Query update memiliki kesalahan pengetikan.
cn.Execute "Update tblSaya set DateRcvd=* Trim(TextBox1.Text) *where
FieldNomor='" & Trim(Me.ListBox1.List(Me.

ListBox1.ListIndex, 0)) & "'", , adCmdText
Bisa jadi dengan diubah menjadi :
cn.Execute "Update tblSaya set DateRcvd=*" & Trim(TextBox1.Text) & "*where
FieldNomor='" & Trim(Me.ListBox1.List(Me.

ListBox1.ListIndex, 0)) & "'", , adCmdText
dan pastikan where FieldNomor= mendapatkan nilai yang tepat dari
Trim(Me.ListBox1.List(Me.ListBox1.ListIndex,0))

Wassalamualaikum Wr. WB.
Kid.

2011/10/23 Ujang <mangujang_k@yahoo.co.id>

> **
>
>
> Assalammu alaikum
>
> Mamang ada kesulitan dalam hal membuat query update.
> Dalam kasus ini, mamang membuat looping yang menampilkan semua records di
> suatu listbox. lalu, ketika user memilih beberapa list dlm listbox tersebut
> dan klik update. maka macro akan meng update record-record yang terpilih
> oleh user.
>
> Berikut codingan mamang sementara ini dan terima kasih atas bantuan yang
> diberikan. Salam sejahtera selalu
>
> Private Sub CmdUpdate_Click()
> Dim iloop As Long
>
> Call Connect '<= manggil connection string
>
> For iloop = 1 To Listbox1.ListCount
> If MyList.Selected(iloop - 1) = True Then
>
> cn.Execute "Update tblSaya set DateRcvd= Trim(TextBox1.Text) where
> FieldNomor='" & Trim(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)) & "'", ,
> adCmdText
>
> Me.ListBox1.ListIndex = Me.ListBox.ListIndex + 1
> ListBox.Selected(iloop - 1) = False
> End If
> Next
> cn.Close
> Set cn = Nothing
> End Sub
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

1c.

Re: Error message : Too Few Parameter

Posted by: "selvri_k" selvri_k@yahoo.com   selvri_k

Sun Oct 23, 2011 5:47 am (PDT)

Wa alaikum salam mang

Selvi menduga ada Quote & unquote yang kurang deh mang
cn.Execute "Update tblSaya set DateRcvd='" Trim(TextBox1.Text)"' where
FieldNomor='" & Trim(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)) & "'", ,
adCmdText

Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1

Semoga berkenan

--- In belajar-excel@yahoogroups.com, "Ujang" <mangujang_k@...> wrote:
>
> Assalammu alaikum
>
> Mamang ada kesulitan dalam hal membuat query update.
> Dalam kasus ini, mamang membuat looping yang menampilkan semua records di suatu listbox. lalu, ketika user memilih beberapa list dlm listbox tersebut dan klik update. maka macro akan meng update record-record yang terpilih oleh user.
>
> Berikut codingan mamang sementara ini dan terima kasih atas bantuan yang diberikan. Salam sejahtera selalu
>
> Private Sub CmdUpdate_Click()
> Dim iloop As Long
>
> Call Connect '<= manggil connection string
>
> For iloop = 1 To Listbox1.ListCount
> If MyList.Selected(iloop - 1) = True Then
>
> cn.Execute "Update tblSaya set DateRcvd= Trim(TextBox1.Text) where FieldNomor='" & Trim(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)) & "'", , adCmdText
>
> Me.ListBox1.ListIndex = Me.ListBox.ListIndex + 1
> ListBox.Selected(iloop - 1) = False
> End If
> Next
> cn.Close
> Set cn = Nothing
> End Sub
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2.

Re: membedakan format "mm" untuk MINUTE dan untuk MONTH

Posted by: "Udin Haeruddin" herumamuda@gmail.com   ruddin1795

Sat Oct 22, 2011 7:39 pm (PDT)

http://parkware.net/index37.html
Link-nya kok Error ya?
[image: park.png]
--
====== Haeruddin, S.Pd ======

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

3a.

FUNGSI LEFT

Posted by: "harry budiman" harbudiman@gmail.com   harbudiman

Sat Oct 22, 2011 11:21 pm (PDT)

Salam,
mohon bantuan (lagi) Saya memiliki data dimana jumlah tenor adalah
hasil convert dari data,
sehingga akan diperoleh beberapa tenor diantaranya 11/Arr, 17/Arr,
23/Arr dan beberapa diantara ratusan tenor tersebut terdapat tenor
yang hanya 1 digit, contoh: 9/Arr, 8/Arr.
Biasanya saya menggunakan =LEFT(xx,2) untuk mengambil 2 digit dikiri,
namun untuk 1 digit (8/Arr, 9/Arr) dengan manual tanpa rumus adakah
satu formula supaya semua bisa diambil (2 digit dan 1 digit)
sekaligus?
Contoh terlampir

makasih
harry

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3b.

Re: FUNGSI LEFT

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Sat Oct 22, 2011 11:33 pm (PDT)

Coba :
=--LEFT(A1,FIND("/",A1&"/")-1)

2011/10/23 harry budiman <harbudiman@gmail.com>

> 11/Arr

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3c.

Bls: [belajar-excel] FUNGSI LEFT

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Sat Oct 22, 2011 11:58 pm (PDT)

coba 2 formula di bawah ini
=VALUE(LEFT(A10;FIND("/";A10)-1))
atau
=VALUE(SUBSTITUTE(A10;"/Arr";""))

wassalam

Ghozi Alkatiri

________________________________
Dari: harry budiman <harbudiman@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 23 Oktober 2011 13:21
Judul: [belajar-excel] FUNGSI LEFT

 
Salam,
mohon bantuan (lagi) Saya memiliki data dimana jumlah tenor adalah
hasil convert dari data,
sehingga akan diperoleh beberapa tenor diantaranya 11/Arr, 17/Arr,
23/Arr dan beberapa diantara ratusan tenor tersebut terdapat tenor
yang hanya 1 digit, contoh: 9/Arr, 8/Arr.
Biasanya saya menggunakan =LEFT(xx,2) untuk mengambil 2 digit dikiri,
namun untuk 1 digit (8/Arr, 9/Arr) dengan manual tanpa rumus adakah
satu formula supaya semua bisa diambil (2 digit dan 1 digit)
sekaligus?
Contoh terlampir

makasih
harry

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3d.

Bls: [belajar-excel] FUNGSI LEFT

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Sun Oct 23, 2011 12:03 am (PDT)

atau coba juga
=VALUE(REPLACE(A10;FIND("/";A10);4;""))
wassalam

Ghozi Alkatiri

________________________________
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 23 Oktober 2011 13:57
Judul: Bls: [belajar-excel] FUNGSI LEFT

 
coba 2 formula di bawah ini
=VALUE(LEFT(A10;FIND("/";A10)-1))
atau
=VALUE(SUBSTITUTE(A10;"/Arr";""))

wassalam

Ghozi Alkatiri

________________________________
Dari: harry budiman <harbudiman@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 23 Oktober 2011 13:21
Judul: [belajar-excel] FUNGSI LEFT

 
Salam,
mohon bantuan (lagi) Saya memiliki data dimana jumlah tenor adalah
hasil convert dari data,
sehingga akan diperoleh beberapa tenor diantaranya 11/Arr, 17/Arr,
23/Arr dan beberapa diantara ratusan tenor tersebut terdapat tenor
yang hanya 1 digit, contoh: 9/Arr, 8/Arr.
Biasanya saya menggunakan =LEFT(xx,2) untuk mengambil 2 digit dikiri,
namun untuk 1 digit (8/Arr, 9/Arr) dengan manual tanpa rumus adakah
satu formula supaya semua bisa diambil (2 digit dan 1 digit)
sekaligus?
Contoh terlampir

makasih
harry

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

Recent Activity

•  13
  New Members
•  1
  New Photos

Visit Your Group

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Schizophrenia groups

Find support

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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