Cod Access

Informatii despre cum se utilizeaza Microsoft Access 2007. Baze de date, Interogari, Formulare, Rapoarte, etc
Închis
Sergiu86DJS
Mesaje: 1
Membru din: Mie Ian 06, 2016 1:37 pm

Cod Access

Mesaj de Sergiu86DJS » Mie Ian 06, 2016 1:49 pm

Salut tuturor!

Am o problema cu un cod in Access si v-as ruga daca puteti sa imi dati niste sfaturi.

Private Sub cmdSterge_Click()
If Not (Me.frmPiesesub.Form.Recordset.EOF And Me.frmPiesesub.Form.Recordset.BOF) Then
If MsgBox("Doriti sigur sa stergeti aceasta piesa?", vbYesNo) = vbYes Then
CurrentDb.Execute " Delete from tblPiese" & _
" Where CodPiesa=" & Me.frmPiesesub.Form.Recordset.Fields("CodPiesa")
Me.frmPiesesub.Form.Requery
End If
End If

End Sub


Si imi da urmatoare eroare:

Run - time error "3061':
Too few parameters.Expected 1.


Multumesc anticipat,
Sergiu

Tzica
Mesaje: 622
Membru din: Sâm Aug 11, 2012 10:52 pm

Re: Cod Access

Mesaj de Tzica » Joi Ian 07, 2016 7:37 pm

Doar doua simple pareri :
1. Inteleg ca se face referire la un control aflat pe un subformular ..al unui formular principal. Se pare ca in aceste cazuri, folosirea particulei "Me" nu e ok. Formularea trebuie (ar trebui sa fie de forma) :

Cod: Selectaţi tot

Forms!frmPrincipal!subformular.Form.numecontrol
Referinta_1
Referinta_2

2. O alta posibila cauza, poate sa fie in formularea clauzei Where...adica e posibil sa fie nevoie de pardalnicele de ghilimele (fie dubla fie ..single daca e vorba de un camp text).
(Aici trebuie sa recunosc ca...bajbai rau...Nu am vazut/auzit pana acum de folosirea obiectului recordset intr-o clauza where.Dar...faptul ca eu nu cunosc ..nu inseamna ca nu e posibil).Mai concret, despre folosirea ghilimelelor , cand avem de-a face cu valori din formulare :
DLookup _Forms

Sper ca cele de mai sus sunt de folos.

Închis

Înapoi la “Intrebari despre Access 2007”