Maaf Mas Kayaknya saya salah menjelaskannya ...
Begini..sy pake Access & VB
Di textbox say tulis 0,66 trus masuk ke access jadi 1,0000 ... tapi kalo
type data di acces pake Text bisa 0,66 tapi waktu di jumlah di VB di
hitungnya 1 ,ini code yg saya bikin...tolong ya mas...
Jadi maksudnya bagaimana biar vb ama acces biar sama sama menghitung 4 digit
di belakang koma yg formatnya sama ......
Peace...
Private Sub Command2_Click()
If Text6.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then
MsgBox ("Isi Data Lengkap")
Text9.SetFocus
Exit Sub
End If
If Text5.Text <= 0 Then
MsgBox "Data Tidak Ada Nilai"
Text9.SetFocus
Exit Sub
End If
Text18.Text = Text18.Text + Text11.Text
Set rsprocesssem = New ADODB.Recordset
rsprocesssem.Open "select
SPTA,Mobil,Tebang,Giling,Berat_Tebu,Koreksi_Kotoran,Pol,Brix,Purity,NN,FR,Re
ndeman_Sementara from processem where SPTA='" & Text3.Text & "'", cn,
adOpenDynamic, adLockOptimistic
If rsprocesssem.EOF Then
rsprocesssem.AddNew
rsprocesssem("spta") = Trim(Text3.Text)
rsprocesssem("Mobil") = Trim(Text4.Text)
rsprocesssem("Tebang") = Trim(dt1.Value)
rsprocesssem("Giling") = Trim(dt2.Value)
rsprocesssem("Berat_Tebu") = Trim(Text5.Text)
rsprocesssem("Koreksi_Kotoran") = Trim(Text6.Text)
rsprocesssem("Pol") = Trim(Text7.Text)
rsprocesssem("Brix") = Trim(Text8.Text)
rsprocesssem("NN") = Trim(Text9.Text)
rsprocesssem("FR") = Trim(Text10.Text)
rsprocesssem("Rendeman_sementara") = Trim(Text11.Text)
rsprocesssem.Update
End If
Set rsprocesssem = New ADODB.Recordset
rsprocesssem.Open "select
SPTA,Mobil,Tebang,Giling,Berat_Tebu,Koreksi_Kotoran,Pol,Brix,Purity,NN,FR,Re
ndeman_Sementara from processem", cn, adOpenDynamic, adLockOptimistic
Set dg1.DataSource = rsprocesssem
'dg11
Set rsprocesssem = New ADODB.Recordset
rsprocesssem.Open "select Berat_Tebu,Rendeman_sementara from processem", cn,
adOpenDynamic, adLockOptimistic
Nilai.Text = ""
Text15.Text = ""
'Text18.Text = ""
'rsprocesssem("rendeman_sementara") =
Format(rsprocesssem("rendeman_sementara"), "###,##0.0000")
'Text18.Text = Format(Text18.Text, "###,##0.0000")
rsprocesssem.MoveFirst
While Not rsprocesssem.EOF
Text15.Text = Val(Text15.Text) + Val(rsprocesssem("Berat_Tebu"))
Nilai.Text = Val(Nilai.Text) + Val(rsprocesssem("rendeman_sementara"))
'Text18.Text = Format(Value, "###,##0.0000")
'rsprocesssem("rendeman_sementara") =
Format(rsprocesssem("rendeman_sementara"), "###,##0.0000")
'Text18.Text = Val(Text18.Text) +
Val(rsprocesssem("rendeman_sementara"))
Text18.Text = Format(Text18.Text, "###,##0.0000")
rsprocesssem.MoveNext
Text12.Text = Trim(Nilai.Text)
Text12.Text = Format(Text12.Text, "###,##0.0000")
'Text18.Text = Nilai.Text
' Text12.Text = Format(Text12.Text, "standard")
' Text15.Text = Format(Text15.Text, "standard")
Wend
Set rsprocesssem = New ADODB.Recordset
rsprocesssem.Open "select
SPTA,Mobil,Tebang,Giling,Berat_Tebu,Koreksi_Kotoran,Pol,Brix,Purity,NN,FR,Re
ndeman_Sementara from processem", cn, adOpenDynamic, adLockOptimistic
Set dg1.DataSource = rsprocesssem
dg11
dg1.Refresh
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
'Text12.Text = Format(Nilai.Text, "Rp ###,##0")
Command2.Enabled = True
Command3.Enabled = True
Command5.Enabled = True
'Command7.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text3.SetFocus
End Sub
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Sodik Ihwan
Sent: 12 April 2008 22:22
To: [email protected]
Subject: Re: [Programmer-VB] Mohon Bantuannya Donk...4 digit koma
Apa ndak kebalik antara titik sama koma nya?
On Tue, 08 Apr 2008 08:42:41 +0700, Endra Jaya <[EMAIL PROTECTED]> wrote:
> Pagi Semua...
>
>
> Mohon Minta bantuannya dong ...4 digit dibelakang koma utk di datagrid
> pake
> apa ya???saya pake format seperti di bawah ini kok gak bisa ya???hanya 2
> digit di belakang koma yang bisa.
>
>
>
> dg1.Columns(4).Alignment = dbgRight
>
> dg1.Columns(4).AllowSizing = False
>
> dg1.Columns(4).Locked = True
>
> dg1.Columns(4).NumberFormat = "standard" atau "#.##0,0000#
>
>
>
>
> Peace..
>
>
>
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends http://asia.messenger.yahoo.com
------------------------------------
Wahana Programmer Groups Links
