Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
eroare vb cu acces
Last Updated: Jan 24 2007 20:32, Started by
deCeNu
, Dec 11 2006 11:36
·
0
#19
Posted 18 January 2007 - 20:13
deCeNu, on Jan 18 2007, 11:09, said: multumesc pentru raspuns! toate bune si frumoase...numai ca am introdus codul in form_load si imi da eroare : compile error :expected expression ! ce se intampla acum? nu am introdus codul bine in form? ...acum vad ca da si eroare la rularea programului: la incarcarea formei da eroare lalistbox.rowsource...method or data member not found! Cimpul "RowSource" l-ai schimbat ? Apropo uitasem sa-ti spun ca codul pe care l-am pus nu e pentru Ctrl-C , Ctrl-V . Sunt proprietatile obectelor ListBox1 si ListBox2. Si valoarea properietaii "RowSource" o schimbi dupa tabelele si structura proprie, eu ti-am dat un exemplu orientativ. |
#20
Posted 19 January 2007 - 11:22
Hato0be, on Jan 18 2007, 14:13, said: Cimpul "RowSource" l-ai schimbat ? Apropo uitasem sa-ti spun ca codul pe care l-am pus nu e pentru Ctrl-C , Ctrl-V . Sunt proprietatile obectelor ListBox1 si ListBox2. Si valoarea properietaii "RowSource" o schimbi dupa tabelele si structura proprie, eu ti-am dat un exemplu orientativ. Dim baza As Database Dim rs As Recordset Dim rs2 As Recordset Dim rs3 As Recordset Dim rs4 As Recordset Dim produs As String Dim pret As String Dim cantitate As String Dim lista As String Dim pretNou As String Dim pret2 As String 'Private Sub Command5_Click() 'On Error GoTo Err_Command5_Click' ' Dim stDocName As String ' ' stDocName = "Query1" ' DoCmd.OpenQuery stDocName ' 'Exit_Command5_Click: ' Exit Sub' ' 'Err_Command5_Click: ' MsgBox Err.Description ' Resume Exit_Command5_Click ' 'End Sub Private Sub Form_Load() Set baza = OpenDatabase("D:\contab\contab.mdb", False, False, ";pwd=parola") Set rs = baza.OpenRecordset("stoc", dbOpenDynaset) Set rs2 = baza.OpenRecordset("produs", dbOpenDynaset) Set rs3 = baza.OpenRecordset("rulaje", dbOpenDynaset) Set rs4 = baza.OpenRecordset("preturi", dbOpenDynaset) ' pentru prima lista, cea cu produse' List1.RowSource = "select idprodus, produs from produs" List1.BoundColumn = "1" List1.ColumnCount = "2" List1.ColumnWidths = "0;" List1.onclick = "=List2.Requery" '' Pentru a doua lista , cu preturi , in dependenta de produsul selectat' List2.RowSourceType = "Table/Query" List2.RowSource = select pret from produs where idprodus=Forms!frmForm3.List1.ValueList2.BoundColumn = "1") List2.ColumnCount = "1" List1.RowSourceType = "Table/Query" end sub |
#21
Posted 24 January 2007 - 08:23
deCeNu, care este structura tabelelor in care se afla Denumirea produselor si Preturile pentru ele ?
De mai sus se vede ca ele se numesc produs si preturi. Da-mi structura lor si iti voi putea spune ce exact sa pui in procedura Form_Load() |
#22
Posted 24 January 2007 - 10:54
Hato0be, on Jan 24 2007, 02:23, said: deCeNu, care este structura tabelelor in care se afla Denumirea produselor si Preturile pentru ele ? De mai sus se vede ca ele se numesc produs si preturi. Da-mi structura lor si iti voi putea spune ce exact sa pui in procedura Form_Load() dar nu stiu cum sa fac relationarea intre tabele...am legat campul ID din tabelul produs cu campul produs din tabelul preturi...insa trebuie ca valoarea din ID sa o incarc automat in celalalt tabel...in felul acesta am gandit ca in tabelul preturi sa am un produs cu mai multe preturi s.a.m.d. daca vrei iti trimit toata baza cu tot cu formularele in vb pt ca nu pot trece de pasul acesta ... Attached Files |
#23
Posted 24 January 2007 - 20:24
deCeNu, on Jan 24 2007, 10:54, said: m-am gandit ca, in form-ul de introducere date sa iau intr-un list box produsele din tabelul produse, iar la click (selectie) pe produsul respectiv sa se incarce in alta lista preturile pt acel produs... dar nu stiu cum sa fac relationarea intre tabele...am legat campul ID din tabelul produs cu campul produs din tabelul preturi...insa trebuie ca valoarea din ID sa o incarc automat in celalalt tabel...in felul acesta am gandit ca in tabelul preturi sa am un produs cu mai multe preturi s.a.m.d. daca vrei iti trimit toata baza cu tot cu formularele in vb pt ca nu pot trece de pasul acesta ... Am sa incerc sa explic...Structura, parca, e buna. cu conditia ca cimpul [produs] din tabelul preturi este de tip numeric ca si cimpul [ID] din tabelul produs. Acuma ai nevoie ca la selectarea produsului din lista cu "Produse" sa-ti arate preturile pentru produsul respectiv (adica toate inscrierile din tabelul Preturi care au cimpul [produs]= cu cimpul [ID] din tabelul produs). In "Form Design" selectezi prima lista in care vrei sa-ti apara lista de produse la properties (faci click dreapta -> Properties) la --- pentru prima lista (o numesc List1) ---- > pagina "DATA" Row Source = select produs.ID, produs.produs from produs; Row Source Type=Table/Query; Bound To Column= 1 > pagina "FORMAT" Column Count = 2 Column Widths = 0; -- pentru a dowa lista (o numesc List2) ---- > pagina "DATA" Row Source = select pret.produs, produs.pret from pret where pret.produs=Forms!frmProduse!List1.value; Mai sus in loc de frmProduse scrii denumirea formei pe care se afla aceste liste, si in loc de list1 scrii numele primei liste (in cazul meu e List1, denumirea control-ului se afla in fereastra Properties la pagina "Other" proprietatea Name) Row Source Type=Table/Query; Bound To Column= 1 > pagina "FORMAT" Column Count = 2 Column Widths = 0; ---- Revenim la prima lista (list1). ----- > pagina "Event" On Click = list2.Requery -------------- Daca pina la urma nimic nu se primeste - trimite baza. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users