iya mas bener... harus ditambahain di subjeknya yah...biar yg lainnya juga tau klo subject tersebut udah selesai atau blm... makasih inputannya mas...
aku coba kirimin data viewnya, aku attach ajah yah...soalnya banyak jd aku generate ajah dari SQLnya.. iya mas aku itu lg update software yg dasarnya aku sendiri kurang tau (msh ngeraba2), gak ada penjelasan seputar alur sistem atau databasenya...pucciiiinggg... --- Mario Indra Jaya <[EMAIL PROTECTED]> wrote: > Oh iya yach. > > > > Tambahan mungkin buat yang member yang lain. Untuk > kasus-kasus pertanyaan, > mungkin ada baiknya dicantumkan terakhir di > subjectnya jika kasusnya sudah > CLOSED atau belum. > > > > Untuk kasus ini, jika memungkinkan coba bisa > diberikan Data View yang ada > untuk di forward ke milis ini agar sama-sama dicoba > dianalisa. > > > > Informasinya bisa : Data-datanya apa saja, dan > informasi yang ingin > ditampilkan ( output ) yang diinginkan seperti apa. > > > > Kalo bisa client code ( vb code ) nya juga, ketika > menarik viewnya butuh > parameter input atau outputnya. > > > > Untuk kasus ibu sama dengan saya, masalahnya jika > kita tidak ada dokumentasi > waktu merancang software + database, ketika database > sudah besar dan > terdapat perubahan yang significant, akhirnya > membuat pusinggggg kepala. > > > > Best Regards, > > > __________________________________________________________ > > > > > > Bored stiff? Loosen up... > > > > > > Download and play hundreds of games for > free > > > on > > > > > Yahoo! Games. > > > > > > http://games. > > > > <http://games. > <http://games.yahoo.com/games/front> > yahoo.com/games/front> > > > > yahoo.com/games/front > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > __________________________________________________________ > > > > Moody friends. Drama queens. Your life? Nope! > - > > > > their life, your story. Play > > > > Sims Stories at Yahoo! Games. > > > > http://sims. <http://sims. > <http://sims.yahoo.com/> yahoo.com/> > yahoo.com/ > > > > > > > > > > > === message truncated === ____________________________________________________________________________________ Pinpoint customers who are looking for what you sell. http://searchmarketing.yahoo.com/ ---------- Sub coRefresh() On Error Resume Next mmouse sibuk Dim i As Integer Dim Lokasi As String i = InStr(Combo1.Text, "-") Lokasi = Mid(Combo1.Text, 1, i - 2) If Lokasi = "ALL" Then sql = "Select Top 100 Norek as [No Kredit],cdcust, nmcust as [Nama], tglakad as [TglAkad], tgljttempo as [TglJatuhTempo],jwthn AS [JumlahBulan],nmfas as [Fasilitas Kredit],cdkrd as [Internal No] from vkredit " sql = sql + " Where stskrd = '1' " If Text1 <> "" Then sql = sql + " and (Norek Like '" & Trim(Text1) & "%' or cdkrd Like '" & Trim(Text1) & "%' or cdcust Like '" & Trim(Text1) & "%' or nmcust Like '%" & Trim(Text1) & "%')" End If sql = sql + " order by nmcust" ElseIf Lokasi = "" Then mmouse Normal Exit Sub Else sql = "Select Top 100 Norek as [No Kredit],cdcust, nmcust as [Nama], tglakad as [TglAkad], tgljttempo as [TglJatuhTempo],jwthn AS [JumlahBulan],nmfas as [Fasilitas Kredit],cdkrd as [Internal No] from vkredit " sql = sql + " Where stskrd = '1' and Typfas = '" & Lokasi & "'" If Text1 <> "" Then sql = sql + " and (Norek Like '" & Trim(Text1) & "%' or cdkrd Like '" & Trim(Text1) & "%' or cdcust Like '" & Trim(Text1) & "%' or nmcust Like '%" & Trim(Text1) & "%')" End If sql = sql + " order by nmcust" End If Set rs = New ADODB.Recordset rs.Open sql, MstDb, adOpenKeyset, adLockOptimistic fa.DataMode = flexDMBound Set fa.DataSource = rs LbJumlah.Caption = FormatNumber(rs.RecordCount) Set rs = Nothing fa.ColHidden(1) = True mmouse Normal Exit Sub ErrX: MsgBox Err.Description, vbCritical, "Peringatan : " & Err.Number End Sub ========================================================================= Private Sub regOpen() On Error Resume Next Dim ccTl As Control On Error GoTo ErrX With xFORM2 .FindRecord Trim(fa.TextMatrix(fa.Row, 0)) End With Unload Me Exit Sub ErrX: MsgBox Err.Description, vbCritical, "Peringatan : " & Err.Number End Sub ========================================================================================== Sub FindRecord(NoKredit As String) Dim rsKRD As ADODB.Recordset On Error GoTo ErrX sql = "select * from vkredit " sql = sql + " where Norek ='" & Trim(NoKredit) & "'" Set rsKRD = New ADODB.Recordset rsKRD.Open sql, MstDb, adOpenKeyset, adLockOptimistic EnabledControl Me, True If Not rsKRD.EOF Then If rsKRD("cdotr") = "2" And Trim(rsKRD("oldcdkrd")) <> "" Then gRESCHEDULING = True gCDKRD = Trim(rsKRD("oldcdkrd")) gTAHAP_RESCHEDULE = c_BUKABARU End If txtNoKredit = Trim(rsKRD("cdkrd")) TxtNorek = Trim(rsKRD("norek")) txtNasabahID = Trim(rsKRD("cdcust")) + " - " + Trim(rsKRD("nmcust")) txtAlamat = Trim(rsKRD("ralm")) cmbStatus = Trim(rsKRD("stskrd")) + " - " + Trim(rsKRD("nmstskrd")) cmbProduk = Trim(rsKRD("cdprod")) + " - " + Trim(rsKRD("nmprod")) cmbTipePRoduk = Trim(rsKRD("typfas")) + " - " + Trim(rsKRD("nmfas")) cmbOtoritas = Trim(rsKRD("cdotr")) + " - " + Trim(rsKRD("nmotr")) txtNoPK = Trim(rsKRD("nobukti")) dtTanggalInput = rsKRD("tglinput") dtTanggalAkad = rsKRD("tglakad") dtTanggalJatuhTempo = rsKRD("tgljttempo") cmbLamaPinjaman = rsKRD("jwthn") txtBungaBErlaku = rsKRD("SukuBunga") / 12 txtSukuBunga = rsKRD("bungadiberi") / 12 If Trim(rsKRD!cdprod) = "6" Then framJnsAngsuran.Visible = False cmbHitBunga = Trim(rsKRD("typbunga")) + " - " + Trim(rsKRD("nmhit")) cmbGolDeb = Trim(rsKRD("cdbigoldbt")) + " - " + Trim(rsKRD("nmbigoldbt")) cmbHitung = Trim(rsKRD("cdbigolkrt")) + " - " + Trim(rsKRD("nmbigolkrt")) cmbSeke = Trim(rsKRD("cdbiseke")) + " - " + Trim(rsKRD("nmbiseke")) cmbSifat = Trim(rsKRD("cdbisifat")) + " - " + Trim(rsKRD("nmbisifat")) cmbJnsGuna = Trim(rsKRD("cdbijenis")) + " - " + Trim(rsKRD("nmbijenis")) Cmbcdlok = Trim(rsKRD("cdlok")) + " - " + Trim(rsKRD("ket")) CmbJnsAgunan = Trim(rsKRD("jnsagunan")) + " - " + Trim(rsKRD("bijenis")) CmbPersenAgunan = Trim(rsKRD("cdagunan")) + " - " + Trim(rsKRD("persenagunan")) CmbKodeAgunan = Trim(rsKRD("cdagunan")) + " - " + Trim(rsKRD("ketjenis")) Me.Txtnilagunan = rsKRD("nilagunan") Me.cmbPenjamin = Trim(rsKRD("cdbipjm")) + " - " + Trim(rsKRD("nmbigolpjm")) Me.txtBagJamin = rsKRD("bagpjm") Me.txtPlafon = rsKRD("plafond") cmbKodeAO = Trim(rsKRD("cdao")) + " - " + Trim(rsKRD("nmao")) cmbByrPokok.ListIndex = CInt(Trim(rsKRD("pmbpokok"))) - 1 cmbByrBunga.ListIndex = CInt(Trim(rsKRD("pmbbunga"))) - 1 Select Case Trim(rsKRD("pmbpokok")) Case "1" 'Rek.Tabungan lblNorekPokok.Caption = Trim(rsKRD("cdtabpokok")) Txtnmpokok = Trim(rsKRD("nmpokok")) lblRekPokok = FindRekening(Trim(lblNorekPokok.Caption), Tabungan, "NMTAB") txtRekPokok = FindRekening(Trim(lblNorekPokok.Caption), Tabungan, "NOREK") Case "2" 'Tunai lblNorekPokok.Caption = "" Txtnmpokok = "" lblRekPokok = "" txtRekPokok = "" Case "3" 'Rek.GL.Titipan lblNorekPokok.Caption = Trim(rsKRD("cdtabpokok")) Txtnmpokok = Trim(rsKRD("nmpokok")) lblRekPokok = Trim(rsKRD("nmpokok")) txtRekPokok = Trim(rsKRD("cdtabpokok")) End Select Select Case Trim(rsKRD("pmbbunga")) Case "1" 'Rek.Tabungan lblNorekBunga.Caption = Trim(rsKRD("cdtabbunga")) TxtnmBunga = Trim(rsKRD("nmbunga")) lblRekBunga = FindRekening(Trim(lblNorekPokok.Caption), Tabungan, "NMTAB") txtRekBunga = FindRekening(Trim(lblNorekPokok.Caption), Tabungan, "NOREK") Case "2" 'Tunai lblRekBunga = "" lblNorekBunga.Caption = "" txtRekBunga = "" TxtnmBunga = "" Case "3" 'Rek.GL.Titipan lblRekBunga = "" lblNorekBunga.Caption = "" TxtnmBunga = Trim(rsKRD("nmbunga")) txtRekBunga = Trim(rsKRD("cdtabbunga")) End Select ' load detail biaya pembukaan rekening kredit FindBiayaRekKrd Trim(TxtNorek) FindGLTitipan Trim(rsKRD!typfas) rsKRD.Close Set rsKRD = Nothing LoadIMAGE EnabledUbah EnabledCommandLihat False, Me EnabledTombolSV False End If Exit Sub ErrX: MsgBox Err.Description, vbCritical, "Load Data Peringatan : " & Err.Number End Sub [Non-text portions of this message have been removed]
