[es] - Append query bez upozorenja

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.ppp.cybermedia.co.yu.

+4 Profil

^{13.01.2008. u 11:06 - pre 198 meseci}

Napravio sam append query i delete query i spakovao ih u jedan makro (iskopira sadrzaj jedne tabele u drugu i obrise sadrzaj prve tabele). Radi fenomenalno ali bih zeleo da izbacim ona dosadna upozorenja o brojevima zapisa koji ce biti preneti u drugu tabelu, odnosno izbrisani iz tabele. Da li to moze i kako?

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Append query bez upozorenja

^{13.01.2008. u 12:31 - pre 198 meseci}

Tools, Options, Edit/Find, Confirm, Action queryes.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

lukeguy
Novi Sad

Član broj: 46545
Poruke: 470
*.com
Via: [es] mailing liste

+8 Profil

Re: Append query bez upozorenja

^{13.01.2008. u 12:44 - pre 198 meseci}

ili ako pozivaš iz koda onda možda bolje da samo privremeno onemogućiš
upozorenja pre nego što pozoveš query, pa ih onda posle vratiš na
"staro" stanje. mislim da je Application.DisableWarnings() metoda, ali
bolje proveri, vrlo moguće da sam promašio, a mrsko mi sada da to
tražim.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Append query bez upozorenja

^{14.01.2008. u 07:52 - pre 198 meseci}

DoCmd.SetWarnings False
DoCmd.OpenQuery "qbrisistzahtjevnice"
DoCmd.SetWarnings True

ili

Sqlupit="delete * from zahtjevnice where ...... itd"

DoCmd.SetWarnings False
DoCmd.RunSql "sqlupit"
DoCmd.SetWarnings True

Odgovor na temu

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.ppp.cybermedia.co.yu.

+4 Profil

Re: Append query bez upozorenja

^{15.01.2008. u 12:42 - pre 198 meseci}

Hvala! Radi bas kako treba!!!

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.co.yu.

+8 Profil

Re: Append query bez upozorenja

^{11.02.2008. u 21:39 - pre 197 meseci}

Pročitao sam danas ovaj post i nisam hteo da odgovorim pomalo iz razloga što je problem rešen, pomalo što nisam mogao da se setim po meni idelanog rešenja dok mi nije upravo zatrebalo. Lepa stvar kod foruma je što mogu da ti koriste kao podsetnik

Jedna metoda koju koristim zbog toga što je kod kratak je CurrentDb.Execute StrSQL, ova metoda ne zavisi od toga da li je SetWarnings on ili off. Postoji još jedno rešenje, koje je po meni najbolje, CurrentProject.Connection.Execute StrSQL :

Ovo rešenje sam implementirao u primeru koji najpre snima sve relacije u tabelu, zatim ih briše, a zatim posle neke radnje ih rekreira koristeći tu privremenu tabelu. CurrentDb.Execute StrSQL mi je u poslednjem redu prijavljivao Error, ali kada sam izmenio način exekucije sve je proradilo super. U slučaju da se pojavi greška ispisuje se opis greške, ali se kod neometano nastavlja. Nisam hteo da spajam procedure SaveRel i ExpRel zato što u slučaju da se pojavi greška prilikom rekreiranja tabela relacije bi bile izgubljene.

Public Sub SaveRel()
StrSQL = "SELECT MSysRelationships.* INTO TempRel FROM MSysRelationships;
CurrentDb.Execute StrSQL
End Sub

Public Sub ExpRel()

On Error Resume Next

Dim RS As Recordset
Dim RC As Integer

For RC = CurrentDb.Relations.Count - 1 To 0 Step -1
If Left(CurrentDb.Relations(RC).Name, 4) <> "MSys" Then CurrentDb.Relations.Delete CurrentDb.Relations(RC).Name
If Err.Description <> "" Then Debug.Print Err.Description
Err.Description = ""
Next RC

' OVDE DOLAZI KOD KOJI SE NE MOŽE IZVRŠITI KADA POSTOJE RELACIJE, KAO ŠTO JE NA PRIMER PROMENA PRIMARNOG KLJUČA

StrSQL = "Select TempRel.* From TempRel"
Set RS = CurrentDb.OpenRecordset(StrSQL)

If RS.RecordCount > 0 Then
RS.MoveLast
RS.MoveFirst
End If

For RC = 1 To RS.RecordCount
StrSQL = "ALTER TABLE " & RS!szObject & " ADD CONSTRAINT " & Left(RS!szObject, 4) & Left(RS!szReferencedObject, 4) & _
" FOREIGN KEY (" & RS!szColumn & ") REFERENCES " & RS!szReferencedObject & "(" & RS!szReferencedColumn & ") " & _
"ON UPDATE CASCADE ON DELETE CASCADE "
If Err.Description <> "" Then Debug.Print StrSQL, Err.Description
Err.Description = ""
CurrentProject.Connection.Execute StrSQL
RS.MoveNext
Next RC

End Sub

Toliko od mene, ubio sam par minuta, još ako će ovo pomoći nekome onda još bolje

Ozbiljan i odgovoran mladić

Odgovor na temu